Centar za edukaciju-BiH



#1 07.02.2021-23:25
Amelasar Offline
Clan
Registrovan/a od: 07.04.2011-18:28
Komentari: 250


Subject: SQL problem
DownloadIzvorni kod (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 komentar je mijenjan 1 puta. zadnja izmjena 07.02.2021-23:27 od strane Amelasar. ↑  ↓

#2 08.02.2021-09:26
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,754


Subject: 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.
↑  ↓

#3 08.02.2021-10:24
Amelasar Offline
Clan
Registrovan/a od: 07.04.2011-18:28
Komentari: 250


Subject: 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:
Informacije o fajlu: rar  primjer.rar
Preuzimanja: 68
Veličina: 17.96 KB


Pozdrav, Amela
↑  ↓

#4 08.02.2021-14:14
Amelasar Offline
Clan
Registrovan/a od: 07.04.2011-18:28
Komentari: 250


Subject: 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. Grinning
A u funkciji samo zamijenila < sa >. Nije mi jasno zasto.
Hvala.
Pozdrav, Amela
Ovaj komentar je mijenjan 2 puta. zadnja izmjena 08.02.2021-14:15 od strane Amelasar. ↑  ↓

#5 08.02.2021-15:15
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,754


Subject: Re: SQL problem
Eve pogledaj jeli to sta ti treba

Prilozi:
Informacije o fajlu: zip  primjer.zip
Preuzimanja: 69
Veličina: 28.63 KB

↑  ↓

#6 09.02.2021-07:01
Amelasar Offline
Clan
Registrovan/a od: 07.04.2011-18:28
Komentari: 250


Subject: Re: SQL problem
Ovo je jos elegantnije rjesenje. Hvala Gjoreski na pomoci.
Pozdrav, Amela
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 15.04.2021-17:26.