Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (7):1,2,3,4,5,6,7

#1 16.07.2012 12:56
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Iz Škole VB-a
Evo malo sam prepravio tvoj kod zxz kad čita bar kod iz kojeg čita količinu:
PreuzmiIzvorni kd (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
Miro
↑  ↓

#2 16.07.2012 13:02
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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?
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 16.07.2012 14:07
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Iz Škole VB-a
Vidio sam da mogu otključati nego bolje da se ovo prebaci ovamo
Miro
↑  ↓

#4 16.07.2012 14:16
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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 kd (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
Miro
↑  ↓

#5 16.07.2012 21:11
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#6 17.07.2012 08:33
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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.
Miro
↑  ↓

#7 17.07.2012 11:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#8 17.07.2012 12:47
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


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
↑  ↓

#9 17.07.2012 15:15
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Iz Škole VB-a
Hvala ti evo razmatram sve mogučnosti prvo ću da probam ove procedure koje sam izmjenio.
Miro
↑  ↓

#10 18.07.2012 22:10
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:262


Predmet:Re: Iz Škole VB-a
Gjoreski@

Mene zanima kako to ide barkod i COM?
Pozdrav, Amela
↑  ↓

Stranice (7):1,2,3,4,5,6,7

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 1: 48 pm.