Prikazi cijelu temu
28.01.2011 13:12
28.01.2011 13:12
Predmet:Re: Server i Access baza
Pozdrav,
danas sam opet usporedno kontrolirao slaganje i za sada nema nikakvih problema.
Iako ja opet inzistiram na slganju jer mi je to bitno jer su i pogonu traže da Å¡ema u izvjeÅ¡taju bude sortirana po određenom pravilu.
Evo ja sam napravio neki komplicirani Query koji mi je uspio konvertirati strimg u broj pa sada slaže kako treba.
Pokušavao sam sa Val i sa CLng ali me ne sluša, uvjek 10 stavi ispred 2
Vidi u prilogu.
Druga stvar koja me pati je da bi sada jedno vrijeme prije nego Å¡to potpuno pređem na tvoj kod, radim paralelno sa stari i novim.
Zato bi mi trebalo da kada upisujem nove podatke u stare teblice (tblKombinacija, Stroj, Sklop itd,) da mi se istovremeno isti poadci u***u i novu tbl_Zbizna kako bi sve bilo ažurirano.
Ja sam na formi za upis podataka u tablicu tblKombinacija napisao slijedeći kod:
Alt to mi se ne čini baÅ¡ najbolje jer bi mi treba lo da ako neÅ¡to obriÅ¡em iz stare tablice da se i u tbl_Zbirna obriÅ¡e.
Prilozi:
Pozdrav,
danas sam opet usporedno kontrolirao slaganje i za sada nema nikakvih problema.
Iako ja opet inzistiram na slganju jer mi je to bitno jer su i pogonu traže da Å¡ema u izvjeÅ¡taju bude sortirana po određenom pravilu.
Evo ja sam napravio neki komplicirani Query koji mi je uspio konvertirati strimg u broj pa sada slaže kako treba.
Pokušavao sam sa Val i sa CLng ali me ne sluša, uvjek 10 stavi ispred 2
Vidi u prilogu.
Druga stvar koja me pati je da bi sada jedno vrijeme prije nego Å¡to potpuno pređem na tvoj kod, radim paralelno sa stari i novim.
Zato bi mi trebalo da kada upisujem nove podatke u stare teblice (tblKombinacija, Stroj, Sklop itd,) da mi se istovremeno isti poadci u***u i novu tbl_Zbizna kako bi sve bilo ažurirano.
Ja sam na formi za upis podataka u tablicu tblKombinacija napisao slijedeći kod:
PreuzmiIzvorni kôd (vbnet):
- Private Sub Form_AfterInsert()
- Dim Baza As Database
- Dim SL_Staro As Recordset
- Dim SL_Novo As Recordset
- Set Baza = CurrentDb()
- Set SL_Staro = Baza.OpenRecordset("tblKombinacija", dbOpenDynaset)
- Set SL_Novo = Baza.OpenRecordset("tbl_Zbirna", dbOpenDynaset)
- If SL_Staro.RecordCount > 0 Then
- SL_Staro.MoveLast
- While Not SL_Staro.EOF
- With SL_Novo
- .AddNew
- ![kat] = 0
- ![IDStroja] = SL_Staro![IDStroja]
- ![IndexSklop] = SL_Staro![IndexStroj]
- ![IDdijela] = SL_Staro![IDdijela]
- ![Kom] = SL_Staro![Kom]
- ![sort] = 0
- .Update
- End With
- SL_Staro.MoveNext
- Wend
- End If
- End Sub
Alt to mi se ne čini baÅ¡ najbolje jer bi mi treba lo da ako neÅ¡to obriÅ¡em iz stare tablice da se i u tbl_Zbirna obriÅ¡e.
Prilozi:
slaganje.rar
Preuzimanja:171
Velicina datoteke:52.27 KB
Preuzimanja:171
Velicina datoteke:52.27 KB
Pozdrav