Form empty after delete record (1 Viewer)

[so10070]

I have a form with one subform. Through the button "Delete" I can delete the records in the subform and the record in the form (referential integrity enforced). However after the deletion of the records my form is empty. The command "Me.Requery" doesn't do anything (see picture). How can I present the (for example) the first record.

Private Sub butVerwijder_Click()
    Dim sqlVerwijderSubFormGegevens As String
    Dim sqlVerwijderParentGegevens As String
    Dim strCodeModule As String

    strCodeModule = "frmKlant Sluiten_Click()"

    On Error GoTo foutafhandeling

    info 25
      
    If Antwoord = 6 Then
        'Nu eerst onderzoeken of er gerelateerde records zijn in het subform
        If DCount("*", "tblKlantContacten", "KID = " & Me.iKID) <> 0 Then   'Er bestaan records in de gerelateerde tabel
            DoCmd.SetWarnings False
            sqlVerwijderSubFormGegevens = "DELETE tblKlantContacten.KID From tblKlantContacten WHERE tblKlantContacten.KID = " & Me.iKID & ";"
            DoCmd.RunSQL sqlVerwijderSubFormGegevens
            DoCmd.SetWarnings True
        End If
    
        DoCmd.SetWarnings False
        sqlVerwijderParentGegevens = "DELETE tblKlant.KID From tblKlant WHERE tblKlant.KID = " & Me.iKID & ";"
        DoCmd.RunSQL sqlVerwijderParentGegevens
        DoCmd.SetWarnings True
        
        Me.lstKlantLijst = ""
        Me.lstKlantLijst.Requery
        Me.iAantalKlanten = DCount("*", "tblKlant")
        Me.Requery >> DOESN'T WORK
    End If

Exit_Sub:
    Exit Sub

foutafhandeling:
    Call FoutenRegistratie(Err.Number, Err.Description, strCodeModule, Environ("Username"))
    Resume Exit_Sub
End Sub

 

[pbaldy]

This is why:

Microsoft Access tips: Why does my form go completely blank?

Explains why no controls show on Microsoft Access forms sometimes, and how to address this issue.

allenbrowne.com

You could allow new records, or test for the lack of records and proceed accordingly.

 

[so10070]

Thanks pbaldy! . The WhereCondition of my delete query was the cause of this problem. I have no records anymore in the form. By setting again the recordsource of both the form and the subform I got a filled form again.

 

[pbaldy]

Glad you got it sorted out!