BeforeUpdate event
bsn
Hej NG
Jeg har en form, hvor jeg indtaster data...
N�r jeg st�r p� en ny post, vil jeg gerne tjekke om det felt jeg indtaster
i, eksisterer i forvejen...
Jeg pr�ver s� at fange det indtastede i feltet, i feltets BeforeUpdate
event, og sammenligne det med hele recordsettet...
Bruger denne kode...
<kode>
Private Sub Adresse_BeforeUpdate(Cancel As Integer)
If Me.Adresse = "" Or Me.Adresse = " " Or Me.Adresse = Null Then
MsgBox "Indtast adresseoplysninger...", vbInformation
Me.Adresse.SetFocus
Cancel = -1
End If
Set RS = New ADODB.Recordset
RS.ActiveConnection = CurrentProject.Connection
Sql = "SELECT Adresse FROM tblKunde Where Adresse='" & Me.Adresse & "'"
RS.Open Sql
If Not RS.EOF Then
MsgBox "Kundeadressen eksisterer i forvejen" & vbCrLf & "Indtast flere
oplysninger i adressefeltet...", vbInformation
Cancel = -1
Me.Adresse.SetFocus
End If
RS.Close
Set RS = Nothing
End Sub
</kode>
Men det funker ikke...
Har i et forslag...???
Hilsen
Bjarne
"Every day new surprises"
bsn
"bsn" <bsnSNABELAoncableDOTdk> skrev i en meddelelse
news:4a695b0e$0$15892$edfa...@dtext01.news.tele.dk...
>
> Hej NG
>
> Jeg har en form, hvor jeg indtaster data...
> N�r jeg st�r p� en ny post, vil jeg gerne tjekke om det felt jeg indtaster
> i, eksisterer i forvejen...
> Jeg pr�ver s� at fange det indtastede i feltet, i feltets BeforeUpdate
> event, og sammenligne det med hele recordsettet...
>
> Bruger denne kode...
> <kode>
> </kode>
Har l�st problemet...
Der kan ikke laves Setfocus, n�r du st�r i feltet...
Jeg har s� slettet Me.Adresse.Setfocus, og s� virker det...
Der kom bare ikke en brugbar fejlmeddelelse...
Bjarne