Predmet:SQL problem
PreuzmiIzvorni kôd (Text):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
Trebala bih dodati jos jedan uslov u SQL al mi ne polazi za rukom. Sifra klijenta.
Sad mi sve radi ali pretrazuje sve fakture a ne samo od odredjenog klijenta.
Ako ukinem msgbox onda nista ne radi?
Ako neko moze pomoci. Hvala.
Pozdrav, Amela
Ovaj post je ureden
1
puta. Posljednja izmjena 08.02.2021 00:27 od strane Amelasar.