access窗体怎么写 _窗体

1.access数据库自动窗体怎么写先建个模块，在里面写以下代码PublicFunctiongosql(ByValsqlAsString,msgstringAsString)AsADODB.RecordsetDimcnAsADODB..Recordsetsql=Trim(sql)Setcn=NewADODB.Connectioncn.(sql,6)=LCase("insert")OrLeft(sql,6)=LCase("delete")OrLeft(sql,6)=LCase("update")Thencn.Executesqlmsgstring=Left(sql,6)&"操作成功"ElseSetrs=NewADODB.Recordsetrs.Opensql,cn,adOpenKeyset,=rsmsgstring="查询到"&rs.RecordCount&"条记录"EndIfSetrs=NothingSetcn=()ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\DATA.mdb;"'“DATA.MDB”是数据库文件地址EndFunction然后在窗体上建两个文本A,B 。
和一个按钮输入以下代码PrivateSubCommand1_Click()DimrsAsADODB.="select*from表whereB='"&Text1.Text&"'"Setrs=gosql(sql,msgstring)rs.AddItemrs("B")=Text1.Textrs("A")=Text2.Textrs._Change().Text=Text2.Text*2EndSub 。
2.ACCESS做一个窗体可以这样解决；
1）分别建立一张主表和明细表，主表和明细表建立一对多关系；
2）建立一个主窗体，在该窗体内添加一个子窗体，然后将该子窗体的数据源设置为你要显示的主数据表，右击子窗体的某一列或单元格即可弹出相应的菜单，选择其中某个命令即可实现类似EXCEL的查找、排序、筛选等功能；
3）建立一个明细窗体以显示数据明细，其数据源由主窗体内的VBA代码进行设置；
4）在主窗体内的子窗体添加双击事件过程，打开明细窗体以显示详细数据
例如：
Private Sub Form_DblClick(Cancel As Integer)
'打开明细窗体
DoCmd.OpenForm "明细窗体"
'设置明细窗体数据源，以显示与主窗体当前记录相对应的数据明细
Me.Recordsouce = "Select * from 明细表 Where id='" & Forms！主窗体！子窗体.Form!id & "'"
End Sub
注意：上述代码仅为示例，准确的写法要根据数据表的结构和窗体设计而定。如果你能提供有关数据表的具体结构，我可以为你编写一个具有你提问中所要求功能且可以正确运行的ACCESS数据库应用程序。
3.access 怎么做登录窗体语句没错啊，
???msgbos "用户名或密码错误！请重新输入"，vbOKOnly
MSGBOX好像应该这样写
再给你个我做的
Private Sub cmdOK_Click()
'连接数据库
'判断用户名和密码
'如果用户名为空
If (Trim(txtUserName.Text) = "") Then
'出警告提示
MsgBox "没有输入用户名称，请重新输入！"，vbOKOnly + vbExclamation，"警告"
'用户名这个TXTuserName获得焦点
txtUserName.SetFocus
End If
If (Trim(txtPassword.Text) = "") Then
'出警告提示
MsgBox "没有输入密码，请重新输入！"，vbOKOnly + vbExclamation，"警告"
'用户名这个TXTuserName获得焦点
txtUserName.SetFocus
End If
Dim SQL As String '定义SQL为STRING类型变量
Dim Cnn As New ADODB.Connection '新建数据连接对象
Dim Rst As New ADODB.Recordset '新建记录集对象
Cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=FADIAN.MDB;DefaultDir=" & App.path & "；" '打开数据库，后面跟的是连接字符串
'对SQL语句赋值
SQL = "select * from User where Username='" & txtUserName.Text & "'" & " AND PASSWORD='" & txtPassword.Text & "'"
'执行SQL语句
Rst.Open SQL, Cnn
''进入下一个窗体
If Not Rst.EOF Then
'关闭本窗体
Unload Me
'显示主窗体
FrmMDI.Show
Else
'报错提示框
MsgBox "错误登录"，vbOKOnly，"登录提示"
End If
'关闭数据集
Rst.Close
'关闭连接
Cnn.Close
End Sub
4.ACCESS做一个窗体可以这样解决；1）分别建立一张主表和明细表，主表和明细表建立一对多关系；2）建立一个主窗体，在该窗体内添加一个子窗体，然后将该子窗体的数据源设置为你要显示的主数据表，右击子窗体的某一列或单元格即可弹出相应的菜单，选择其中某个命令即可实现类似EXCEL的查找、排序、筛选等功能；3）建立一个明细窗体以显示数据明细，其数据源由主窗体内的VBA代码进行设置；4）在主窗体内的子窗体添加双击事件过程，打开明细窗体以显示详细数据例如：Private Sub Form_DblClick(Cancel As Integer)'打开明细窗体DoCmd.OpenForm "明细窗体"'设置明细窗体数据源，以显示与主窗体当前记录相对应的数据明细Me.Recordsouce = "Select * from 明细表 Where id='" & Forms！主窗体！子窗体.Form!id & "'"End Sub注意：上述代码仅为示例，准确的写法要根据数据表的结构和窗体设计而定。