Access技巧接龙

Jach

好，顶一下！

jiuzhensi

我很想上传软件，不知从哪传，我是新手。

huangqinyong

产生随机号码的模块：

Private Sub Form_Open(Cancel As Integer)

    Dim lonIntNum As Variant
   
    lonIntNum = Fix(8999999999# * Rnd()) + 1000000000
   
    Me.文本框 = lonIntNum
   

End Sub

einstein_supeng

我也来一段(不用子窗体,用LISTBOX随即查询):

PRIVATE SUB RUNSQL()

DIM SQL AS STRING

SQL=ME.TEXT0

ME.LIST1.COLUMNHEADS=TRUE

ME.LIST1.COLUMNCOUNT=255

ME.LIST1.ROWSOURCE=SQL

END SUB

见笑了

plmm1999

以下是引用竹笛在2005-1-27 20:14:00的发言：
哇，这么多好技巧，我也弄了一些，在：http://www.accessoft.com/Article_Special.asp?SpecialID=1

谢谢分享!这里有太多好东东,我只是初学者,希望能很快加入你们行列.

[em23][em23]

GAOYUAN_1971

链接有问题

ferockpan

支持！！！！！！！！！１

捉猫鼠

顶起来再说，谢谢

lqiyik

see

lqiyik

高手多多