2016数据库Access应用(主编范萍-中央广播电视大学出版社) 提取字段值.docVIP

提取字段值 ? Private Sub Command12_Click() ? Dim dbExam As Database ? Dim intCommand As Integer ? Dim Na As String ? Dim Ag As Integer ? Dim Te As String ? Set dbExam = OpenDatabase(st.mdb) ? Set rstExam = dbExam.OpenRecordset(st1, dbOpenDynaset) ? Form_MyForm2!Label16.Caption = ?With rstExam2 ?.MoveFirsta 牋?While rstExam.EOF Trueio 牋牋?Na = !Nameam. 牋牋?Ag = !Ageeam 牋牋?Te = !Teleam 牋牋?Form_MyForm2!Label16.Caption = Form_MyForm1!Label16.Caption Na , Ag , Te / 牋牋?.MoveNextrm2 牋?Wendve ?End Withe ?dbExam.Closem End Sub ? 删除记录 ? Private Sub Command13_Click() ? Dim dbExam As Database ? Dim intCommand As Integer ? Set dbExam = OpenDatabase(st.mdb) ? Set rstExam = dbExam.OpenRecordset(st1, dbOpenDynaset) ? With rstExam ? .MoveLast ??? intCommand = MsgBox(正在删除最后一条记录，继续吗？, vbYesNo) ??? If intCommand = vbYes Then ????? .Delete ????? MsgBox (st1表已删除一条记录) ??? Else ????? MsgBox (已放弃删除记录) ??? End If ? End With ? dbExam.Close End Sub ACCESS使用集锦 发布时间:2009-7-16????阅读:55 　1、使窗体或报表的文本框随文字的多少自动加大或缩小：??????????? 文本框属性“可以扩大”??? 2、控制某字段只能填写某些内容：也许你想让使用程序的人只能在某个字段里a，那么你就得控制他不难让他填b。具体表达式为??????????? =Instr（abc,[A]）0??? 3、并置几个字段：也许你填表时有两个字段分别是“湖北大学”、“数学专业”，但当你在打印报表时却想让这两个了段变为一个字段放在一起，即“湖北大学数学专业”，那么最好的办法就是并置。表达式为：??????????? =([A][B])或者=([A][B])??? 4、查询中的计算字段：也许在您的表中有两个数字字段，然后您想在报表中出现一个关于这两个字段关系的字段，那么简单的方法就是计算，这计算可以加，可以减，可以乘，可以除，视情况而定。表达式为：??????????? 名称：[A]*[B](这里假设相乘，“名称”可自定)??? 5、计算年龄表达式：有人喜欢在表中设计录入一个人的年龄，这不是聪明的做法。因为每个人的年龄是在不断增加的，到下一年再重新进行大批量重新录入，那就没有电脑的智能作用。最好的做法是在表中设计一个身份证号码字段。有了这个字段后，某人的“年龄”和“性别”都是可以确定的，而且一劳永逸，除非你不会把你计算机的系统时间调准确。这里是假设表中已经有“出生年月”字段以后通过它确定“年龄”的表达式：??????????? =Datediff(yyyy,[A],now())??? 6、在窗体或报表进行值转换：有时候想将表中的在窗体或其他地方显示为你想要的内容，办法就是进行值转换。比如表中有“出生年月”的记录，你想在窗体不显示具体的出生年月，而显示“今天是这人的生日”或“这人距生日还有x天”这样的信息，或者有一个“分数”字段而你却想在窗体上显示出某学生是“优生”、“差生”、“及格”等信息，你要用上以下表达式：??????????? =iif([A]=x,y,iif([A]=z,p,m))??? 7、在窗体中对某字段进行数据锁定：在用窗体编辑数据时，有时你可能不想让人对其中某一个或几个字段进行修改，那么，你得对不想让人修改的字段进行锁定。其方法：??????????? 字段-属性-数据-是否锁定-是??? 8、求和表达式：对两个以上字段值进行求和，表达式为：??????????? =Sum([A]+[B]+