Napisano: 29 Jul 2009 12:41
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 & "'" & "RadnikId <> " & "'" & Me.MaticniBrojTxt) > 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 maticni broj nije ispravan, onu gore prvu poruku.Sta da radim?
Dopuna: 29 Jul 2009 12:49
U stvari da podatak nije ispravan ne onu prvu poruku.
|