Prikazi cijelu temu 23.06.2012 10:02
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Bar code čitač u MsAccess-u
Imam problem nekad mi se pojavi don't send u access-u kad bar code čitač skenira neki artikal.I onda me izbaci iz aplikacije.Isto tako ponudi compact and repair baze.Takodje kad otkrijem na kojem se to artiklu desilo,drugi put taj isti artikal očita bez problema.I ne deÅ¡ava se ovo baÅ¡ često ali smeta.
Neznam je li ko imao slična iskustva.Evo postavit ću code na after update tog polja koje čita bar kode
PreuzmiIzvorni kôd (Text):
  1. Private Sub SIFART_AfterUpdate()
  2.  
  3. Me.Kolicina = 1
  4. If Left(Me.SIFART, 1) = "2" Then
  5.    If Len(Me.SIFART) < 13 Then
  6.       Me.Kolicina = 1
  7.    Else
  8.       Me.Kolicina = Round(Mid(Me.SIFART, 9, 4) / 1000, 2)
  9.       Me.SIFART = Left(Me.SIFART, 7)
  10.     End If
  11. End If
  12.  
  13. If Not IsNull(DLookup("ArtSif", "tblArtikli", "ArtSif='" & Me.SIFART & "'")) Or Not IsNull(DLookup("FSIFRA", "tblArtikli", "FSIFRA='" & Me.SIFART & "'")) Then
  14.     If Me.SIFART = (DLookup("FSIFRA", "tblArtikli", "FSIFRA='" & Me.SIFART & "'")) Then
  15.     Me.SIFART = DLookup("ArtSif", "tblArtikli", "FSIFRA='" & Me.SIFART & "'")
  16.     End If
  17.  
  18.     Me.NazArt = DLookup("ArtNaz", "tblArtikli", "ArtSif='" & Me.SIFART & "'")
  19.     Me.Grupa = DLookup("ArtGrupa", "tblArtikli", "ArtSif='" & Me.SIFART & "'")
  20.     Me.PORPOS = "0.17"
  21.     If IsNull(Me.PORPOS) Then
  22.     Me.PORPOS = 0
  23.     End If
  24.     Me.PORPOS2 = "0"
  25.     If IsNull(Me.PORPOS) Then
  26.     Me.PORPOS2 = 0
  27.     End If
  28.     Me.PORPOS3 = "4"
  29.     If IsNull(Me.PORPOS) Then
  30.     Me.PORPOS3 = 0
  31.     End If
  32.    
  33.     Me.PRODCIJ = Round(DLookup("ArtMCije", "tblArtikli", "ArtSif='" & Me.SIFART & "'"), 2)
  34.     If IsNull(Me.PRODCIJ) Then
  35.     Me.PRODCIJ = 0
  36.     End If
  37.     If (Me.StanjeKasa.Visible = True) Then
  38.     Me.StanjeKasa = Round(DLookup("Stanje", "qryStanjeSkladista", "ArtSif='" & Me.SIFART & "' and Skladiste='" & "01" & "'"), 2)
  39.     Else
  40.     End If
  41.     'DoCmd.GoToControl "NAZART"
  42.     Call Command39_Click
  43.    
  44. Else
  45.     DoCmd.OpenForm "frmPretrazivanje1"
  46.    
  47. End If
Miro