Connecting Tech Pros Worldwide Help | Site Map

VBA adding values to a table

 
LinkBack Thread Tools Search this Thread
  #1  
Old December 28th, 2007, 07:55 PM
Zachary
Guest
 
Posts: n/a
Default VBA adding values to a table

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!

  #2  
Old December 29th, 2007, 01:45 AM
Salad
Guest
 
Posts: n/a
Default Re: VBA adding values to a table

Zachary wrote:
Quote:
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
  #3  
Old December 29th, 2007, 08:25 AM
rael
Guest
 
Posts: n/a
Default Re: VBA adding values to a table

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:
Quote:
Zachary wrote:
Quote:
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
  #4  
Old December 31st, 2007, 03:25 AM
Linq Adams via AccessMonster.com
Guest
 
Posts: n/a
Default Re: VBA adding values to a table

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

  #5  
Old December 31st, 2007, 03:05 PM
rael
Guest
 
Posts: n/a
Default Re: VBA adding values to a table


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

  #6  
Old December 31st, 2007, 03:15 PM
rael
Guest
 
Posts: n/a
Default Re: VBA adding values to a table

On 31 dic, 17:03, rael <rae...@gmail.comwrote:
Quote:
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

 

Bookmarks

Thread Tools Search this Thread
Search this Thread:

Advanced Search

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Popular Articles

What is Bytes?

We are a network of experts and professionals in IT and software development that help one another with answers to tough questions and share insights. Get the best answers to your questions from over 220,662 network members.