[求助]关于一个窗体的制作太难了谁能帮我?

zzf_028616

上面有图,谁能帮我,教我怎么做,谢谢了.告诉我步骤行吗?

hi-wzj

1、在窗体电话号码文本框的“掩码”属性中输入8个零。以限制只能输入8位数字。

2、按钮上的单击事件里的代码：

if isnull(me.1处文本框的名字)=false then

    Me.Filter = "字段3 = '" & me.1处文本框的名字 & "'"
    Me.FilterOn = True

end if

3、在电话文本框的退出事件中执行：2步相同的代码。

zzf_028616

if isnull(me.1处文本框的名字)=false then

    Me.Filter = "字段3 = '" & me.1处文本框的名字 & "'"
    Me.FilterOn = True



end if  

这里的"Me"是我窗体的名字,还是我表的名字.

还有字段3 = '   这里的 ' 是必需要写的吗

zzf_028616

我用上面朋友给我写的试过了,可是筛选不到.谁知道怎么能够查到啊,我的图写的明白吗?如果不明白我可以在解释.帮帮忙吧

一点通

如果窗体的控件绑定表,可在数据源的电话字段准则中写入:forms!窗体名!电话号码

按钮写入刷新语句就行了

如果窗体的控件不绑定表,可以用DLOOKUP()查找数据

ME.字段3 = DLOOKUP("字段名","表名","[电话号码]='" & [电话号码] & "'")

.......

zzf_028616

帮我做一个绑定表的,和一个不绑定的,我给你数据.我想看一下,学学,好吗?

一点通

zzf_028616

谢谢你,一点通,

这次我真的是一点通,我学会了用 DLookUp 语句的用法,而且还对这个窗体有了一个认识,谢谢你,

zzf_028616

我用你教我的又在上面改了改：

    Me.ADSL超时费 = DLookup("ADSL超时费", Me.Text14, "[字段3]='" & Me.Text11 & "'")
    Me.ADSL使用费 = DLookup("ADSL使用费", Me.Text14, "[字段3]='" & Me.Text11 & "'")
    Me.字段3 = DLookup("字段3", Me.Text14, "[字段3]='" & Me.Text11 & "'")
    Me.字段4 = DLookup("字段4", Me.Text14, "[字段3]='" & Me.Text11 & "'")

Me.text14:输入表明,这样可以查多个表的记录,

我还有一个要问的就是:怎么才能让"text14"里有个下拉菜单像你给我做的那样,能显示出所有的表名字来,怎么做到啊?

谢谢了.我想学学,这个我想不到,知识量太浅了

一点通

其中有一种方法是利用系统表来显示所有的表名,创建一个查询,将代码复进去

SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Flags)=0) AND ((MSysObjects.Type)=1));