By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
426,222 Members | 1,129 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 426,222 IT Pros & Developers. It's quick & easy.

VBA adding values to a table

P: n/a
So I have a text box with a string in it, and I want to get the value
in that text box into a table using VBA but I have no idea how to do
that. Anyone offer any help? Thanks in advance!
Dec 28 '07 #1
Share this Question
Share on Google+
5 Replies


P: n/a
Zachary wrote:
So I have a text box with a string in it, and I want to get the value
in that text box into a table using VBA but I have no idea how to do
that. Anyone offer any help? Thanks in advance!
Look at AddNew method in help. (some other topics include
OpenRecordset, Update, FindFirst, and later on Edit). Of course, you
could also use an Append or Update query. Since you specified VBA, see
Execute in help as well if you want to use a query.

Perhaps
http://www.youtube.com/watch?v=WaCK34LmvTE
Dec 29 '07 #2

P: n/a
Have you tried doing:

DoCmd.SetWarnings False
DoCmd.RunSQL("INSERT INTO 'table_Name' (column_Name) VALUES ("&
StringVariable &");")
DoCmd.SetWarnings True

The SetWarnings disable the "Are you sure that you want to insert X
new rows into the table XXX?" warning.

On 29 dic, 03:36, Salad <o...@vinegar.comwrote:
Zachary wrote:
So I have a text box with a string in it, and I want to get the value
in that text box into a table using VBA but I have no idea how to do
that. Anyone offer any help? Thanks in advance!

Look at AddNew method in help. (some other topics include
OpenRecordset, Update, FindFirst, and later on Edit). Of course, you
could also use an Append or Update query. Since you specified VBA, see
Execute in help as well if you want to use a query.

Perhapshttp://www.youtube.com/watch?v=WaCK34LmvTE
Dec 29 '07 #3

P: n/a
No one's asked the obvious, so I will: Is the textbox bound to the field in
the table?

--
There's ALWAYS more than one way to skin a cat!

Answers/posts based on Access 2000/2003

Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200712/1

Dec 31 '07 #4

P: n/a

If I understand you, I think that you're trying to do something like:

Dim i As Integer
Dim Cadena As String
Dim Valor As String

If IsNull(Me.textbox) Then Exit Sub

Cadena = Me.textbox.Value

DoCmd.SetWarnings False
For i = 1 To Len(Cadena)
Valor = ""
Do While (Mid(Cadena, i, 1) <",") And i < Len(Cadena)
Valor = Valor & Mid(Cadena, i, 1)
i = i + 1
Loop
DoCmd.RunSQL("INSERT INTO 'tabla' ('Columna') VALUES ("& Valor
&");")
Next i
DoCmd.SetWarnings True

Dec 31 '07 #5

P: n/a
On 31 dic, 17:03, rael <rae...@gmail.comwrote:
If I understand you, I think that you're trying to do something like:

* * Dim i As Integer
* * Dim Cadena As String
* * Dim Valor As String

* * If IsNull(Me.textbox) Then Exit Sub

* * Cadena = Me.textbox.Value

* * DoCmd.SetWarnings False
* * For i = 1 To Len(Cadena)
* * * * Valor = ""
* * * * Do While (Mid(Cadena, i, 1) <",") And i < Len(Cadena)
* * * * * * Valor = Valor & Mid(Cadena, i, 1)
* * * * * * i = i + 1
* * * * Loop
* * * * DoCmd.RunSQL("INSERT INTO 'tabla' ('Columna') VALUES ("& Valor
&");")
* * Next i
* * DoCmd.SetWarnings True
I make a mistake, the Do While Loop condition
i < Len(Cadena)
really it's
i < Len(Cadena) + 1

Dec 31 '07 #6

This discussion thread is closed

Replies have been disabled for this discussion.