- Private Sub BrojFakt_AfterUpdate()
- On Error GoTo Err_Command52_Click
- Dim rst As Recordset
- Dim strSQL As String
- strSQL = "SELECT * FROM tblKIF WHERE tblKIF.BrojFakt ='" & Me.BrojFakt & "'"
- Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
- MsgBox rst!BrojFakt ------->>>>> OVAJ MSGBOX AKO IZBACIM ONDA MI NE RADI
- If rst.RecordCount < 0 Then
- Else
- MsgBox "Faktura sa tim brojem postoji u bazi!", vbInformation
- End If
- Exit_Command52_Click:
- Exit Sub
- Err_Command52_Click:
- Rem MsgBox "Ne postoji"
- Resume Exit_Command52_Click
- End Sub
Private Sub BrojFakt_AfterUpdate()
On Error GoTo Err_Command52_Click
Dim rst As Recordset
Dim strSQL As String
strSQL = "SELECT * FROM tblKIF WHERE tblKIF.BrojFakt ='" & Me.BrojFakt & "'" & " AND tblKIF.Sifra = " & Me.Sifra
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
Rem MsgBox rst!BrojFakt 'OVAJ MSGBOX AKO IZBACIM ONDA MI NE RADI
If rst.RecordCount > 0 Then
MsgBox "Faktura sa tim brojem postoji u bazi!", vbInformation
Else
End If
rst.Close
Exit_Command52_Click:
Exit Sub
Err_Command52_Click:
MsgBox err.Description
Resume Exit_Command52_Click
End Sub
Rijesila sam. SQL me zezali navodni znakovi.
A u funkciji samo zamijenila < sa >. Nije mi jasno zasto.
Hvala.