Prikazi cijelu temu 08.02.2021 00:25
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Lokacija:SARAJEVO


Predmet:SQL problem
PreuzmiIzvorni kôd (Text):
  1. Private Sub BrojFakt_AfterUpdate()
  2.  
  3. On Error GoTo Err_Command52_Click
  4.  
  5. Dim rst As Recordset
  6. Dim strSQL As String
  7.        
  8. strSQL = "SELECT * FROM tblKIF WHERE tblKIF.BrojFakt ='" & Me.BrojFakt & "'"
  9. Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
  10.          
  11. MsgBox rst!BrojFakt    ------->>>>> OVAJ MSGBOX AKO IZBACIM ONDA MI NE RADI
  12.          
  13. If rst.RecordCount < 0 Then
  14.              
  15.              
  16. Else
  17. MsgBox "Faktura sa tim brojem postoji u bazi!", vbInformation
  18.  
  19. End If
  20.          
  21. Exit_Command52_Click:
  22.     Exit Sub
  23.  
  24. Err_Command52_Click:
  25.     Rem MsgBox "Ne postoji"
  26.     Resume Exit_Command52_Click
  27. 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.