miro35 |
23.06.2012 10:02 |
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 kodePreuzmiIzvorni kôd (Text):Private Sub SIFART_AfterUpdate()
Me.Kolicina = 1
If Left(Me.SIFART, 1) = "2" Then
If Len(Me.SIFART) < 13 Then
Me.Kolicina = 1
Else
Me.Kolicina = Round(Mid(Me.SIFART, 9, 4) / 1000, 2)
Me.SIFART = Left(Me.SIFART, 7)
End If
End If
If Not IsNull(DLookup("ArtSif", "tblArtikli", "ArtSif='" & Me.SIFART & "'")) Or Not IsNull(DLookup("FSIFRA", "tblArtikli", "FSIFRA='" & Me.SIFART & "'")) Then
If Me.SIFART = (DLookup("FSIFRA", "tblArtikli", "FSIFRA='" & Me.SIFART & "'")) Then
Me.SIFART = DLookup("ArtSif", "tblArtikli", "FSIFRA='" & Me.SIFART & "'")
End If
Me.NazArt = DLookup("ArtNaz", "tblArtikli", "ArtSif='" & Me.SIFART & "'")
Me.Grupa = DLookup("ArtGrupa", "tblArtikli", "ArtSif='" & Me.SIFART & "'")
Me.PORPOS = "0.17"
If IsNull(Me.PORPOS) Then
Me.PORPOS = 0
End If
Me.PORPOS2 = "0"
If IsNull(Me.PORPOS) Then
Me.PORPOS2 = 0
End If
Me.PORPOS3 = "4"
If IsNull(Me.PORPOS) Then
Me.PORPOS3 = 0
End If
Me.PRODCIJ = Round(DLookup("ArtMCije", "tblArtikli", "ArtSif='" & Me.SIFART & "'"), 2)
If IsNull(Me.PRODCIJ) Then
Me.PRODCIJ = 0
End If
If (Me.StanjeKasa.Visible = True) Then
Me.StanjeKasa = Round(DLookup("Stanje", "qryStanjeSkladista", "ArtSif='" & Me.SIFART & "' and Skladiste='" & "01" & "'"), 2)
Else
End If
'DoCmd.GoToControl "NAZART"
Call Command39_Click
Else
DoCmd.OpenForm "frmPretrazivanje1"
End If
|
zxz |
23.06.2012 10:14 |
Predmet:Re: Bar code čitač u MsAccess-u
Probaj hoce li padati mde. |
miro35 |
23.06.2012 10:27 |
Predmet:Re: Bar code čitač u MsAccess-u
Probat ću i to.Samo da napomenem da je i mdb kompajliran code ako je neÅ¡to vezano sa tim. |
zxz |
23.06.2012 10:40 |
Predmet:Re: Bar code čitač u MsAccess-u
Ima dosta verzija accessa koje znaju pasti ali kada se pretvori u nde onda radi.
Trebas probati i na drugom compu.
I jos nesto vidi sta imas u referencama ucitano od axtivx. |
miro35 |
23.06.2012 10:44 |
Predmet:Re: Bar code čitač u MsAccess-u
Od activex imam samo učitano: Microsoft Activex Data Objects 2.5 Libary |
zxz |
23.06.2012 11:32 |
Predmet:Re: Bar code čitač u MsAccess-u
To ti je ADO a mi skoro svi radimo da DAO pa ja to uvijek iskljjucim a ukuljucim DAO.
Mada to nema veze sa ovim tvojim ali eto. |
miro35 |
23.06.2012 11:40 |
Predmet:Re: Bar code čitač u MsAccess-u
Moguće da je i ovo baÅ¡ ću sve isprobati |
miro35 |
23.06.2012 11:44 |
Predmet:Re: Bar code čitač u MsAccess-u
Imam uključen i Microsoft DAO 3.6 Object Library |
Trtimir |
23.06.2012 12:30 |
Predmet:Re: Bar code čitač u MsAccess-u
Otvori novi *.mdb , uvezi sve iz one baze koje ti pada, pa napravi compile u vb kodu , i onda probaj raditi,
A kao što ti kaže @zxz naoravi i *.MDE , jel ti on brže radi a i sigurnije, *.mdb bi ti trebalo služiti kao izvorni kod programa. |