Prikazi cijelu temu 06.08.2013 23:12
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Kasa MSAccess to VB6
Eve da pojasnam sto rabotam sega
Na subformata vo stariot program imav kod na Barkod_AfterUpdate za barcodot od artiklot
PreuzmiIzvorni kфd (Visual Basic):
  1. Private Sub Barkod_AfterUpdate()
  2. On Error Resume Next
  3. Dim BarCod As String
  4.  
  5. BarCod = Me.Barkod
  6. Artikalce = DLookup("ID_Artikal", "tblArtikli", "Artikal_BarKod='" & BarCod & "'")
  7. If IsNull(Artikalce) Or Artikalce = "" Then
  8. 'MsgBox "Не постои таков артикал "
  9.   DoCmd.OpenForm "frmNajdi_Artikal", acNormal
  10.  
  11.  
  12. Me.Undo
  13. Exit Sub
  14. Else
  15.    Me.Smetka_Br = Forms![frmKasa]![ID_Smetka]
  16.    Me.Stavka = Artikalce
  17.    Me.DDV = Stavka.Column(2)
  18.    Me.Ed_Cena = Stavka.Column(3)
  19.    Me.Barkod = Stavka.Column(6)
  20.    Me.Posledna_Prod_Cena = Stavka.Column(3)
  21.    DoCmd.RunCommand acCmdSaveRecord
  22.    DoCmd.GoToRecord , , acNewRec
  23.    SendKeys "{LEFT}"
  24.    Me.Kolicina.SetFocus
  25.  
  26. End If
  27. End Sub
sega vo gridot go zamenav so ovaj cod
PreuzmiIzvorni kфd (Visual Basic):
  1. Private Sub gridStavki_Smetka_AfterColUpdate(ByVal ColIndex As Integer)
  2.  
  3.     Select Case ColIndex
  4.            Case 1 'Barkod pole
  5.             ArtikalID = ""
  6.              'Barkod
  7.             ArtikalID = DLookup("ID_Artikal", "tblArtikli", "Artikal_BarKod='" & gridStavki_Smetka.Columns(1).Text & "'")
  8.              If IsNull(ArtikalID) Or ArtikalID = "" Then
  9.              ' MsgBox "nema barkod"
  10.             'Sifra
  11.                ArtikalID = DLookup("ID_Artikal", "tblArtikli", "Artikal_Sifra='" & gridStavki_Smetka.Columns(1).Text & "'")
  12.                 If IsNull(ArtikalID) Or ArtikalID = "" Then
  13.                ' MsgBox "nema sifra"
  14.               frmNajdi_Artikal.Show
  15.                frmNajdi_Artikal.pret.Text = gridStavki_Smetka.Columns(1).Text
  16.                ' Naziv
  17.                End If
  18.             Else
  19.                  gridStavki_Smetka.Columns(0).Value = gridStavki_Smetka.ApproxCount
  20.                  gridStavki_Smetka.Columns(2).Value = ArtikalID
  21.                  gridStavki_Smetka.Columns(3).Value = DLookup("Ed_Mera", "tblArtikli", "ID_Artikal=" & ArtikalID)
  22.                  gridStavki_Smetka.Columns(4).Value = 1
  23.                  gridStavki_Smetka.Columns(5).Value = DLookup("Artikal_Prodazna_Cena", "tblArtikli", "ID_Artikal=" & ArtikalID)
  24.                  gridStavki_Smetka.Columns(6).Value = DLookup("Artikal_DDV", "tblArtikli", "ID_Artikal=" & ArtikalID)
  25.                 ' gridStavki_Smetka.Col = 4
  26.                 SendKeys "{RIGHT}"
  27.                  SendKeys "{RIGHT}"
  28.                  SendKeys "{RIGHT}"
  29.              End If
  30.             Case 2  ' Stavka pole
  31.             ArtikalID = ""
  32.              'Barkod
  33.                 ArtikalID = gridStavki_Smetka.Columns(2).Value
  34.                  If IsNull(gridStavki_Smetka.Columns(0).Value) Or gridStavki_Smetka.Columns(0).Value = "" Then
  35.                     gridStavki_Smetka.Columns(0).Value = gridStavki_Smetka.ApproxCount
  36.                  Else
  37.                     gridStavki_Smetka.Columns(0).Value = gridStavki_Smetka.Columns(0).Value
  38.                  End If
  39.                  gridStavki_Smetka.Columns(0).Value = gridStavki_Smetka.ApproxCount
  40.                  gridStavki_Smetka.Columns(1).Value = DLookup("Artikal_BarKod", "tblArtikli", "ID_Artikal=" & ArtikalID)
  41.                  gridStavki_Smetka.Columns(2).Value = ArtikalID
  42.                  gridStavki_Smetka.Columns(3).Value = DLookup("Ed_Mera", "tblArtikli", "ID_Artikal=" & ArtikalID)
  43.                  gridStavki_Smetka.Columns(4).Value = 1
  44.                  gridStavki_Smetka.Columns(5).Value = DLookup("Artikal_Prodazna_Cena", "tblArtikli", "ID_Artikal=" & ArtikalID)
  45.                  gridStavki_Smetka.Columns(6).Value = DLookup("Artikal_DDV", "tblArtikli", "ID_Artikal=" & ArtikalID)
  46.                  SendKeys "{RIGHT}"
  47.                  SendKeys "{RIGHT}"
  48.             Case 4  'kolicina pole
  49.                If gridStavki_Smetka.Columns(4).Value <= 0 Then
  50.                    gridStavki_Smetka.Columns(4).Value = 1
  51.                    gridStavki_Smetka.Columns(4).RefreshCell
  52.                 End If
  53.                  
  54.             Case Else
  55.          
  56.      End Select
  57.  
  58. End Sub
ova sve funkcionira no poleto vkupno na krajot od gridot ostanuva prazno
Ovaj post je ureden 1 puta. Posljednja izmjena 06.08.2013 23:14 od strane Gjoreski.