Code:
Private Sub ID_LostFocus()
Dim qdf As QueryDef
Dim rs As Recordset
Set qdf = CodeDb.QueryDefs("id-ime")
With qdf
.Parameters("upisi ID") = ID
Set rs = .OpenRecordset(dbOpenForwardOnly, dbReadOnly)
End With
If rs.RecordCount > 0 Then
Me.imeiprezime = rs!ime_prez
Me.jmbgf = rs!jmbg
Else
Me.imeiprezime = "Ne postoji trazeni ID broj"
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
ID.SetFocus
End If
End Sub
Private Sub ID_LostFocus()
Dim qdf As QueryDef
Dim rs As Recordset
Set qdf = CodeDb.QueryDefs("id-ime")
With qdf
.Parameters("upisi ID") = ID
Set rs = .OpenRecordset(dbOpenForwardOnly, dbReadOnly)
End With
If rs.RecordCount > 0 Then
Me.imeiprezime = rs!ime_prez
Me.jmbgf = rs!jmbg
Else
Me.imeiprezime = "Ne postoji trazeni ID broj"
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
ID.SetFocus
End If
End Sub
Hvala unapred!
I tako ...