VBA-用于将值从文本框传递到给定查询的代码 [英] VBA - code for passing values from text boxes to the given query

问题描述

参数[输入开始日期]  DateTime ，[输入结束 日期]  DateTime ；
插入 插入 temptblPlacements
选择 tblPlacements.*
 FROM  tblPlacements
位置((((tblPlacements.CompDate)之间 [输入开始日期] 然后 [输入结束 日期])); 

如何从MS Access中的文本框将值传递给此查询. .

在form1中运行查询:

 插入 插入 temptblPlacements
选择 tblPlacements.*
 FROM  tblPlacements
位置((((tblPlacements.CompDate)之间 ## Forms！[Form1]！[TextBox1]#  And #[Forms]！[Form1]！[TextBox2]#)); 

运行vba代码:

 私有  Sub  Button1_Click()
 Dim  sSQL  as   String 

打开 错误 转到 Err_Button1_Click

sSQL = " & vbcr& _
    " & vbcr& _
    " & vbcr& _
    " & "  #和#"& 我 .TextBox2& " 

CurrentDb.执行sSQL

Exit_Button1_Click:
    退出 子

Err_Button1_Click:
    MsgBox错误说明，vbExclamation，" &错误号
    恢复 Exit_Button1_Click
结束 子 

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

解决方案

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

Running query in form1:

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

Running vba code:

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

这篇关于VBA-用于将值从文本框传递到给定查询的代码的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！