[VBA] Access hang bij uitvoeren code

[Verwijderd]

Ik ben bezig met het bouwen van een applicatie in Access 2003. Een onderdeeltje er van is het volgende brouwseltje.

VBScript:

Private Sub cmd_sluiten_Click()
    Dim DB As Database
    Dim RS1 As Recordset
    Dim RS2 As Recordset
    Dim RS3 As Recordset
    
    Set DB = CurrentDb
    Set RS1 = DB.OpenRecordset("tbl_geoorloofd_afwezig")
    Set RS2 = DB.OpenRecordset("tbl_geselecteerde_student")
    Set RS3 = DB.OpenRecordset("tbl_geselecteerd_record")
    
    DoCmd.SetWarnings False
    
    DoCmd.RunSQL ("DELETE tbl_geselecteerd_record.* FROM tbl_geselecteerd_record;")
    DoCmd.RunSQL ("DELETE tbl_geselecteerde_student.* FROM tbl_geselecteerde_student;")
    
    RS3.AddNew
    RS3("fld_geselecteerd_record").Value = Me.fld_id
    RS3.Update
        
    DoCmd.RunSQL ("INSERT INTO tbl_geselecteerde_student ( fld_geselecteerde_student ) SELECT tbl_presentie.fld_amico_student_id FROM tbl_geselecteerd_record LEFT JOIN tbl_presentie ON tbl_geselecteerd_record.fld_geselecteerd_record = tbl_presentie.fld_id")
        
    DoCmd.SetWarnings True

    If Me.cbo_presentie = 1 Then
        Do Until RS1.EOF
            If RS1("fld_student_id").Value = RS2("fld_geselecteerde_student").Value Then
                RS1.Delete
            End If
        RS1.MoveNext
        Loop
    End If

    RS1.Close
    RS2.Close
    RS3.Close
    DB.Close
    
    Set RS1 = Nothing
    Set RS2 = Nothing
    Set RS3 = Nothing
    Set DB = Nothing

    DoCmd.Close
End Sub

Niet echt heel mooi, maar voor als nog volstaat het. Tot vandaag werkte alles prima. Helaas crasht sinds vandaag Access volledig op het stukje:

code:

    RS3.AddNew
    RS3("fld_geselecteerd_record").Value = Me.fld_id
    RS3.Update

Wat zou hier in godensnaam aan de hand kunnen zijn? De code lijkt mij goed te zijn. Als er niet uit te komen is, kan ik natuurlijk ook SQL gebruiken om bovenstaande code te vervangen. Helaas weet ik niet hoe ik de gegevens uit het form kan gebruiken in een query (me.fld_id). Beide oplossingen zijn wat mij betreft prima. Als het maar werkt.

[compufreak88]

Een query is gewoon een string, dus je kunt gewoon doen

query = "INSERT INTO tbl_geselecteerd_record (fld_geselecteerd_record) VALUES('" & me.fld_id & "')"

[Verwijderd]

Bedankt voor je reactie. Ik heb je query gebruikt om mijn VBA te vervangen. Helaas met het zelfde resultaat: Access hangt. Nu ben ik even gaan zoeken en blijkt dat om het moment dat ik me.fld_id opvraag (b.v. in een messagebox) Access crasht. Vreemd is dat het form dat fld_id gebruikt wel werkt; het bijbehorende record wordt netjes getoond.
Ik ben bang dat er iets grondig mis is met mijn applicatie (misschien bij een crash iets gebeurd). Enig idee?

[NMe]

Dat weten de mensen in Officesuites en -software vast wel. Waar hoort mijn topic?

PRG>>OFF

[waxxzer]

Open je tabel waar fld_id in staat en zoek naar een record waar "#error" in staat. Kan in een enkel field staan, maar ook in alle fields op het record. Als dat zo is, verwijder dan het record door de record selector te gebruiken, niet in het grid en te deleten (eerst even naar klembord kopieren als er kritieke data in staat, deze kan je bv. in excel plakken, het errorfield verwijderen en weer terugplakken in je tabel).
Daarna even repareren en comprimeren.

[Verwijderd]

Ik heb inmiddels de oplossing gevonden -> nieuwe database aanmaken en alle tabellen, e.d. importeren. Lekker lame, maar nu werkt het wel weer.