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