- Dim OdBrojaPlava As Long
- Dim db As Database
- Set db = CurrentDb
- Dim rstPlave As DAO.Recordset
- Dim strSQL As String
- OdBrojaPlava = Forms!frmZaduzenje!OdPlava
- strSQL = "SELECT * FROM tblPlocice WHERE [Boja]='Plava' AND [Broj]=" & OdBrojaPlava
- Set rstPlave = db.OpenRecordset(strSQL, dbOpenDynaset)
- 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
Prikazi cijelu temu
08.02.2013 13:47
08.02.2013 13:47
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:
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):
Miro