求助全選和結轉的VBA

汪武龍　发表于：2009-08-26 11:34:15 　

求助,祥見以下內容:

sosopain 发表于：2009-08-26 12:41:28

Sub SelectAll()
Dim i As Integer

    DoCmd.GoToRecord , , acFirst

    For i = 1 To Me.Recordset.Count
        Me!确认入库.Value = True
        DoCmd.GoToRecord , , acNext
    Next

End Sub

大概思路就是这个..没有测试过.

汪武龍发表于：2009-08-26 16:05:36

可能是我沒有把問題說清楚吧:

我的期望:

1.勾選"全選"控制項後,子表單(子窗體)的所有資料"確認入庫"欄被勾選,取消後同樣也取消.

2.勾選了"確認入庫"之每一筆資料,附加兩欄"倉管"/"新增日期"一並存檔至資料表"確認入庫表"

sosopain 发表于：2009-08-26 16:27:26

怎么?看不懂我的回复?

汪武龍发表于：2009-08-26 16:32:53

第一項找到了:

sosopain 发表于：2009-08-26 18:14:11

看来你是没有看懂我的代码.

汪武龍发表于：2009-08-27 08:35:55

jasonjiang你的代碼根本無法執行.你可以祥細看一下我的窗體結構再發表.

sosopain 发表于：2009-08-27 10:36:07

无语.....你问路,,我给你指路...你还嫌我没有给你带到目的地不爽了~~~ 哎..现在的人啊....

汪武龍发表于：2009-08-27 15:04:23

已解決,結案吧.

总记录：8篇页次：1/1 9 1 :

Access交流中心