00问答网
所有问题
当前搜索:
accessvba编程代码大全
access VBA编程
语言
答:
设窗体上text1为输入文本框, text2为结果文本框,, cmd1为计算按钮, cmd2为清空按钮,则 private sub cmd2_click()text1.value=""text2.value=""text1.setfocus end sub private sub cmd1_click()dim I as integer, N as integer, R as integer N = text1.value for I = 1 to N R...
access
中的
VBA
实现打开一个excel并调用excel中的宏,
代码
怎么实现的
答:
你试试如下
代码
:
ACCESS
中:Sub xx() Dim xlApp as Object, wb As Object On Error Resume NExt Set xlApp = GetObject(,"Excel.Application") If Not xlApp Is Nothing Then Set Wb = xlApp.WorkBooks("a.xls") If Err.Number = 9 Then Set Wb = xlApp.WorkBooks.O...
如何
ACCESS
窗体
VBA
修改记录
答:
在
access
中,修改记录有很种方法,比较常用的有ADO、DAO 和 Docmd。即便使用docmd,也有3种方法来删除,下面看看docmd修改记录的几种写法 1.Docmd修改记录 DoMenuItem 方法:Me.子窗体.SetFocus DoCmd.DoMenuItem acFormBar,acEditMenu,8,,acMenuVer70 DoCmd.DoMenuItem acFormBar,acEditMenu,6,,ac...
access
当中的
VBA编程
题目。要求详细解答,在线等回答,谢谢。。
答:
DateSerial( Year(DD),Month(DD)+1,0)表达式的意思是:返回日期DD一个月后的日期 假设日期DD是2011年9月2日,那么这个表达式的意思就是2011年10月0日的绝对日期,其值自然就是2011年9月30日 所以再加上DAY()函数的应用就是:30,也就是当前日期当月的最大天数了。
Access
中用
vba
实现窗体输入值记录到表中。
答:
select * from 库存 where 产品ID='" & me.产品ID & "'"if Not rs.BOF and Not rs.EOF then CurrentDB.execute " update 库存 set 库存量=rs("库存量")+me.入库数量 where 产品ID='" & me.产品ID & "'"end if
access
中
VBA
读取表记录
答:
说明需要引用 ADO2 到项目 Dim vaSqlStr As String, rst As New ADODB.Recordset,n as Integer Dim vaFldValue()vaSqlStr = "Select * From tbl1"Set rst = CurrentDb.OpenRecordset(vaSqlStr)redim vaFldValue(3,rst.RecordCount-1)for n=0 to rst.RecordCount-1 vaFldValue(1,n)=rst....
Access VBA
中如何通过
代码
(比如单击某个按钮)切换用户窗体里的选项卡...
答:
private sub command1_click()Me.Page1.SetFocus end sub 就可以将焦点切换到Page1选项卡上
access vba编程
问题
答:
在窗体上建两个文本框 ,一个(text1)用来输入X,一个(text3)用来输出Y,再建一个按钮(Command0),把
代码
写到按钮单击事件里去,在text1中输入一个数字,再单击按钮Command0,然後在Text3中看结果 Private Sub Command0_Click()Dim x, y As Singlex = Me.Text1If x > 0 Then y = Sqr(x)E...
急啊! 100以内能被3整除数的和
Access VBA编程
答:
dim i as integer dim s as integer for i=1 to 100 if i mod 3=0 then s=s+i next i print s
计算机
access vba
程序题!
答:
如图的 58 题,答案应该是 A)42。解答过程如下:Private Sub CommandButton1_Click() Dim a(10, 10) As Integer '定义2维数组 For m = 2 To 4 '循环,给数组元素赋值 For n = 4 To 5 a(m, n) = m * n Next n Next m MsgBox a(2, 5) + a(3, 4) ...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜