Code:
Private Sub MaticniBrojTxt_BeforeUpdate(Cancel As Integer)
If Not IsNull(Me.MaticniBrojTxt) Then
If ProveraMaticnogBroja([MaticniBrojTxt]) = False Then
MsgBox vbLf & "MATIÈNI BROJ NIJE ISPRAVAN", vbExclamation, "UPOZORENJE"
Cancel = True
Exit Sub
End If
End If
If DCount("*", "RADNIK", "MaticniBroj = " & "'" & Me.MaticniBrojTxt & "'" [red]& "RadnikId <> " & "'" & Me.MaticniBrojTxt[/red]) > 0 Then
MsgBox vbLf & "VEÆ POSTOJI RADNIK SA MATIÈNIM BROJEM " & Me.MaticniBrojTxt & vbLf & vbLf _
& "RadnikId : " & DLookup("RadnikId", "RADNIK", "MaticniBroj = " & "'" & Me.MaticniBroj & "'") & vbLf _
& "Prezime i ime : " & DLookup("Imeprez", "RADNIK", "MaticniBroj = " & "'" & Me.MaticniBroj & "'") & vbLf _
& "Radni status : " & DLookup("RadniStatus", "RADNIK", "MaticniBroj = " & "'" & Me.MaticniBroj & "'"), vbExclamation, "UPOZORENJE"
Cancel = True
Exit Sub
End If
End Sub
Kao sto vidite dodala sam da ako je RadnikID,koji je iz baze, razlicit od onoga editovanog u TextBoxu i ako ih opet ima vise od 0, da prijavi da vec postoji radnik sa istim maticnim brojem i to je donekle resilo problem.Sada mi kada probam da ukucam JMBG koji je vec otvoren u textBoxu ne prijavljuje da vec postoji takav radnik nego da podatak nije ispravan, sta daradim?
[Ovu poruku je menjao Wellness dana 29.07.2009. u 12:50 GMT+1]
[Ovu poruku je menjao Aleksandar Vasic dana 29.07.2009. u 13:26 GMT+1]