想学第一个VBA程序

renyucai1963

请大家教我一个最简单的程序，第一次用。
请帮个忙!
谢谢。

renyucai1963

renyucai1963

renyucai1963 发表于 2011-11-13 12:52
Sub shuangseqiu()
DoCmd.SetWarnings False
Dim i As Integer, j As Integer, k As Integer, l As Integ ...

renyucai1963

Sub shuangseqiu()
DoCmd.SetWarnings False
Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer, o As Integer
Dim sum As Integer
Const z = 28
For i = 1 To z
For j = i + 1 To z + 1
For k = j + 1 To z + 2
For l = k + 1 To z + 3
For m = l + 1 To z + 4
For n = m + 1 To z + 5
For o = 1 To 16
sum = i + j + k + l + m + n
DoCmd.RunSQL "Insert into 表1( 壹,贰,叁,肆,伍,陆,和值,篮球) VALUES(" & i & " ," & j & "," & k & "," & l & "," & m & "," & n & "," & sum & "," & o & ")"
Next o
Next n
Next m
Next l
Next k
Next j
Next i
End Sub
33选6 16选1

roych

玛瑙绿 发表于 2011-9-29 10:33
哇，大哥，你后面的那个好像一点都不简单啊... 好难...

不是说我吧？

玛瑙绿

哇，大哥，你后面的那个好像一点都不简单啊... 好难...

renyucai1963

roych 发表于 2011-9-24 18:23
理论上对记录条数没限制，我见过最多的是250W左右，——因此500W也未必不可能。但由于文件大小限制在2G左右 ...

版主，我电脑上有一个SQL SEVER 数据库，是存放单位的东西的，不知是否可以用？
第二个问题：我是否把SQL SEVER数据库建在同桌的电脑上，因为在一个网上，是否可以？
请告知？
谢谢，版主。

roych

理论上对记录条数没限制，我见过最多的是250W左右，——因此500W也未必不可能。但由于文件大小限制在2G左右，记录条数比较多的时候，应当随时压缩数据库。
如果非要保留在一个表的话，个人建议把后台设置为SQL Sever，用Access做前台就是了。此外，拆分成多个数据库，也是可以尝试的一个选择（通过链接表和联合查询，很容易获取到全部信息的）。

renyucai1963

版主，你好：
请教个问题：ACCESS数据库是否可以存放576，5760条数据？

renyucai1963

roych 发表于 2011-9-21 18:45
系统自带的文件夹并不是共享文件夹，而是该电脑所有用户可以访问的文件夹。

例如A用户登录这台电脑，电脑 ...

谢谢版主的耐心解答，耽误了你的时间。