nevsad 13.06.2025 08:46
Predmet:list box za pretragu u mdb iaccdb

problem verzije mdb-2003 i verzije accdb-2019

u primjeru kalkulacije list box frm pretragaK radi fantasticno

preoblem je u accdb

isti kod se ponasa tako da poslije abdejta proizvoda i napustanja list boha uvijek ide na prvi record

svaka ideja dobro dosla

zakacio sam obadva primjera
list box i dobasvljača i proiizvod a poziva se sa F5
napominjem da je ovo ponasanje samo kad se koristi list box
normalnim unosom tastatuta ili barcode nema problema

svaka sugestija dobro dosla

pozdrav ramic
Prilozi:
20032019.rar (Velicina datoteke:332.40 KB)

zxz 15.06.2025 13:08
Predmet:Re:list box za pretragu u mdb iaccdb

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub lstResults_DblClick(Cancel As Integer)
  2. On Error GoTo Err_btnSelect_Click
  3.    
  4.     If Not IsNull(Me![lstResults].Column(0)) Then
  5.     Pproizvod = Me.lstResults.Column(0)
  6.     PintFlag = 1
  7.     DoCmd.Close acForm, "frmProizvodPretragaK", acSaveNo
  8.     Forms!frmKKalkulacija!frmKKalkulacijaDetalji.Form.Recordset.MoveLast
  9.     End If
  10.    
  11. ExitHere:
  12.     Exit Sub
  13.    
  14. Err_btnSelect_Click:
  15.     If err.Number = 2450 Then Resume ExitHere
  16.     MsgBox err.Number
  17.     Exit Sub
  18. End Sub

nevsad 16.06.2025 17:10
Predmet:Re:list box za pretragu u mdb iaccdb

zahvaljujem na sugestiji ali
iskaz
Forms!frmKKalkulacija!frmKKalkulacijaDetalji.Form.Recordset.MoveLast
me stalno vrača na poslijednji record
ako koristim F5 dva puta uzastopno
imam samo jedan upis

navedeni iskaz mjenja kompletnu logiku upotrebe F5

jer ga koristim u kaklulaciji otpisu povratu fakturi itd

sve sto sam pokusavao vrača me na runtime error 3021 ili 2467

mene buni posve nesto drugo
ako je barcod sa scenera ima prolaz normalan ili rucni unos npr.sifreporizvoda 3333
sta se desava sa sifrom iz list boxa
probao sam next,new, previos i uredno rade ali last e radi

nemam ideje