想學(xué)第一個VBA程序

roych

噢。大概是沒有執(zhí)行命令的緣故吧。此外，你的附件中序號為數(shù)值型，因此需要在原先的基礎(chǔ)上去掉單引號。

1. Sub REN_A()
   
2. '定義數(shù)據(jù)連接
   
3. Dim cnn As ADODB.Connection
   
4. '定義ADO命令
   
5. Dim cmd As New ADODB.Command
   
6. Dim i As Long
   
7. '設(shè)置為當(dāng)前工程連接
   
8. Set cnn = CurrentProject.Connection
   
9. For i = 1 To 10
   
10. '設(shè)置命令文本并執(zhí)行之。
    
11. cmd.CommandText = "Insert into 表1 (序號) VALUES(" & i & ")"
    
12. cnn.Execute cmd.CommandText
    
13. Next
    
14. End Sub

復(fù)制代碼

用Docmd.RunSQL會更簡潔些，以下代碼供參考。

1. Sub REN_A()
   
2. DoCmd.SetWarnings False
   
3. For i = 1 To 10
   
4. DoCmd.RunSQL "Insert into 表1 (序號) VALUES(" & i & ")"
   
5. Next
   
6. End Sub

復(fù)制代碼

renyucai1963

roych 發(fā)表于 2011-9-12 13:43
噢。大概是沒有執(zhí)行命令的緣故吧。此外，你的附件中序號為數(shù)值型，因此需要在原先的基礎(chǔ)上去掉單引號。用Do ...

版主，你好。
請問ACCESS里面可有求平均差的函數(shù)（STDEV)或者有其他的方法？請講一講。

roych

Excel里的部分統(tǒng)計函數(shù)，在Access里都有相應(yīng)的SQL聚合函數(shù)，例如標(biāo)準(zhǔn)方差是：StDev ()或者StDevP，詳細(xì)請在做查詢時，右擊窗格，點擊生成器\函數(shù)\內(nèi)置函數(shù)。具體用法則參考幫助文件，在這里不一一列出了。

renyucai1963

roych 發(fā)表于 2011-9-14 16:15
Excel里的部分統(tǒng)計函數(shù)，在Access里都有相應(yīng)的SQL聚合函數(shù)，例如標(biāo)準(zhǔn)方差是：StDev ()或者StDevP，詳細(xì)請在 ...

謝謝版主的回答。

renyucai1963

roych 發(fā)表于 2011-9-14 16:15
Excel里的部分統(tǒng)計函數(shù)，在Access里都有相應(yīng)的SQL聚合函數(shù)，例如標(biāo)準(zhǔn)方差是：StDev ()或者StDevP，詳細(xì)請在 ...

版主，標(biāo)準(zhǔn)差按列可以求出。我想按行求出，我是這樣設(shè)置的。
運行出現(xiàn)對話框：標(biāo)準(zhǔn)表達式數(shù)據(jù)類型不匹配。
我把標(biāo)準(zhǔn)差的數(shù)據(jù)類型：單精度，雙精度，按個設(shè)置也不行，請幫助看看。謝謝。

roych

不是在條件里設(shè)置的。是在字段的窗格上輸入以下內(nèi)容：
標(biāo)準(zhǔn)差之方差:StDev([編號])

renyucai1963

這是附件

renyucai1963

roych 發(fā)表于 2011-9-17 11:24
不是在條件里設(shè)置的。是在字段的窗格上輸入以下內(nèi)容：
標(biāo)準(zhǔn)差之方差:StDev([編號])

版主，能否給個截圖，費心幫個忙。

renyucai1963

幫助看看。

roych

表的設(shè)計不合理。
首先，Access不是Excel，聚合函數(shù)是不能對多個字段進行數(shù)據(jù)處理的。因此，應(yīng)當(dāng)設(shè)置為：
編號   組別     數(shù)據(jù)
1       組別1    1
2       組別1    2
3       組別1    3
4       組別1    4
5       組別1    5
6       組別1    6
7       組別2    2
8       組別2    3
9       組別2    4
10     組別2    5
11     組別2    6
12     組別2    7
…………………………
然后按組別分組，對數(shù)據(jù)進行標(biāo)準(zhǔn)方差計算。