zxz 18.06.2025 16:58
Predmet:Re:list box za pretragu u mdb iaccdb

sledeci kod se nalazi frmKKalkulacijaDetalji na eventu on Before Update polja proizvod
ovo ispod trebas prekopirati umjesto tvoga koda na ovom eventu

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub proizvod_BeforeUpdate(Cancel As Integer)
  2. Dim rstproizvod As Recordset, strproizvod As String
  3. Dim SQL As String
  4.  SQL = "SELECT COUNT(*) AS broj FROM tblproizvodi WHERE proizvod = '" & strproizvod & "'"
  5.  Set rs = CurrentDb.OpenRecordset(SQL, dbOpenSnapshot)
  6.  Dim broj_redova As Integer
  7.  broj_redova = rs!broj
  8.  If brojRedova > 0 Then
  9.     'MsgBox "Postoji " & brojRedova & " red(ova)."
  10.    'ako sta trebas jos raditi
  11. Else
  12.     answer = MsgBox("Nemate artikl sa tom sifrom!!!Zelite li unijeti?", vbQuestion + vbYesNo, DLookup("KORISNIK", "tblKorisnik"))
  13.     If answer = vbYes Then
  14.     DoCmd.OpenForm "frmPROIZVODI", acNormal, , , , acDialog, Me.proizvod
  15.     Else
  16.      Me!proizvod.Undo
  17.             Cancel = True
  18.       Sendkeys "{ESC}{ESC}"
  19.   End If
  20. End If
  21.   rstproizvod.Close
  22. End Sub

meni javlja gresku da nema tabele tblKorisnik, pretpostavljam da kod tebe ima ova tabela
bolja je opcija bila run timer access 2000 ili 2003