Centar za edukaciju-BiH

Predmet:SQL problem

---

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.

---

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.

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:

---

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.

---

Predmet:Re: SQL problem

---

Eve pogledaj jeli to sta ti treba

Prilozi:

Predmet:Re: SQL problem

---

Ovo je jos elegantnije rjesenje. Hvala Gjoreski na pomoci.

---