Passing an InputBox Value to a table

[proximity]

Hi,

A nice easy one, hopefully!

I have have an input box into which a user keys in their name. Can Access then stick this value into a table?

Thanks,

--
Steven

 

[mp9]

One way...

DBEngine(0)(0).Execute("UPDATE YourTableNameHere SET YourFieldNameHere = '" & InputBox(...) & "';")

Although you should probably expand this to make sure the user doesn't cancel, e.g.

Dim strInput as string
strInput = InputBox(...)
If Len(strInput)>0 Then DBEngine(0)(0).Execute("UPDATE YourTableNameHere SET YourFieldNameHere = '" & strInput(...) & "';")

http://www22.brinkster.com/accessory/

 

[MajP]

Sure but there are lots of ways to do it. Provide some details. Is there an open form? What opens the inputbox? When do you want it to occur? etc.

 

[proximity]

Hi,

Function TestTypeThing()
DBEngine(0)(0).Execute ("UPDATE tblUserLogOn SET UserID = '" & InputBox("Enter Your Name") & "';")
End Function

I tried the above. No errors get generated, but it doesn't store the value in the table.

Incidentally, I only want to see if this can be done!! I want the functon to run via a command button, ask for some information and then store it in the table. I was in a hurry (!) so neglected to include the above information. Apologies for that.

 

[mp9]

Oops, forgot that you nned a WHERE clause to specify which record in the table you want to update...

Function TestTypeThing()
DBEngine(0)(0).Execute ("UPDATE tblUserLogOn SET UserID = '" & InputBox("Enter Your Name") & "' WHERE InsertWhere StatementHere;")
End Function

 

[JerryKlmns]

My guess is that "Stick it" means insert..

DBEngine(0)(0).Execute ("INSERT INTO tblUserLogOn (UserID) SELECT '" & InputBox("Enter Your Name") & "';")

 

[proximity]

Hi,

Thanks for all your replies. I solved the riddle by using a record set. Here is the code for anyone who may be interested.

Private Sub cmdAddNewItem_Click()
Dim dbCurrentDatabase As DAO.Database
Dim rstRecordset As DAO.Recordset

Set dbCurrentDatabase = CurrentDb
Set rstRecordset = dbCurrentDatabase .OpenRecordset("rstRecordset")

rstRecordset .AddNew
rstRecordset ("Item").Value = Inputbox("What Item do you wish to add?")
rstRecordset .Update
MsgBox ("Thank you, item has been added")

End Sub

The above works exceedingly well!

 

[ZmrAbdulla]

what you will do if user input nothing/press space and press OK?

________________________________________________________
Zameer Abdulla
Help to find Missing people
Do not cut down the tree that gives you shade.