Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Vb/Vbnet


Prosiri i skupi Opcije teme
Stranice (3):1,2,3
 Prikazi prvu neprocitanu poruku

#21 06.08.2013 19:29
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: Kasa MSAccess to VB6
Isto me interesira sto se koristi na gridot i formata kako zamena za On Current nastanot
↑  ↓

#22 06.08.2013 19:56
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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

#23 06.08.2013 20:19
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


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

#24 06.08.2013 20:41
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Kasa MSAccess to VB6
Jel i dalje korsitis onaj tvoj tdbGrid?
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#25 06.08.2013 20:55
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: Kasa MSAccess to VB6
da nemam vreme da eksperimentiram treba da ja zavrsam rabotata sto pobrzo
↑  ↓

#26 06.08.2013 20:56
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Kasa MSAccess to VB6
gridStavki_Smetka.Bookmark = 4
gridStavki_Smetka.Col = 2
gridStavki_Smetka.SetFocus
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#27 06.08.2013 21:02
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: Kasa MSAccess to VB6
Koja e funkcijata na ovaj red

gridStavki_Smetka.Bookmark = 4
↑  ↓

#28 06.08.2013 21:19
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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

#29 06.08.2013 22:12
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


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 22:14 od strane Gjoreski. ↑  ↓

#30 06.08.2013 23:21
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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

Stranice (3):1,2,3

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 1: 40 am.