Ja kao pijan plota se drzao JMBG-a :-)
Greska je u kriterijumu gde stoji
stLinkCriteria = "[MaticniBroj] like " & "'" & Me![MaticniBroj] & "'"
a treba da stoji
stLinkCriteria = "[IDBroj] like " & "'" & Me![MaticniBroj] & "'"
Evo malo doradjeno...
Private Sub MaticniBroj_AfterUpdate()
Dim stLinkCriteria As String
Dim a As Integer
stLinkCriteria = "[IDBroj] like " & "'" & Me![MaticniBroj] & "'"
a = DCount("[OsobaID]", "Osoba", stLinkCriteria)
If IsNull(Me.MaticniBroj) Then
Else
If a > 0 Then
MsgBox "Postoji lice sa tim Maticnim brojem", vbCritical, "Informacija"
Me.OsobaID.SetFocus
Me.MaticniBroj.SetFocus
End If
End If
End Sub
Re: Problemi sa autonumber poljem i sabiranjem zapisa
