How do I copy data from a form to a table?

[YuvalH]

I'm trying to copy the data from my form to my table. I wrote this code. and when I'm activating it an error '3061' pops.

[
Private Sub ADD_Click()
    CurrentDb.Execute "INSERT INTO MAIN(File_Name, File_Type) VALUES('" & File_Name & "', " & File_Type & ")"
    Main2.Form.Requery
End Sub
]

EDITED BY THE_DOC_MAN to insert CODE tags; no other changes

the form:

thx for the help

 

[The_Doc_Man]

Error "3061" is "Too few parameters." I suspect the File_Type should be quoted in the same way as you did for File_Name, with the apostrophe to enclose the substituted string.

 

[Gasman]

Why not use a bound form?

 

[NauticalGent]

Why not simply base the form on the table itself?

 

[YuvalH]

Why not use a bound form?

I cant extract the file name and the type in a table so I need to copy them from the form

 

[YuvalH]

Error "3061" is "Too few parameters." I suspect the File_Type should be quoted in the same way as you did for File_Name, with the apostrophe to enclose the substituted string.

Didn't work

 

[Gasman]

I cant extract the file name and the type in a table so I need to copy them from the form

What?

 

[June7]

Try:

CurrentDb.Execute "INSERT INTO MAIN(File_Name, File_Type) VALUES('" & Me.File_Name & "', '" & Me.File_Type & "')"

InStrRev is not available to table Calculated field. However, if you can do that string manipulation in textbox, should be able to do in query.

 

[bastanu]

How do you add new records to the form? In the AfterUpdate event of the file textbox update the two fields (FileName and FIleType):

Me.FileName=Mid([File].....'copy the expression you currently have in the control source property
Me.FileType=Right([File].....'copy the expression you currently have in the control source property

And make the two texboxes bound to the corresponding fields as the others suggested; no need for a separate Insert....

Cheers,

 

[CJ_London]

may be as simple as you are missing single quotes around file_type

VALUES('" & File_Name & "', " & File_Type & ")"

edit - already suggested by Doc and June

 

[YuvalH]

Try:

CurrentDb.Execute "INSERT INTO MAIN(File_Name, File_Type) VALUES('" & Me.File_Name & "', '" & Me.File_Type & "')"

InStrRev is not available to table Calculated field. However, if you can do that string manipulation in textbox, should be able to do in query.

It worked but there is a problem.
It puts the file name and type one row beneath where its soposed to be

 

[theDBguy]

It worked but there is a problem.
It puts the file name and type one row beneath where its soposed to be
View attachment 97867

Hi. Welcome to AWF!

Sounds like you didn't really want an INSERT but an UPDATE instead.

 

[June7]

Maybe don't even need SQL at all. If you want to populate fields of current record on form, simply:

Me!File_Name = Me.File_Name
Me!File_Type = Me.File_Type

The real trick is figuring out what event to put code in. Maybe form BeforeUpdate.

 

[bastanu]

See post # 9 where I suggested to use the AfterUpdate event of the File textbox....

 

[YuvalH]

See post # 9 where I suggested to use the AfterUpdate event of the File textbox....

I forgot to reply... It worked! thx

 

[bastanu]