Prikazi cijelu temu 08.02.2013 13:47
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet: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:
PreuzmiIzvorni kôd (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