Predmet:Baza za skladište
Imam tablicu tblTransakcije sa poljima
IDtransakcije
datum
IDDokumenta
BrDokumenta
itd
na dvije forme koje sluÅ¡e za upis ulaza i izlaza na kontroli "BrDokumenta" da bi spriječio dvostruki upis istog broja dokumenta na Before Updata stavi sam slijedeći kod:
PreuzmiIzvorni kôd (vbnet):Private Sub BrDokumenta_BeforeUpdate(Cancel As Integer)
Dim Unos As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Unos = Me.BrDokumenta.Value
stLinkCriteria = "[BrDokumenta]=" & "'" & Unos & "'"
If DCount("BrDokumenta", "tblTransakcije", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Upozorenje dokument broj " & Unos & " ve
je ranije upisan." & vbCr & vbInformation
End If
If IsNull(Me![IDdokumenta]) Then
MsgBox "Niste upisali broj dokumenta", , "Greška!"
DoCmd.GoToControl "IDDokumenta"
End If
End Sub
I to radi. Međutim sada mi se pojavo problem da ipak ponekad imam porebu upisati isti broj dokumenta ali za zaličite vrste dokumenta.
Npr. imam MeđuskladiÅ¡nu otpremnicu sa kojom sa jednog skladiÅ¡ta skida stanje (izlaz) i na drugo skladiÅ¡te dodajem stanje (Ulaz)
Ili imama dvije različite vrste dokumenata (Otpremnicu ili izdatnicu), a dogodi se da imaju isti broj.
Zato mi treba provjera upisa po dva kriterija
Recimo BrDokumenta + IDdokumenta
Molim pomoć
Pozdrav
Ovaj post je ureden
1
puta. Posljednja izmjena 08.04.2011 11:55 od strane zxz.