VBA - code for passing values from text boxes to the given query

Question

5.00/5 (1 vote)

See more:

VB

SQL

PARAMETERS [Enter Start Date] DateTime, [Enter End Date] DateTime;
Insert into temptblPlacements
SELECT tblPlacements.*
FROM tblPlacements
WHERE (((tblPlacements.CompDate) Between [Enter Start Date] And [Enter End Date]));

How can I Pass values to this Query from textboxes in MS Access

Posted 16-Feb-12 20:17pm

mmsgk251804

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Accepted Answer · 2012-02-17T06:31:00

Solution 1

There are few methods to achieve that, but i need to know the version of Access database...

Running query in form1:

SQL

Insert into temptblPlacements
SELECT tblPlacements.*
FROM tblPlacements
WHERE (((tblPlacements.CompDate) Between #[Forms]![Form1]![TextBox1]# And #[Forms]![Form1]![TextBox2]#));

Running vba code:

VB

Private Sub Button1_Click()
Dim sSQL as String

On Error GoTo Err_Button1_Click

sSQL= "Insert into temptblPlacements" & vbcr & _
    "SELECT tblPlacements.*" & vbcr & _
    "FROM tblPlacements" & vbcr & _
    "WHERE (((tblPlacements.CompDate) Between #" & Me.TextBox1 & "# And #" & Me.TextBox2 & "#));"

CurrentDb.Execute sSQL

Exit_Button1_Click:
    Exit Sub

Err_Button1_Click:
    MsgBox Err.Description, vbExclamation, "Error " & Err.Number
    Resume Exit_Button1_Click
End Sub

Posted 17-Feb-12 6:31am

Maciej Los

Updated 7-Jun-12 18:52pm

v3

Comments

mmsgk251804 20-Feb-12 1:48am

VErsion of MS Access is 2003

mmsgk251804 20-Feb-12 2:02am

For the Same how do I write the Error handler ?

Maciej Los 8-Jun-12 0:53am

Take a look at my naswer after update.

codeBegin 8-Jun-12 2:17am

my 5

Maciej Los 8-Jun-12 6:46am

Thank you ;)

Sandeep Mewara 9-Jun-12 1:20am

5!

Maciej Los 10-Jun-12 12:03pm

Thank you ;)

Shahin Khorshidnia 9-Jun-12 3:00am

Excelent. My +5

Maciej Los 10-Jun-12 12:02pm

Thank you ;)