Prikazi cijelu temu 30.03.2011 09:00
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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):
  1. Private Sub BrDokumenta_BeforeUpdate(Cancel As Integer)
  2. Dim Unos As String
  3. Dim stLinkCriteria As String
  4. Dim rsc As DAO.Recordset
  5. Set rsc = Me.RecordsetClone
  6. Unos = Me.BrDokumenta.Value
  7. stLinkCriteria = "[BrDokumenta]=" & "'" & Unos & "'"
  8. If DCount("BrDokumenta", "tblTransakcije", stLinkCriteria) > 0 Then
  9. Me.Undo
  10. MsgBox "Upozorenje dokument broj " & Unos & " ve je ranije upisan." & vbCr & vbInformation
  11. End If
  12. If IsNull(Me![IDdokumenta]) Then
  13.         MsgBox "Niste upisali broj dokumenta", , "GreÅ¡ka!"
  14.         DoCmd.GoToControl "IDDokumenta"
  15.  End If
  16. 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.