【篇一】:ACCESS如何在窗体间传递参数
ACCESS如何在窗体间传递参数
最简单的方法是使用全局变量传递，简单明了，无需复杂代码，但多窗体情况下无法确定回传对象。
例：有三个窗体FormA; FormB; FormC，都会调用窗体FormD，FormD在计算出值后无法确定回传给哪个窗体。
无需复杂代码，使用Docmd.OpenForm 的 OpenArgs 参数来传递参数，就可很好的解决。 发送窗体FormA; FormB; FormC
Dim sParameter as String
sParameter = Me.Name & ";" & ActiveControl.Name & ";"
DoCmd.OpenForm "FormD", acForm, , , , , sParameter
接收窗体FormD - 接收
Private Sub Form_Load()
Dim sParameterA() As String
sParameterA = Split(Me.OpenArgs, ";")
ControlName.Value = Forms(sParameterA(0)).Controls(sParameterA(1)).Value
End Sub
接收窗体FormD - 回传
Private Sub Form_Close()
Dim sParameterA() As String
sParameterA = Split(Me.OpenArgs, ";")
Forms(sParameterA(0)).Controls(sParameterA(1)).Value = ControlName.Value
End Sub
该方法代码简单、回传明确、便于窗体的重复调用。
在实际开发应用中，经常需要在窗体间传递参数。常用的几种参数传递方法有如下几种： 1。使用openargs 在调用的窗体使用如下语句： doc
在实际开发应用中，经常需要在窗体间传递参数。常用的几种参数传递方法有
如下几种：
1。使用openargs
在调用的窗体使用如下语句：
docmd.openform "被调用的窗体"， ， ， ， ， ， "参数值"
在被调用的窗体使用me.openargs即可获取传递过来的参数
2。使用全局变量
先设置一个全局变量，例如：gstrPara，
Public gstrPara as string
在调用之前传递参数值给这个全局变量
gstrPara="参数值"
docmd.openform "被调用的窗体"
在被调用的窗体里使用gstrPara即可获取传递过来的参数
3。使用tag标记
将要传递的参数放置在调用窗体的tag标记里
在被调用的窗体里通过调用 forms.tag 来获取参数值
4。使用模块变量
在调用窗体设置一个公共的模块变量 mstrPara
将要传递的参数放置在调用窗体的mstrPara变量里
在被调用的窗体里通过调用 forms.mstrPara 来获取参数值
5。直接获取
假如参数来自调用窗体的控件，也可直接调用
在被调用的窗体里直接引用调用窗体的控件的值 如：forms.控件名.value
6。多个参数传递
假如需要传递多个参数，可将参数合并到一个变量里传送（使用指定符号隔开），然后在被调用窗体再拆分这些变量，以达到多个参数传递的效果。
不过，因为一般传递两个参数的时候，多数一个是变量，一个是窗体本身， 所以我常用的方法也是比较实用的方法是：
在调用窗体使用如下语句：
docmd.openform "被调用的窗体"， ， ， ， ， ， "参数值"
而在被调用的窗体里设置一个模块变量 mfrmSrc参数查询窗体。
在被调用的窗体的open或load事件中设置
set mfrmSrc= screen.activeform
这时mfrmSrc就指向原来的调用窗体（因为在窗体未完全加载好前，屏幕上激活的窗体是原来的窗体）
使用mfrmSrc你可以获取调用窗体上所有控件及相关的值，并且不需要事先知道原来窗体的名称，具有比较强的通用性。
应该还有更多更好的参数传递方法，不一一举例，也希望大家共同讨论这个话题，相关回复请发表评论。
【篇二】:窗体报表操作题答案
第5章 窗体
窗体1-5：2、4、10、16、71 窗体6-10：2、3、18、32、35
窗体11-15：47、53、56、59、62 窗体16-20：70、72、107、109、130
Access窗体操作题
代码中常用的属性：标题 Caption ；前景色 foreColor ；是否可用 Enabled ；记录源 RecordSource 4、
（5）设置命令按钮bTest的单击事件属性为给定的宏对象m1；参数查询窗体。
本题直接选择事件，运行宏m1
如果要求写入运行宏的代码就为：docmd.runmacro “宏名称”
即：docmd.runmacro “m1”
35、
（5）设置所建命令按钮bC的单击事件，使用户单击该命令按钮后，CDID标签的显示颜色改为红色。要求用VBA代码实现。 属性设置为： 对象名.属性名=值
窗体为：form.属性名=值 如：form.caption=time() 也可以：me.caption=time()
本题是将CDID文本框所带标签改变颜色： CDID_标签.forecolor=vbred 或 CDID_标签.forecolor=rgb(255,0,0)
53、（1）将窗体"fEmp"上文本框"tSS"更改为组合框类型，保持控件名称不变。设置其相关属性实现下拉列表形式输入性别"男"和"女"； 选择文本框右键，选择更改为组合框，在属性窗口设置属性行来源：男;女（不要选择控件来源），行来源类型：值列表。
（2）修改查询对象"qEmp"为参数查询，参数为引用窗体对象"fEmp"上文本框"tSS"的输入值；
在查询qemp的设计视图下：添加性别字段，在条件行输入：[forms]![femp]![tss]。注意：性别不显示。
（3）设置窗体对象"fEmp"上文本框"tPa"为计算控件。要求依据"党员否"字段值显示内容："党员否"字段值为True，显示"党员"两字；"党员否"字段值为False，显示"非党员"三字；
=iif([党员否]=true,”党员”,”非党员”)
（4）单击"刷新"按钮（名为"bt1"），事件过程动态设置窗体记录源为查询对象"qEmp"，实现窗体数据按性别条件动态显示；单击"退出"按钮（名为"bt2"），关闭窗体。
Form.recordsource=”qemp”
Docmd.close
56、（5）在窗体中有一个"显示全部记录"命令按钮（名称为bList），单击该按钮后，应实现将"tStudent"表中的全部记录显示出来的功能。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。
Select * from tstudent 可以参考这条语句上面的语句。
59、（5）在窗体中有一个"退出"命令按钮（名称为bQuit），单击该按钮后，应关闭"fStudent"窗体。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。
Docmd.close
62、（5）在窗体中还有"修改"和"保存"两个命令按钮，名称分别为"CmdEdit"和"CmdSave"，其中"保存"命令按钮在初始状态为不可用，当单击"修改"按钮后，应使"保存"按钮变为可用。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。 cmdsave.enabled=true
70、（1）将窗体"fEmp"上文本框"tSS"更改为组合框类型，并保持控件名称不变；
同53题
（2）修改查询对象"qEmp"为参数查询，参数为引用窗体对象"fEmp"上文本框"tSS"的输入值；
同53题
（3）设置窗体对象"fEmp"上文本框"tAge"为计算控件。要求根据"年龄"字段值依据以下计算公式计算并显示人员的出生年；计算公式：出生年=Year(Date())-年龄 或 出生年=Year(Now())-年龄
= Year(Date())-[年龄]
（4）单击"退出"按钮（名为"bt2"），关闭窗体。补充事件代码。
Docmd.close
71、
（5）当单击"退出"命令按钮时，运行宏"关闭窗口"，关闭"menu"窗体，返回到数据库窗口下。
本题以命令按钮向导做最为容易，学会是否出现控件向导的操作
72、（5）在窗体中还有"修改"和"保存"两个命令按钮，名称分别为"CmdEdit"和"CmdSave"，其中"保存"命令按钮在初始状态为不可用，当单击"修改"按钮后，"保存"按钮变为可用，同时在窗体的左侧显示出相应的信息和可修改的信息。如果在"口令"文本框中输入的内容与在"确认口令"文本框中输入的内容不相符，当单击"保存"按钮后，屏幕上应弹出如下图所示的提示框。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。
Cmdsave.enabled=true
另一个代码在学完编程再做
107、（5）在"窗体页眉"中距左边0.5厘米，上边0.3厘米处添加一个标签控件，控件名称为"Tda"，标题为"系统日期"。窗体加载时，将添加标签标题设置为系统当前日期。窗体"加载"事件已提供，请补充完整。
在窗体的加载事件写入代码：docmd.runmacro “m1”
tda.caption=date()
109、（4）窗体加载时设置窗体标题属性为"****年职工信息输出"，其中****为系统当前年。窗体"加载"事件代码已提供，请补充完整。 窗体的加载事件写入代码
Form.Caption=year(date()) & “年职工信息输出”
130、（4）假设"tStud"表中，"学号"字段的第5位和6位编码代表该生的专业信息，当这两位编码为"10"时表示"信息"专业，为其他值时表示"管理"专业。设置窗体中名称为"tSub"的文本框控件的相应属性，使其根据"学号"字段的第5位和第6位编码显示对应的专业名称。 =iif(mid([学号],5,2)=”10”,”信息”,”管理”)
（5）在窗体中有一个"退出"命令按钮，名称为"CmdQuit"，其功能为关闭"fStud"窗体。请按照VBA代码中的指示将实现此功能的代码填入指定的位置中。
Docmd.close参数查询窗体。
第6章 报表
报表1-5
1、dlookup(“名称”,”tgroup”,”部门编号=’”&[所属部门]&”’”)
2、[基本工资]+[津贴]+[补贴] [基本工资]+[津贴]+[补贴]-[住房基金]-[失业保险]
3、year(date())&”年”& month(date())&”月”
4、count[团队ID]
5、
http://m.zhuodaoren.com/tuijian679133/
推荐访问:access参数查询与窗体 excel窗体查询
