controle op juistheid

[arnoderuig]

Ik heb een query qryAanvrager. Op basis van deze query heb ik een formulier frmAanvrager. Bij het intoetsen van gegevens kan blijken dat een combinatie van velden niet juist is ingevuld. Binnen de query heeft een veld Partnercontrole dan de waarde 1. Ik wil voorkomen dat de tabel tblAanvrager foutieve gegevens kan bevatten. Daarom wil ik dat er een foutmelding verschijnt als het veld Partnercontrole de waarde 1 heeft. Deze melding moet verschijnen voordat het formulier wordt opgeslagen in de tabel. Het veld Partnergegevens op het formulier moet daarna de focus krijgen. Ik kan terugvinden dat ik dan iets met een Gebeurtenis zou moeten doen (voor bijwerken?). Maar hoe dan?

 

[Uhhhhh]

er vanuit gaande dat het veld partnercontrole ook op je form staat en ge-update wordt na elke invoer (requery) heb ik de volgende code klaar.
Hopelijk heb je er iets aan.

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Forms![partnercontrole] = 1 Then
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "foutieve invoer" ' Bericht invoeren.
Style = vbOKOnly + vbInformation ' definieer buttons.
Title = "foutieve invoer" ' definieer titel.
' context.
' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
Resume Exit_Command17_ClickEnd Sub
partnergegevens.setfocus