Prikazi cijelu temu 18.06.2025 12:52
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Lokacija:SARAJEVO


Predmet:Re:list box za pretragu u mdb iaccdb
PreuzmiIzvorni kôd (Text):
  1. Private Sub sifra_KeyDown(KeyCode As Integer, Shift As Integer)
  2.    
  3. Dim bm As Variant
  4. bm = Me.Bookmark
  5.  
  6.    Dim rst As Recordset, strSQL As String
  7.    Dim msg, Msg1, Style, Title, Title1, Titlep, Response, MyString
  8.    Me.KeyPreview = True
  9.    Select Case KeyCode
  10. '          Case vbKeyReturn
  11. '               If Me.sifra <> "" And Me.RecordsetClone.RecordCount > 0 Then
  12. '                  strPreth = Me.sifra
  13. '                  DoCmd.GoToRecord , , acNewRec
  14. '               End If
  15.           Case vbKeyF5
  16.                PintFlag = 0
  17.                 DoCmd.OpenForm "frmPartnerPretraga", acNormal, , , , acDialog
  18.                If PintFlag = 1 Then
  19.                   Me!sifra = Psifra
  20.                   Call sifra_AfterUpdate
  21.                End If
  22. End Select
  23. End Sub

PreuzmiIzvorni kôd (Text):
  1. Private Sub sifra_AfterUpdate()
  2.     Me.KeyPreview = True
  3.     Me.naziv = DLookup("naziv", "tblPartner", "sifra = " & Me.sifra)
  4.  
  5.     ' Vratimo fokus na prethodni bookmark (ako postoji)
  6.     On Error Resume Next
  7.     If Not IsEmpty(bm) Then
  8.         Me.Bookmark = bm
  9.     End If
  10.     On Error GoTo 0
  11.  
  12.     ' Idi na sljedece polje
  13.     Me.datum.SetFocus
  14. End Sub
Pozdrav, Amela
Ovaj post je ureden 1 puta. Posljednja izmjena 18.06.2025 12:54 od strane Amelasar.