public sub module, passing data to table

Hello,

I would like to use the following sub routine to take data from a field on a form and pass the data to the table:

Public Sub VGTruck(Driver1_FName As String, Driver1_LName As String)
CurrentDb.Execute "INSERT INTO VGTruckProcessing (Driver1_FName, Driver1_LName) Values ('" & Driver1_FName & "','" & Driver1_LName & " ')"

End Sub


This is on my form that I want to pass the data to
trkproc.VGTruck (me.Name1 , me.Name2)

I want the data from the control,  I tried using "Driver1_FName as Control" but that is wrong too.  Don't know what I should use here.
Ernest GroggAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

James ElliottManaging DirectorCommented:
Try:

Call VGTruck (Name1.Value , Name2.Value)

Open in new window


What error are you getting?
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Ernest GroggAuthor Commented:
Expected end of statement

but changed to this...and works perfectly.

Thanks!
0
hnasrCommented:
Try:
Module:
Public Sub VGTruck(Driver1_FName As String, Driver1_LName As String)
    CurrentDb.Execute "INSERT INTO  VGTruckProcessing (Driver1_FName, Driver1_LName) 
 Values ( '" & Driver1_FName & "','" & Driver1_LName & "')"
End Sub

Open in new window

Calling from a button in form:
Private Sub Command4_Click()
    VGTruck Me.Driver1_FName , Me.Driver1_LName
End Sub

Open in new window


Above code was  modified from the following tested code using Table1 (Gender, DG)
Form fields are f1, f2.
Module:
Public Sub VGTruck(Driver1_FName As String, Driver1_LName As String)
    CurrentDb.Execute "INSERT INTO Table1 (GENDER, DG) Values ( '" & Driver1_FName & "','" & Driver1_LName & "')"
End Sub

Open in new window

Calling from a button in form:  f1 input value for FName, f2 input value for LName
Private Sub Command4_Click()
    VGTruck Me.f1, Me.f2
End Sub

Open in new window

0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.