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:
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
Pozdrav