tabel maken en invullen

[rieskedebiker]

Goedemorgen,

Ik wil in access een tabel maken en deze vullen met een aantal records
hiervoor gebruikte ik onderstaande code.

Private Sub Knop0_Click()
On Error Resume Next
DoCmd.RunSQL "CREATE TABLE tableNumbers (A LONG, B LONG, C LONG)"
Err.Clear

A = 10
B = 20
C = 30

For I = 0 To 5
DoCmd.RunSQL "INSERT INTO tableNumbers VALUES ('A','B','C')"
A = A * 2
B = B * 4
C = C * 4
Next I

End Sub

Het lukt me niet om de waarden A, B en C in de tabel te krijgen. Elke record wordt gevuld met A, B en C. Wie kan mij helpen of wat doe ik fout

alvast bedankt

 

[WinteE]

Hoi,

Je script voor de INSERT is niet volledig.

"INSERT INTO tableNumbers (VeldA, VeldB, VeldC) VALUES ('A','B','C')"

De volgorde van de velden en de VALUES moeten aan elkaar gelijk zijn.

Succes.

 

[rieskedebiker]

Goedemorgen,

Ik wil in access een tabel maken en deze vullen met een aantal records
hiervoor gebruikte ik onderstaande code.

Private Sub Knop0_Click()
On Error Resume Next
DoCmd.RunSQL "CREATE TABLE tableNumbers (A LONG, B LONG, C LONG)"
Err.Clear

A = 10
B = 20
C = 30

For I = 0 To 5
DoCmd.RunSQL "INSERT INTO tableNumbers VALUES ('A','B','C')"
A = A * 2
B = B * 4
C = C * 4
Next I

End Sub

Het lukt me niet om de waarden A, B en C in de tabel te krijgen. Elke record wordt gevuld met A, B en C. Wie kan mij helpen of wat doe ik fout

alvast bedankt

code als vogt aangepast, maar werkt nog niet.
wil de letters niet als een numeriek herkennen. als ik ipv de letters a,b,c cijfers invul dan werkt het wel

Private Sub Knop0_Click()
On Error Resume Next
DoCmd.RunSQL "CREATE TABLE tableNumbers ([veldA] LONG,[veldB] LONG,[veldC] LONG)"
Err.Clear

Dim a As Long
Dim b As Long
Dim c As Long
a = 10
b = 20
c = 30

For I = 0 To 5
DoCmd.RunSQL "INSERT INTO tableNumbers ([veldA],[veldB],[veldC]) VALUES ('A','B','C')"
a = a * 2
b = b * 4
c = c * 4
Next I

End Sub

 

[HenkD]

Dit moet werken

code als vogt aangepast, maar werkt nog niet.
wil de letters niet als een numeriek herkennen. als ik ipv de letters a,b,c cijfers invul dan werkt het wel

Private Sub Knop0_Click()
On Error Resume Next
DoCmd.RunSQL "CREATE TABLE tableNumbers ([veldA] LONG,[veldB] LONG,[veldC] LONG)"
Err.Clear

Dim a As Long
Dim b As Long
Dim c As Long
a = 10
b = 20
c = 30

For I = 0 To 5
DoCmd.RunSQL "INSERT INTO tableNumbers ([veldA],[veldB],[veldC]) VALUES ('A','B','C')"
a = a * 2
b = b * 4
c = c * 4
Next I

End Sub

Hallo Ries,

volgens mij moet je het volgende aanpassen:

Private Sub Knop0_Click()
On Error Resume Next
DoCmd.RunSQL "CREATE TABLE tableNumbers ([veldA] LONG,[veldB] LONG,[veldC] LONG)"
Err.Clear

Dim A As Long, B As Long, C As Long

a = 10
b = 20
c = 30

For I = 0 To 5
DoCmd.RunSQL "INSERT INTO tableNumbers ([veldA],[veldB],[veldC]) VALUES (" & A & "," & B & "," & C & ")"
a = a * 2
b = b * 4
c = c * 4
Next I

End Sub

en dan werkt het wel...

Groeten,

Henk