Amelasar |
08.02.2021 00:25 |
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. |
Gjoreski |
08.02.2021 10:26 |
Predmet:Re: SQL problem
Nema tu sta da ne radi ,verovatno je neka glupost u pitanje . Najbolje zakaci primer pa da vidimo.
Edna od mogucnosti kad izbacis msgbox moguce je program da izadze is funkcije i ona se neizvrsava do kraja.
Bez primera samo mozemo nagagjati sta je. |
Amelasar |
08.02.2021 11:24 |
Predmet:Re: SQL problem
Toliko mi i nije bitno da izbacim taj nepotrebni msgbox. Trebala bi dodati jos jedan uslov al mi ne polazi za rukom. Broj fakture i Sifra klijenta trebalo bi da bude uslov. Evo i primjera. |
Prilozi: primjer.rar (Velicina datoteke:17.96 KB)
|
Amelasar |
08.02.2021 15:14 |
Predmet:Re: SQL problem
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. |
Gjoreski |
08.02.2021 16:15 |
Predmet:Re: SQL problem
Eve pogledaj jeli to sta ti treba |
Prilozi: primjer.zip (Velicina datoteke:28.63 KB)
|
Amelasar |
09.02.2021 08:01 |
Predmet:Re: SQL problem
Ovo je jos elegantnije rjesenje. Hvala Gjoreski na pomoci. |