tieltje1971
Gebruiker
- Lid geworden
- 26 aug 2008
- Berichten
- 8
Hoi !
Een heel verhaal en hoop dat ik een beetje duidelijk ben.
ik heb een tabel, deze bestaat uit meerdere velden van een verschillend type
nu kan ik deze velden aanpassen met functies die ik heb geschreven, dat gaat prima
nu wil ik echter de resultaten van deze functies niet wegschrijven naar deze tabel maar naar een andere tabel.
Om het voorbeeld te conctretiseren, ik heb het volgende
tabel X
Veld1 Veld2 Veld3
aaa bbb ccc
bbb xxx ppp
ddd sss tttt
even voor het gemak gevuld met wat data, nu manipuleer ik met wat fucties deze tabel zodat bijvoorbeeld veld1 3 voorloopnullen krijgt, veld2 in hoofdletters komt en veld 3 123 ervoor krijgt, met dus het volgende resultaat
Veld1 Veld2 Veld3
000aaa BBB 123ccc
000bbb XXX 123ppp
000ddd SSS 123tttt
dit gaat allemaal prima, nu wil ik echter deze resultaten niet wegschrijven naar dezelfde tabel maar naar een andere tabel met als uiteindelijke doel dat ik per record de strings bij elkaar optel. Op zich gaat het prima als ik de berekende waardes wegschrijf naar de tabel met de onderstaande code :
(variabelen, en recordsets zijn gedefinieerd)
With rst
Do While Not .EOF
.Edit
Var1 = Berekening(A, B)
Var2 = Berekening(A, B)
Var3 = Berekening(A, B)
.Update
totaal = Var1 + Var2 + Var3
With rst2
rst2.AddNew
rst2!TotaalString = totaalstringtest
rst2.Update
End With
.MoveNext
Var1 = rst!Veld1
Var2 = rst!Veld2
Var3 = rst!Veld3
On Error Resume Next
Loop
End With
Ik wil echter niet de berekende waardes wegschrijven naar de tabel, maar gewoon direct de string optellen en deze nieuwe string wegschrijven naar mijn nieuwe tabel, dus bijv :
With rst
Do While Not .EOF
.GetRows
Var1 = Berekening(A, B)
Var2 = Berekening(A, B)
Var3 = Berekening(A, B)
totaal = Var1 + Var2 + Var3
With rst2
rst2.AddNew
rst2!TotaalString = totaalstringtest
rst2.Update
End With
.MoveNext
Var1 = rst!Veld1 ******** misschien niet nodig
Var2 = rst!Veld2 ******** misschien niet nodig
Var3 = rst!Veld3 ******** misschien niet nodig
On Error Resume Next
Loop
End With
ik dacht dus ik neem de method getrows om de eerste rij uit te lezen, vervolgens tel ik die strings op en schrijf deze weg (op zich gaat dat prima), maar het lukt me nu niet om het volgende record te lezen (hij blijft de string aanmaken van de 1e record). Wat doe ik hier niet goed ? Alvast bedankt, hoop dat het een beetje duidelijk is.
Een heel verhaal en hoop dat ik een beetje duidelijk ben.
ik heb een tabel, deze bestaat uit meerdere velden van een verschillend type
nu kan ik deze velden aanpassen met functies die ik heb geschreven, dat gaat prima
nu wil ik echter de resultaten van deze functies niet wegschrijven naar deze tabel maar naar een andere tabel.
Om het voorbeeld te conctretiseren, ik heb het volgende
tabel X
Veld1 Veld2 Veld3
aaa bbb ccc
bbb xxx ppp
ddd sss tttt
even voor het gemak gevuld met wat data, nu manipuleer ik met wat fucties deze tabel zodat bijvoorbeeld veld1 3 voorloopnullen krijgt, veld2 in hoofdletters komt en veld 3 123 ervoor krijgt, met dus het volgende resultaat
Veld1 Veld2 Veld3
000aaa BBB 123ccc
000bbb XXX 123ppp
000ddd SSS 123tttt
dit gaat allemaal prima, nu wil ik echter deze resultaten niet wegschrijven naar dezelfde tabel maar naar een andere tabel met als uiteindelijke doel dat ik per record de strings bij elkaar optel. Op zich gaat het prima als ik de berekende waardes wegschrijf naar de tabel met de onderstaande code :
(variabelen, en recordsets zijn gedefinieerd)
With rst
Do While Not .EOF
.Edit
Var1 = Berekening(A, B)
Var2 = Berekening(A, B)
Var3 = Berekening(A, B)
.Update
totaal = Var1 + Var2 + Var3
With rst2
rst2.AddNew
rst2!TotaalString = totaalstringtest
rst2.Update
End With
.MoveNext
Var1 = rst!Veld1
Var2 = rst!Veld2
Var3 = rst!Veld3
On Error Resume Next
Loop
End With
Ik wil echter niet de berekende waardes wegschrijven naar de tabel, maar gewoon direct de string optellen en deze nieuwe string wegschrijven naar mijn nieuwe tabel, dus bijv :
With rst
Do While Not .EOF
.GetRows
Var1 = Berekening(A, B)
Var2 = Berekening(A, B)
Var3 = Berekening(A, B)
totaal = Var1 + Var2 + Var3
With rst2
rst2.AddNew
rst2!TotaalString = totaalstringtest
rst2.Update
End With
.MoveNext
Var1 = rst!Veld1 ******** misschien niet nodig
Var2 = rst!Veld2 ******** misschien niet nodig
Var3 = rst!Veld3 ******** misschien niet nodig
On Error Resume Next
Loop
End With
ik dacht dus ik neem de method getrows om de eerste rij uit te lezen, vervolgens tel ik die strings op en schrijf deze weg (op zich gaat dat prima), maar het lukt me nu niet om het volgende record te lezen (hij blijft de string aanmaken van de 1e record). Wat doe ik hier niet goed ? Alvast bedankt, hoop dat het een beetje duidelijk is.
