miro35 16.07.2012 12:56
Predmet:Iz Å kole VB-a

Evo malo sam prepravio tvoj kod zxz kad čita bar kod iz kojeg čita količinu:
PreuzmiIzvorni kôd (Text):
  1. On Error GoTo Err_SIFART_AfterUpdate
  2. Dim Db As DAO.Database
  3. Dim Rs As DAO.Recordset
  4. Dim BarKod As String, SQL As String
  5.  
  6. BarKod = Trim(Me.SIFART)
  7. Me.Kolicina = 1
  8. Set Db = CurrentDb()
  9. If Left(BarKod, 1) = "2" Then
  10.    If Len(BarKod) < 13 Then
  11.       Me.Kolicina = 1
  12.    Else
  13.       Me.Kolicina = Round(Mid(BarKod, 9, 4) / 1000, 2)
  14.       BarKod = Left(BarKod, 7)
  15.     End If
  16. End If
  17.  
  18. SQL = "SELECT Fsifra,ArtSif,ArtNaz,ArtGrupa,ArtMcije FROM tblArtikli " _
  19.     & "WHERE ArtSif='" & BarKod & "'"
  20. Set Rs = Db.OpenRecordset(SQL)
  21.  
  22. If Rs.RecordCount > 0 Then
  23.     Me.SIFART = Rs!ArtSif
  24.     Me.NazArt = Rs!ArtNaz
  25.     Me.Grupa = Rs!ArtGrupa
  26.     Me.PORPOS = 17
  27.     Me.PORPOS2 = 0
  28.     Me.PORPOS3 = 4
  29.     Me.PRODCIJ = Rs!ArtMCije
  30.     If (Me.StanjeKasa.Visible = True) Then
  31.     Me.StanjeKasa = Round(DLookup("Stanje", "qryStanjeSkladista", "ArtSif='" & Me.SIFART & "' and Skladiste='" & Me.SkladisteKasa & "'"), 2)
  32.     If IsNull(Me.StanjeKasa) Then
  33.     Me.StanjeKasa = "0,00"
  34.     End If
  35.     Else
  36.     End If
  37.     'DoCmd.GoToControl "NAZART"
  38.     Call Command39_Click
  39.     Me.LISTBOX2.Requery
  40. If (Me.StanjeKasa.Visible = True) Then
  41. If (Me.StanjeKasa <= 0) Then
  42. If MsgBox("Sigurno želite izdati veu koli
  43. inu od one koju imate na skladištu: '" & Me.StanjeKasa & "'?", vbQuestion + vbYesNo, "Potvrda Knjiženja") = vbYes Then
  44. Else
  45. DoCmd.SetWarnings False
  46. DoCmd.RunSQL "DELETE FROM STAVKEMP  WHERE BROULIZ='" & Me.BROIZD & "' and BROSTAV='" & Format$(Forms.frmIZLAZMP.BROSTAV - 1, "0000") & "'"
  47. DoCmd.SetWarnings True
  48. Me.StanjeKasa = "0,00"
  49. Me.LISTBOX2.Requery
  50. Me.UKUPNO = DSum("PRODCIJUK", "qrySTAVKEMP", "BROULIZ='" & Me.BROIZD & "' and DATULIZ=#" & Format$(Me.DATIZD, "mm\/dd\/yyyy") & "#")
  51. DoCmd.SetWarnings False
  52. DoCmd.RunSQL "UPDATE GLSTAVKEMP SET IZNOS='" & Me.UKUPNO & "' WHERE BROULIZ='" & Me.BROIZD & "'"
  53. DoCmd.SetWarnings True
  54. If IsNull(DLookup("BROSTAV", "STAVKEMP", "BROULIZ='" & Me.BROIZD & "' and  DATULIZ=#" & Format$(Me.DATIZD, "mm\/dd\/yyyy") & "#")) Then
  55. Me.BROSTAV = Format$("1", "0000")
  56. Else
  57. Me.BROSTAV = Format$((DMax("BROSTAV", "STAVKEMP", "BROULIZ='" & Me.BROIZD & "' and  DATULIZ=#" & Format$(Me.DATIZD, "mm\/dd\/yyyy") & "#")) + 1, "0000")
  58. End If
  59. End If
  60. Else
  61. End If
  62. Else
  63. End If
  64.  
  65. Else
  66.     DoCmd.OpenForm "frmPretrazivanje1"
  67.    
  68. End If
  69. 'DoCmd.GoToControl "SIFART"
  70. Rs.Close
  71. Set Db = Nothing
  72. 'Call POREZ
  73. On Error Resume Next
  74.    
  75. Exit_SIFART_AfterUpdate:
  76.     Exit Sub
  77.  
  78. Err_SIFART_AfterUpdate:
  79.     MsgBox "GreÅ¡ka unosa bar koda pokuÅ¡ajte ponovno!", vbExclamation, "Nepotpun unos"
  80.     Me.SIFART = ""
  81.     Resume Exit_SIFART_AfterUpdate
Imat ću joÅ¡ neÅ¡to u vezi kataloÅ¡kog broja pa ću i to postaviti ali čini mi se da će ovo biti dobro samo moram joÅ¡ to na terenu ispitati,kod mene radi dobro.
Hvala

zxz 16.07.2012 13:02
Predmet:Re: Iz Å kole VB-a

Uf ja vjerovatno zakljucao temu.
Mogao si je ti otkljuati ali eto.
Mozda je ovako i bolje.

Dobro probaj pa javi?

miro35 16.07.2012 14:07
Predmet:Re: Iz Å kole VB-a

Vidio sam da mogu otključati nego bolje da se ovo prebaci ovamo

miro35 16.07.2012 14:16
Predmet:Re: Iz Å kole VB-a

JoÅ¡ ako može.Nisam siguran kako i gdje ovo postaviti.Ovo mi služi ukoliko korisnik ukuca kataloÅ¡ki broj da ga pronađe i umjesto njega upiÅ¡e Å¡ifru u textbox.A polje u tabeli se zove FSIFRA:
PreuzmiIzvorni kôd (Text):
  1. If Not IsNull(DLookup("ArtSif", "tblArtikli", "ArtSif='" & Me.SIFART & "'")) Or Not IsNull(DLookup("FSIFRA", "tblArtikli", "FSIFRA='" & Me.SIFART & "'")) Then
  2.     If Me.SIFART = (DLookup("FSIFRA", "tblArtikli", "FSIFRA='" & Me.SIFART & "'")) Then
  3.     Me.SIFART = DLookup("ArtSif", "tblArtikli", "FSIFRA='" & Me.SIFART & "'")
  4.     End If

zxz 16.07.2012 21:11
Predmet:Re: Iz Å kole VB-a

samo umjesto Me:SIFART stavi BarKod.
Posto si to prepisao u memorijsku a uzimas samo sedam slijeva ja to ponovo nisam prepisao U polje SIFART bojeci se da todje do konflikta.

miro35 17.07.2012 08:33
Predmet:Re: Iz Å kole VB-a

Ovo sad radi isprobao sam.Hvala ti.Sad joÅ¡ na terenu da vidim.Ma vjerovatno je to Å¡to si rekao za ADO i DAO.Sad sam čitav kod promjenio sa DAO.Recordset i DAO.Datebase. Samo joÅ¡ me neÅ¡to muči bar kod čitač je na USB a taj komp nekad zna javiti kad se pali neku usb greÅ¡ku.Pa nisam siguran da mat ploča ne stvara neki konflikt sa USB-ovima.Možda to prekida jer je bar kod na usb.

zxz 17.07.2012 11:17
Predmet:Re: Iz Å kole VB-a

Moze lako biti i sigurno jeste nesto i do njega ali po meni nebi trebao padati access.
Probaj podici jos neku app. dok to radi pa vidi hoce li i ona pasti(da nije do memorije) mada sumnjam.
Proja bar kod u vordu ili exelu.

Gjoreski 17.07.2012 12:47
Predmet:Re: Iz Å kole VB-a

ne bi trebalo da imas problem so usb to ,edinstveno moze da ti se javi problem ako se pokrene nekoja aplikacija vo pozadina i da ti go odzemi fokusot na programata ,zatoa jas predpocitam da koristam barkod na COM porta procedura so mscomm32.ocx i problemi nemam nikakvi ako ti treba nesto kazi i dobivas vednas.
Pozdrav

miro35 17.07.2012 15:15
Predmet:Re: Iz Å kole VB-a

Hvala ti evo razmatram sve mogučnosti prvo ću da probam ove procedure koje sam izmjenio.

Amelasar 18.07.2012 22:10
Predmet:Re: Iz Å kole VB-a

Gjoreski@

Mene zanima kako to ide barkod i COM?