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数据库应用程序。

access窗体怎么写

转载请注明出处育才学习网 » access窗体怎么写

知识

300字论文评语怎么写

阅读(200)

本文主要为您介绍300字论文评语怎么写,内容包括论文的评价怎么写,毕业论文的评语怎么写,高三毕业时的评语200~300字要通过德智体美等方面写出。初稿评语: 论文题与论文的内容基本相符,结构基本完整,语言也比较通顺,没有大的语法错误。问题是,全

知识

2130的竖式计算怎么写

阅读(233)

本文主要为您介绍2130的竖式计算怎么写,内容包括21*30等于几竖式计算,12乘30的竖式怎么写,31x21的竖式计算。12乘30的竖式计算过程是:

知识

2017新闻发布会怎么写

阅读(217)

本文主要为您介绍2017新闻发布会怎么写,内容包括新闻发布会新闻稿怎么写,小小新闻发布会2016300字,新闻发布会流程,我要详细的新闻发布会流程,新闻发布会流程现场。原发布者:24ksoul1989新闻通稿原本是一些新闻通讯社的“专利”。他们在采访

知识

珍惜时间作文怎么写

阅读(230)

本文主要为您介绍珍惜时间作文怎么写,内容包括珍惜时间的作文怎么写,珍惜时间的作文怎么写,珍惜时间的作文怎么写。珍惜时间,就是分分秒秒地努力,把时间用在有用的方面上,不要为了一些毫无用处地事而花时间.如果虚度时光,那我们的生命就没什么

知识

jiankang怎么写

阅读(215)

本文主要为您介绍jiankang怎么写,内容包括身心健康怎么填,健康状况怎么填写,唐建康这个名字英文怎么写。世界卫生组织确定的身体健康十项标志: 有充沛的精力,能从容不迫地担负日常的繁重工作; 2、处事乐观,态度积极,勇于承担责任,不挑剔所要做

知识

左耳听爱英文怎么写

阅读(201)

本文主要为您介绍左耳听爱英文怎么写,内容包括甜言蜜语只说给左耳听,英文怎么写.,左耳倾听英语咋么写,左耳说爱我的英语怎么写。电影左耳的英文作文总的说来,这是一场被架空的青春戏。让我先来用考据的方法来证明:《左耳》出版于2006年,描写的

知识

珠宝周销售分析怎么写

阅读(205)

本文主要为您介绍珠宝周销售分析怎么写,内容包括珠宝销售一周工作总结如何写,珠宝销售话术市调总结怎么写,珠宝行业销售分析怎么写。主要写一下工作内容,取得的成绩,以及不足,最后提出合理化的建议或者新的努力方向。。。。。。转载:总结,就是把

知识

iphone怎么写繁体拼音

阅读(233)

本文主要为您介绍iphone怎么写繁体拼音,内容包括怎么调苹果手机输入法的繁体字,苹果手机怎么设置拼音字体,iphone繁体输入法要怎么设置。1.要添加设置繁体字输入法,那我们在iPhone手机上找到并打开“设置”这一项。

知识

阿里头条怎么写

阅读(229)

本文主要为您介绍阿里头条怎么写,内容包括阿里头条怎么做内容营销,阿里头条怎么做内容营销,今日头条怎么写。今日头条号介绍只需要把自己的头条号的特色、特点写清楚即可。1. 可以搜索今日头条和自己相同领域、或者相似的账号,模仿借鉴2. 可

知识

道教救苦讳怎么写

阅读(1096)

本文主要为您介绍道教救苦讳怎么写,内容包括请问道教讳字谁知道,道教太乙救苦经的回向文,太苦天尊救苦经。《太上救苦经》全文超度念诵《太上救苦经》太上洞玄灵宝天尊说救苦拔罪妙经:又名《太上洞玄灵宝天尊说救苦妙经》、《太上救苦经》,为

知识

乐理休止5个小节怎么写

阅读(268)

本文主要为您介绍乐理休止5个小节怎么写,内容包括乐理四三拍一小节休止怎么表示,乐理四三拍一小节休止怎么表示,乐理请问三拍的休止符怎么写。一看你问的问题,得花大量时间给你讲,基础太差。首先你得领会一些东西曲子是流动的音符、或进行中

知识

我成功了作文怎么写呢

阅读(213)

本文主要为您介绍我成功了作文怎么写呢,内容包括《我成功了》的作文怎么写五年级,我成功了,作文怎么写,我成功了作文500字怎么写500字。我做过许多件成功的事,当每件事成功之后我都无比的喜悦、骄傲、与自豪。其中作文上报那件事让我至今难

知识

英语手机音标怎么写

阅读(440)

本文主要为您介绍英语手机音标怎么写,内容包括用手机如何输入英语音标,手机如何写英语音标,用手机如何输入英语音标。手机打不了英语应标的,只有拼音音标,英语音标只有电脑可以输入。用搜狗输入法,用快捷键Ctrl+Shift+Z,进入搜狗拼音输入法快捷

知识

怎么写龙阁的作文

阅读(232)

本文主要为您介绍怎么写龙阁的作文,内容包括介绍白龙阁的作文,春游和顺作文元龙阁按方位顺序写,(美丽的石竹山)的作文应该怎么写呢。寺门是一座倒台楼一一戏台,旧时每年农历三月初一为“白龙天子”祝寿演戏的地方(第二、三天则移到寺外演出)。戏

知识

access条件函数怎么写

阅读(288)

本文主要为您介绍access条件函数怎么写,内容包括access语法怎么写,access数据库这样的函数如何写,access多条件筛选函数。have access to 有机会接近/进入,有权利使用/进入例句:Only a few people have access to

知识

htaccess文件怎么写

阅读(254)

本文主要为您介绍htaccess文件怎么写,内容包括如何写.htaccess文件,如何写.htaccess文件,用.htaccess文件伪静态,文件怎么写。直接编辑 .htaccess。实质二者都是修改文件 .htaccess,只是前者手工编辑,后者是由 cPanel 完成。这里主要介绍的第

知识

vb窗体怎么写

阅读(192)

本文主要为您介绍vb窗体怎么写,内容包括VB窗体怎么做的,如何用VB写一个简单的窗体,VB怎么写透明窗体。Private Declare Function ShellExecute Lib "shell32.dll" Alias "Shell

知识

access怎么写代码

阅读(488)

本文主要为您介绍access怎么写代码,内容包括ACCESS里的SQL代码怎么写,高手帮帮忙Access数据库代码怎么写,access中,这题该如何写代码。如果没理解错,您应该是要给Access的部分按钮或其他控件添加事件处理代码(Access的代码是VBA),其实很简单的

知识

access怎么写sql语句

阅读(205)

本文主要为您介绍access怎么写sql语句,内容包括ACCESS执行SQL语句,ACCESS怎么写SQL语句,ACCESS中在哪写SQL语句啊,Access数据库中如何输入SQL语句进行操作。Access SQL查询语句是兼容的,有两种方式可以使用SQL语句:方式一:在“查询”的试图里,

知识

access怎么写sql

阅读(205)

本文主要为您介绍access怎么写sql,内容包括ACCESS中在哪写SQL语句啊,ACCESS执行SQL语句,ACCESS怎么写SQL语句,请问在ACCESS中如何写SQL文。Access SQL查询语句是兼容的,有两种方式可以使用SQL语句:方式一:在“查询”的试图里,可以使用Access的

知识

如何禁止修改access查询里的数据

阅读(209)

方法如下:1.查询锁定记录,右键查询设计界面属性,点开属性,记录锁定;2.子窗体锁定,子窗体是可以提供查询数据显示,锁定与查询锁定记录一致;3.显示主窗体锁定,最终设计给用户使用,在菜单中选择启动,将默认打钩保留即可。

知识

access中怎么把文本框变成组合框

阅读(315)

access中把文本框变成组合框的方法:打开access以后,创建一个空白的窗体,在菜单栏上面依次点击创建窗体设计;打开窗体设计的面板,在菜单栏上打开设计选项,在设计选型中找到并点击组合框按钮;在窗体中点击一次,在点击的位置添加一个组合框,根据自动

[/e:loop]