更多相关文档查看: 3370|回复: 8
请问，如何在Excel的VBA里用代码修改Access表中某字段的“必填”属性？
请问，如何在Excel的VBA里用代码修改Access表中某字段的“必填”属性？
可以使用 Required 属性指定某个字段的值是否是必填的。如果将此属性设置为“是”，则在记录 （记录：有关特定的人、地点、事件或物品的一组信息集合。当 Query 在其“数据”窗格中显示结果集时，记录表示为行。）中输入数据时，必须在该字段中或该字段的任何绑定 （绑定控件：在窗体、报表或数据访问页上使用的控件，用来显示和修改来自表、查询或 SQL 语句的数据。控件的 控件来源 属性存储了控件绑定到的字段的名称。）控件 （控件：允许用户控制程序的图形用户界面对象，如文本框、复选框、滚动条或命令按钮等。可使用控件显示数据或选项、执行操作或使用户界面更易阅读。）中输入值，并且该值不能为 Null （Null：一个值，可以在字段中输入或在表达式或查询中使用，以指示缺少或未知的数据。在 Visual Basic 中，Null 关键字表示 Null 值。有些字段（如主键字段）不可以包含 Null 值。）。例如，您可能希望确定每条记录的 LastName 控件都有相应的值。当您想要允许某个字段中出现 Null 值时，不应仅将 Required 属性设置为“否”，如果存在 ValidationRule 属性设置，则必须明确指出“validationrule 或 Is Null”。
hwc2ycy 发表于
可以使用 Required 属性指定某个字段的值是否是必填的。如果将此属性设置为“是”，则在记录 （记录：有关特 ...
我试了好几次，请问，这个属性具体的用法？谢谢
mansohu 发表于
我试了好几次，请问，这个属性具体的用法？谢谢
你传个附件，我给你写个。
Sub test()
& & Dim acsObj As Object
& & Dim dbengine As Object
& & Dim strFilename$
& & Dim strMsg$
& & 'Application.ScreenUpdating = False
& &
& & strFilename = &Database11.mdb&
& & Set acsObj = CreateObject(&access.application&)
& & acsObj.Visible = False
& & acsObj.OpenCurrentDatabase ThisWorkbook.Path & Application.PathSeparator & strFilename
& & Set dbengine = acsObj.dbengine
& & With dbengine.Workspaces(0).databases(0).tabledefs(&test&)
& && &&&Dim field
& && &&&For Each field In .Fields
& && && && &strMsg = strMsg & field.Name & &:& & field.Required & vbCrLf
& && &&&Next
& & End With
& & acsObj.Quit
& & Set acsObj = Nothing
& & Debug.Print strMsg
End Sub复制代码你在工作簿所在的目录下建一个ACCESS数据库：Database11.mdb，然后在数据库里创建一个表Test
添加两个字段，一个必须，
就可以测试代码了，直接看立即窗口的输出就成了。
有点刷屏，这个还没解决。
要改的话，
必须：With dbengine.Workspaces(0).databases(0).tabledefs(&test&)
& & .Fields(&字段名&).Required = True
End With复制代码至于非必填的话，就把属性改为false就行了。
Sub test1()
& & Dim acsObj As Object
& & Dim tabdef As Object
& & Dim strFilename$
& & Dim strMsg$
& & Dim field As Object
& & strFilename = &Database11.mdb&
& & Set acsObj = CreateObject(&access.application&)
& & With acsObj
& && &&&.Visible = False
& && &&&.OpenCurrentDatabase ThisWorkbook.Path & Application.PathSeparator & strFilename
& && &&&Set tabdef = .dbengine.Workspaces(0).databases(0).tabledefs(&test&)
& && &&&With tabdef
& && && && &For Each field In .Fields
& && && && && & strMsg = strMsg & field.Name & &:& & field.Required & vbCrLf
& && && && &Next
& && &&&End With
& && &&&.Quit
& & End With
& & Set acsObj = Nothing
& & Debug.Print strMsg
End Sub
Sub test2()
& & Dim acsObj As Object
& & Dim tabdef As Object
& & Dim strFilename$
& & Dim strMsg$
& & Dim field As Object
& & strFilename = &Database11.mdb&
& & Set acsObj = GetObject(ThisWorkbook.Path & Application.PathSeparator & strFilename)
& & With acsObj
& && &&&.Visible = False
& && &&&Set tabdef = .dbengine.Workspaces(0).databases(0).tabledefs(&test&)
& && &&&With tabdef
& && && && &For Each field In .Fields
& && && && && & strMsg = strMsg & field.Name & &:& & field.Required & vbCrLf
& && && && &Next
& && &&&End With
& && &&&.Quit
& & End With
& & Set acsObj = Nothing
& & Debug.Print strMsg
End Sub复制代码
直接用SQL语句可能更好了，刚看了下定义。
SQL不行，ADOX的Column也只能获取列字段的属性，不能进行设置。
Powered by关于Access文本框中输入文字问题？在线等，着急~~~~的搜索推荐 -其他数据库-TryCatch
>> 相关推荐
关于的搜索推荐
在文本框中输入文字时，按回车后光标会跑到另一个文本框，而不是将我输入所在的文本框中的内容进行换行，这该怎么办啊？我想让他和网页一样，编辑文本框中的数据的时候，按回车可以换行而不是跑到另一个地方。 在线等啊，谢谢谢谢~~~~
转到设计界面，在该文本框的“属性”页中“其他”选卡，有一个“ENTER行为”
该为字段中新行
EnterKeyBehavior属性 参阅应用于示例特性使用EnterKeyBehavior属性可以指定在“窗体”视图（“窗体”视图：一个显示窗体以便显示或接受数据的窗口。“窗体”视图是添加和修改表中数据的主要方式。在该视图中还可以更改窗体的设计。）或“数据表”视图（“数据表”视图：以行列格式显示来自表、窗体、查询、视图或存储过程的窗口。在“数据表”视图中，可以编辑字段、添加和删除数据，以及搜索数据。）内的文本框控件中按Enter时对应的行为。
expression.EnterKeyBehavior expression必需。返回“应用于”列表中的一个对象的表达式。
说明 例如，假设有一个绑定（绑定控件：在窗体、报表或数据访问页上使用的控件，用来显示和修改来自表、查询或SQL语句的数据。控件的控件来源属性存储了控件绑定到的字段的名称。）到表中的一个Memo（“备注”数据类型：在MicrosoftAccess数据库中的一种字段数据类型。“备注”字段最多可以包含65,535个字符。）字段的控件，使用该属性使键入多行文本更方便。如果不将该属性设置...
请教:在线文本编辑框最基本的原理是什么:为什么有在网页中直接输入文字?又不是文本框...为什么能接纳文字?一直想不通，看到代码又很长的样子，有没大侠能把最关键...
------------
这。。。如果按照你这样，你输入了一个字，光标是在文字末尾，文本框内已有文字，你接下去又要写第二字。。。你想想会发生什么
--------...
也就是如何在System.Web.UI.WebControls.DropDownList的窗口中修改选定的文本。
------------
做个自定义控件吧。。拿文本框作为基础。。输入的时候有自动下拉...
如何使网页中的文本输入框里的输入文字以右对齐的方式显示？
------------
&input type="text" align="right"&
------------
&input type="te...
想要设计实现一个文本管理的功能：在窗口中输入大量的文字信息，最多有5000字左右，要求自动生成文件头、撰写日期、撰写人，请问怎么实现？可以用数据窗口实现吗...
一个文本编辑框由于输入文字的时候都具有文字的联想功能的.但是我一按取消它就退出了,我的本意是取消联想的文字.怎么回事?要判断是否有联想的文字出现吗?
像Google那种，可以在文本框里输入一些字符，然后出现一个层，显示出所以与文本内容匹配的内容？
------------
http://www.never-online.net/code/neverModule...
有若干个文本输入框，如何实现在第一个输入框内输入文字，第二、第三个输入框内同时出现相同内容?
------------
&input type=text id=a1 name=hsx /&&lt...
最近在使用Citrix时发现的问题在同样配置的两台机器上，截图文字的边缘不一样，主要体现在Citrix Web端打开的窗口里面的文字，用的是同样的账号，同样的浏览器.....
年龄我有2个文本框“姓名”“年龄”我想输入姓名后，年龄那个文本框直接出结果。不太会弄，请指教一下。谢谢了！
------------
年龄：数据源=dl...
求一函数：在文本框中输入文字时，边输入边判断输入的字数是否超过maxLength?如字数到达设定的maxLength后，要求光标离开该文本框。
------------
&input o...
请问：文本输入框的文字怎么让它居中输入啊？？？？
------------
&input type=text id=txt1 size=8 style="text-align:center"&...
本人在设计网页时,其中有一个文本输入框想要输入数字,如输入别的内容则显示出错信息,同样如果为空则也显示出错信息?谢谢!!
------------
&script language=...
我想在线编辑器编辑的到以下任意内容如下：&P&&STRONG&&FONT size=2&34234&FONT face=隶书&你好&FONT size=5& 877867&/FONT&g...
------------
写一函数，在onKeyUp事件里调用
------------
请问大概怎么写啊?
------------
&form method="POST" Name="Fom1" action=""&...在中可以使一列的内容等于其它几列的和或者乘积等等，在Access中怎么实现？
能够做到的！在窗体、报表、查询中都可以做到
方法有很多种：这里说两种：
第一种： 通过建立查询实现
1.建立一个表。例如下表
表名：收支表
（均为货币型）
2.基于这个表建立一个查询
a.在查询设计框里,在这两个字段的后面一栏增加表达式：
结余:=[收支]-[支出]
b.当你建立这个表达式的时候你可以利用表达式“生成器”，——按相关信息右键可以获得。
c.你也可以利用查询向导来做这件事情。
第二种：通过建立窗体来实现
有如下表：学生成绩表
学生姓名 性别 数学 语文 英语 政治
1.基于上面的二维表。建立一个窗体（可利用窗体向导来自动生成）
2.窗体生成后。
a.计算总成绩
选中[政治]这个文本框，然后按鼠标右键，选择[属性]，在[属性]对话框里，选择：“更新后”，然后选择“事件过程”，输入如下语句：
总分数.v...
能够做到的！在窗体、报表、查询中都可以做到
方法有很多种：这里说两种：
第一种： 通过建立查询实现
1.建立一个表。例如下表
表名：收支表
（均为货币型）
2.基于这个表建立一个查询
a.在查询设计框里,在这两个字段的后面一栏增加表达式：
结余:=[收支]-[支出]
b.当你建立这个表达式的时候你可以利用表达式“生成器”，——按相关信息右键可以获得。
c.你也可以利用查询向导来做这件事情。
第二种：通过建立窗体来实现
有如下表：学生成绩表
学生姓名 性别 数学 语文 英语 政治
1.基于上面的二维表。建立一个窗体（可利用窗体向导来自动生成）
2.窗体生成后。
a.计算总成绩
选中[政治]这个文本框，然后按鼠标右键，选择[属性]，在[属性]对话框里，选择：“更新后”，然后选择“事件过程”，输入如下语句：
总分数.value=数学.value+语文.value+英语.value+政治.value
b.计算平均分数
平均分数.value=（数学.value+语文.value+英语.value+政治.value）/4
你也可以利用AVG()函数来计算这个值。
其实：EXCEL中的很多功能ACCESS几乎都能实现，且比EXCEL更省时，更方便。可以将ACCESS里的数据（表、查询等）直接生成EXCEL表格。
其他答案（共2个回答）
1.有一个原始表a，里面有两个数字属性的字段，分别是income，payout，这两个字段里面的内容是已有的数据
2.在原始表a里面新添一个字段，balance，字段属性选为数字
3.新建一个查询，选择其类型为更新查询，然后选择表a,并将第三列balance拖到设计器里面，在"更新到"一栏里面写上[income]-[payout]
4.保存查询并点击运行，则原始的a表中的balance字段自动更新。
5.使用上述方法，当你修改了表中income和payout字段的值后，不会自动更新balance字段的值，需要再次运行查询进行更新
1.建立数据表，输入原始数据，如例子中的数量、单价；
2.点击菜单--&插入--&查询--&设计视图，选择相关数据表，确定；
3.点击菜单--&查询--&更...
有个办法　把　字段中的值反应在text框上。用text1+text2+text3
if 字段1为空　then text1 为　０　else text1.te...
在表单输入中是不能自动完成的，有两个方法可以实现
方法1：设计一个窗体,用文本框分别绑定数量，单价，金额。在数量和单价文本框中定义事件，把数量X单价保存在金额...
用excel做会容易些，一定要用access的话：
假设第一个表名称表1，字段名A；第二个表名称表2，字段名B C D
可用该语句实现
select A,...
中唐数据看男女……准吗？
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区