een tekstvak controleren in een volgende record

[Wandw]

Ik wil kijken of een tekstvak in een volgende record leeg is. Dit heb ik geprobeerd maar het lukt niet. Kan iemand mij helpen?

Private Sub cmdvolgende_Click()
DoCmd.GoToRecord , , acNext
Dim sngkeuze As Single
If txtBtw = "" Then
sngkeuze = MsgBox("Wilt u een leverancier toevoegen?", vbYesNo, "Mededeling")
If sngkeuze = vbYes Then
 DoCmd.GoToRecord , , acNewRec
    txtnaam.SetFocus
    Postcode.Enabled = False
    Rekeningnummer.Enabled = False
    Adres.Enabled = False
    Stad.Enabled = False
    Website.Enabled = False
    Email.Enabled = False
    Website.Enabled = False
    Leveranciersnummer.Enabled = False
    Telefoonnummer.Enabled = False
Else
    DoCmd.GoToRecord , , acPrevious
End If
End If
End Sub

 

[Guus2005]

Zo te zien gebruik je een bound form. Je test op de waarde in een tekstveld i.p.v. de waarde van het gekoppelde veld.
Je kan beter een ander event nemen om te testen of een veld leeg is.

Private Sub cmdvolgende_Click()
DoCmd.GoToRecord , , acNext
Dim sngkeuze As Single
If txtBtw = "" Then
sngkeuze = MsgBox("Wilt u een leverancier toevoegen?", vbYesNo, "Mededeling")
If sngkeuze = vbYes Then
 DoCmd.GoToRecord , , acNewRec
    txtnaam.SetFocus
    Postcode.Enabled = False
    Rekeningnummer.Enabled = False
    Adres.Enabled = False
    Stad.Enabled = False
    Website.Enabled = False
    Email.Enabled = False
    Website.Enabled = False
    Leveranciersnummer.Enabled = False
    Telefoonnummer.Enabled = False
Else
    DoCmd.GoToRecord , , acPrevious
End If
End If
End Sub

wordt dan

Private Sub FOrm_Current()
  Dim sngkeuze As Single
  If txtBtw = "" Then
    sngkeuze = MsgBox("Wilt u een leverancier toevoegen?", vbYesNo, "Mededeling")
    If sngkeuze = vbYes Then
        DoCmd.GoToRecord , , acNewRec
        txtnaam.SetFocus
        Postcode.Enabled = False
        Rekeningnummer.Enabled = False
        Adres.Enabled = False
        Stad.Enabled = False
        Website.Enabled = False
        Email.Enabled = False
        Website.Enabled = False
        Leveranciersnummer.Enabled = False
        Telefoonnummer.Enabled = False
    End If
  End If
End Sub

Obviously, bovenstaande code is niet gecontroleerd.

HTH