Gjoreski 06.08.2013 19:29
Predmet:Re: Kasa MSAccess to VB6

Isto me interesira sto se koristi na gridot i formata kako zamena za On Current nastanot

zxz 06.08.2013 19:56
Predmet:Re: Kasa MSAccess to VB6

me.data.Refresh
naravno data od grida ako radis sa data.
Grid nema rekorde da broji jedino ga mozes refresirati.

Gjoreski 06.08.2013 20:19
Predmet:Re: Kasa MSAccess to VB6

Jas go imam reseno so Recordset
PreuzmiIzvorni kôd (Visual Basic):
  1. Set rsSmetki = New Recordset
  2.       rsSmetki.Open "SHAPE {select * from tblSmetki order by ID_Smetka} AS ParentCMD APPEND ({SELECT tblSmetki_Stavki.ID_Stavka, tblSmetki_Stavki.Smetka_Br, tblSmetki_Stavki.Stavka, tblSmetki_Stavki.Ed_Mera, tblSmetki_Stavki.Kolicina, tblSmetki_Stavki.Ed_Cena, tblSmetki_Stavki.Posledna_Prod_Cena, tblSmetki_Stavki.Popust, tblSmetki_Stavki.DDV, tblSmetki_Stavki.R_Br, tblSmetki_Stavki.Barkod, [Ed_Cena]*[Kolicina] AS Vkupno FROM tblSmetki_Stavki Order By R_Br} AS ChildCMD RELATE ID_Smetka TO Smetka_Br) AS ChildCMD", cn, adOpenStatic, adLockOptimistic

no koga ke mu napravam na recordsetot Requery ne reagira nisto
koga ke stavam gridStavki_Smetka.ReBind togas e ok no me vraka na pocetok na stavkite odnosno na prviot Row

zxz 06.08.2013 20:41
Predmet:Re: Kasa MSAccess to VB6

Jel i dalje korsitis onaj tvoj tdbGrid?

Gjoreski 06.08.2013 20:55
Predmet:Re: Kasa MSAccess to VB6

da nemam vreme da eksperimentiram treba da ja zavrsam rabotata sto pobrzo

zxz 06.08.2013 20:56
Predmet:Re: Kasa MSAccess to VB6

gridStavki_Smetka.Bookmark = 4
gridStavki_Smetka.Col = 2
gridStavki_Smetka.SetFocus

Gjoreski 06.08.2013 21:02
Predmet:Re: Kasa MSAccess to VB6

Koja e funkcijata na ovaj red

gridStavki_Smetka.Bookmark = 4

zxz 06.08.2013 21:19
Predmet:Re: Kasa MSAccess to VB6

a = gridStavki_Smetka.Bookmark
b=gridStavki_Smetka.Col
ovako zabiljezis gdje si stao
e onda mozes poslije postaviti gdje hoces.

E sad neznam sta si konkretno htio da uradis.

Gjoreski 06.08.2013 22:12
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

zxz 06.08.2013 23:21
Predmet:Re: Kasa MSAccess to VB6

Citat:
Case 1 'Barkod pole
ArtikalID = ""
'Barkod
ArtikalID = DLookup("ID_Artikal", "tblArtikli", "Artikal_BarKod='" & gridStavki_Smetka.Columns(1).Text & "'")
If IsNull(ArtikalID) Or ArtikalID = "" Then
' MsgBox "nema barkod"
'Sifra
ArtikalID = DLookup("ID_Artikal", "tblArtikli", "Artikal_Sifra='" & gridStavki_Smetka.Columns(1).Text & "'")
If IsNull(ArtikalID) Or ArtikalID = "" Then
' MsgBox "nema sifra"
frmNajdi_Artikal.Show
frmNajdi_Artikal.pret.Text = gridStavki_Smetka.Columns(1).Text
' Naziv
End If

jel se radi o ovom dijelu koda.