Prikazi cijelu temu 18.06.2025 17:54
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re:list box za pretragu u mdb iaccdb
sledeci kod se nalazi frmKKalkulacijaDetalji na eventu on key down polja proizvod

ovo ispod trebas prekopirati umjesto tvoga koda na ovom eventu
na vrhu u modulu ispod
Option Compare Database
postavi
Dim rs_prooizvod As DAO.Recordset
mozes ovo staviti i u event ako nigdje vise neces koristiti
ecent Private Sub proizvod_AfterUpdate() mozes pobrisati netreba
svoj event zamijeni sledecim kodom
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub proizvod_KeyDown(KeyCode As Integer, Shift As Integer)
  2. Me.KeyPreview = True
  3. Select Case KeyCode
  4. Case vbKeyF4
  5.   Me.KeyPreview = True
  6.   DoCmd.SetWarnings False
  7. DoCmd.RunSQL "SELECT tblProizvodi.proizvod, tblProizvodi.ime, tblProizvodi.nabavna, tblProizvodi.cijena, tblProizvodi.znak, Len([proizvod]) AS [Int], tblProizvodi.jedmj INTO tblProizvodInt FROM tblProizvodi WHERE (((tblProizvodi.znak)='K') AND ((Len([proizvod]))=4)) ORDER BY tblProizvodi.ime WITH OWNERACCESS OPTION;"
  8. DoCmd.RunSQL "SELECT Count(tblProizvodInt.proizvod) AS CountOfproizvod, Max(tblProizvodInt.proizvod) AS MaxOfproizvod INTO tblProizvodMax FROM tblProizvodInt;"
  9. DoCmd.OpenForm "frmZadnjiInterni", acNormal, , , acFormReadOnly
  10.              ' SendKeys "{ESC}", True
  11.                      KeyCode = 0
  12. ''PintFlag = 0
  13. 'DoCmd.OpenForm "frmZadnjiInterni", acNormal, , , , acDialog
  14. '   SendKeys "{ESC}{ESC}"
  15. ''If PintFlag = 1 Then
  16. '  ' Me.proizvod = Pproizvod
  17. '                   '  Call proizvod_AfterUpdate
  18. '                       ' DoCmd.RunCommand acCmdSaveRecord
  19. '                ' Me.proizvod.SetFocus
  20. ''End If
  21. Case vbKeyF5
  22. PintFlag = 0
  23. DoCmd.OpenForm "frmProizvodPretragaK", acNormal, , , , acDialog
  24. If PintFlag = 1 Then
  25.    
  26.    'DoCmd.GoToRecord , , acNewRec
  27.   'Me.proizvod = Pproizvod
  28.                     'Call proizvod_AfterUpdate
  29.    Dim SQL As String
  30.     Dim proizvodk As proizvodi
  31.     SQL = "SELECT ime,jedmj,nabavna,cijena,tarifa,znak from tblProizvodi " _
  32.             & "WHERE proizvod='" & Pproizvod & "'"
  33.     Set rs_prooizvod = CurrentDb.OpenRecordset(SQL, dbOpenSnapshot)
  34.     If Not rs_prooizvod.EOF Then
  35.     proizvodk.ime = rs_prooizvod!ime
  36.     proizvodk.jedmj = rs_prooizvod!jedmj
  37.     proizvodk.nabavna = SqlDecimal(rs_prooizvod!nabavna)
  38.     proizvodk.cijena = SqlDecimal(rs_prooizvod!cijena)
  39.     proizvodk.tarifa = rs_prooizvod!tarifa
  40.     proizvodk.znak = rs_prooizvod!znak
  41. Else
  42.     MsgBox "Nema podataka za proizvod: " & Pproizvod
  43. End If
  44.  
  45. rs_prooizvod.Close
  46.     proizvodk.proizvod = Pproizvod
  47.     proizvodk.datum = Date
  48.     proizvodk.vrsta = Parent!vrsta
  49.     proizvodk.sifra = Parent!sifra
  50.     proizvodk.broj = Parent!broj
  51.     proizvodk.pdv = SqlDecimal(DLookup("pdv", "tbltarife", "tarifa = '" & Me.tarifa & "'"))
  52.     SQL = "INSERT INTO tblDetalji (broj,proizvod,Ime, jedmj, nabavna,cijena," _
  53.        & "tarifa,znak,pdv,datum,vrsta,kulaz,rabat,zavisni,sifra)" _
  54.        & "VALUES (" & _
  55.       proizvodk.broj & ", " & _
  56.       "'" & Pproizvod & "', " & _
  57.       "'" & proizvodk.ime & "', " & _
  58.       "'" & proizvodk.jedmj & "', " & _
  59.       proizvodk.nabavna & ", " & _
  60.       proizvodk.cijena & ", " & _
  61.       "'" & proizvodk.tarifa & "', " & _
  62.       "'" & proizvodk.znak & "', " & _
  63.       Nz(proizvodk.pdv, 0) & ", " & _
  64.       "#" & Format(proizvodk.datum, "yyyy-mm-dd") & "#, " & _
  65.       "'" & proizvodk.vrsta & "', " & _
  66.       "" & 0# & ", " & _
  67.       "" & 0# & ", " & _
  68.       "" & 0# & ", " & _
  69.       sifra & ")"
  70. 'Forms![F]![T] = SQL
  71. CurrentDb.Execute SQL, dbFailOnError
  72. Me.Refresh
  73. KeyCode = 0
  74. Me.RecordSource = Me.RecordSource
  75. If Forms!frmKKalkulacija!frmKKalkulacijaDetalji.Form.Recordset.RecordCount > 1 Then
  76. Forms!frmKKalkulacija!frmKKalkulacijaDetalji.Form.Recordset.MoveLast
  77. End If
  78. Me.kulaz.SetFocus
  79. End If
  80.           Case vbKeyF6
  81.     DoCmd.OpenForm "frmStanjePr", acNormal, , , , acDialog, Me.proizvod
  82.                        Sendkeys "{Esc}", True
  83.                       KeyCode = 0
  84.                       End Select
  85. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 18.06.2025 20:16 od strane zxz.