育才学习网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注意：上述代码仅为示例，准确的写法要根据数据表的结构和窗体设计而定。
如果你能提供有关数据表的具体结构，我可以为你编写一个具有你提问中所要求功能且可以正确运行的ACCESS数据库应用程序。
转载请注明出处育才学习网 » 用户可以完成的功能有