Saving data in Access table with VB ?

[Bauhaus]

I have a form with a button and if you click the button, a list of invoices
are generated and saved in the table 'Invoice'.
Problem is, the data isnt saved :(

Here's my code:

Private Sub Knop0_Click()

Dim Invoicenr As Long
Dim Invoicedate As Date

stdocname = "Invoice"
DoCmd.OpenTable stdocname, acViewNormal, acAd

Invoicenr = 111111
Invoicedate = Now

DoCmd.Save acTable, stdocname

End Sub

What am I doing wrong ?

[kingston via AccessMonster.com]

I'm going to offer a solution without answering your question:

Dim strSQL as string

strSQL = "INSERT INTO Invoice(Invoicenr, Invoicedate) SELECT 111111, '" & Now
() & "';"
DoCmd.RunSQL strSQL
Bauhaus wrote:

>I have a form with a button and if you click the button, a list of invoices
are generated and saved in the table 'Invoice'.
Problem is, the data isnt saved :(

Here's my code:

Private Sub Knop0_Click()

Dim Invoicenr As Long
Dim Invoicedate As Date

stdocname = "Invoice"
DoCmd.OpenTable stdocname, acViewNormal, acAd

Invoicenr = 111111
Invoicedate = Now

DoCmd.Save acTable, stdocname

End Sub

What am I doing wrong ?

--
Message posted via http://www.accessmonster.com

[Bauhaus]

Thnx, I'll try it :-)