请问这种表达代码上该怎么写

简

Dim strfrmName As String    'strfrmName是窗体名

strfrmName = Screen.ActiveForm.Name

如果要用strfrmName来表达Forms!窗体名，则代码上怎么写呢？

在此先谢了。

todaynew

Dim strfrmName As String    'strfrmName是窗体名

strfrmName = Screen.ActiveForm.Name

forms(strfrmName).caption="某工艺管理窗体"

forms(strfrmName).controls("某控件名").value=12345

简

那请看这段代码：

strfrmName = Screen.ActiveForm.Name
sql = "SELECT工件,Φ直径,厚度,重量,材料 INTO tblzhichenjigou1 FROM tblzhichenjigou WHERE tblzhichenjigou.[工件]=Forms(strfrmName)!sub0.Form!sub0.form!cbozhichen"
   
DoCmd.RunSQL sql

以上代码在运行中没有反应，如果将Forms(strfrmName)改为Forms!窗体名，则代码就正确运行，并显示正确结果，这是为什么呢。我要想用Forms(strfrmName)来显示正确结果，应该怎么处理呢。

todaynew

1、反引号前移至等号后。
2、工件如果是文本的话，应该用单引号。
3、DoCmd.RunSQL sql 肯定不对，因为这个语句是用来执行追加、更新等查询的，选择查询不能这样用法。如果是将这个查询作为某个窗体的数据源或者是作为组合框、列表框的数据源的话，应该用数据源赋值的语句。如果是修改查询的话，那就用修改查询的语句。

红尘如烟

Forms(strfrmName)属于VBA的语法，不能在SQL中用。另外引用子窗体中的控件，可以不用写明.Form属性（最古老的版本除外）

strfrmName = Screen.ActiveForm.Name
sql = "SELECT [工件],[Φ直径],[厚度],[重量],[材料] INTO tblzhichenjigou1 FROM tblzhichenjigou WHERE tblzhichenjigou.[工件]='" & Forms(strfrmName)!sub0!sub0!cbozhichen & "'"

简

谢谢楼上的两位朋友，我的问题解决了，并且学到了一些东西。