Bosna i Hercegovina



#1 08.02.2013-13:47
miro35 Offline
Clan
Registrovan/a od: 05.01.2009-15:56
Komentari: 609


Subject: SQL Petlja
Imam sad još nešto preko SQL neku provjeru upisanih pločica u tablici.
Ovaj kod radi kad upišem broj pločice koja postoji u tabeli.Trebam još nešto dodati ali ne znam kako.Ako se napiše neki broj koji ne postoji u tabeli (Odnosno ako rekordset ne nađe nikakav podatak za taj broj pločice) onda javi grešku.Treba nešto kao if isnull recordset probao sam ali ne ide.
Evo kod:
DownloadIzvorni kod (Text):
  1. Dim OdBrojaPlava  As Long
  2. Dim db As Database
  3. Set db = CurrentDb
  4. Dim rstPlave As DAO.Recordset
  5. Dim strSQL As String
  6. OdBrojaPlava = Forms!frmZaduzenje!OdPlava
  7. strSQL = "SELECT * FROM tblPlocice WHERE [Boja]='Plava' AND [Broj]=" & OdBrojaPlava
  8.          Set rstPlave = db.OpenRecordset(strSQL, dbOpenDynaset)
  9.  
  10. If (rstPlave!Status = "Z") Then
  11. MsgBox "Postoji zaduženje za plave plo
  12. ice,nije dopušteno zaduženje!", vbExclamation, "Greška knjiženja plavih plo
  13. ica"
  14. rstPlave.Close
  15. Set db = Nothing
  16. Me.OdPlava = Null
  17. Exit Sub
  18. End If

Miro
↑  ↓

#2 08.02.2013-13:52
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,760


Subject: Re: SQL Petlja
strSQL = "SELECT * FROM tblPlocice WHERE [Boja]='Plava' AND [Broj]=" & OdBrojaPlava
Set rstPlave = db.OpenRecordset(strSQL, dbOpenDynaset)
If rstPlave.recordcount=0 then
Msgbox "ne posroji"
else
If (rstPlave!Status = "Z") Then
MsgBox "Postoji zaduženje za plave plo
ice,nije dopušteno zaduženje!", vbExclamation, "Greška knjiženja plavih plo
ica"
rstPlave.Close
Set db = Nothing
Me.OdPlava = Null
Exit Sub
End If
end if

Mozda sad ovaj tvoj if i netreba ali nisam se upustao.
Pozdrav
↑  ↓

#3 08.02.2013-14:23
miro35 Offline
Clan
Registrovan/a od: 05.01.2009-15:56
Komentari: 609


Subject: Re: SQL Petlja
To je to,ja sam napisao ovako:
If rstPlave.RecordCount = 0 Then
Exit Sub
End If
Samo sam zablokirao sa ovim: rstPlave.RecordCount = 0
A vjerovatno u kodu po svojim aplikacijama imam to ali blokada je nastala pa ne znam gdje se to nalazi.
Hvala
Miro
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 21.10.2018-16:03.