ACCESS2000総合相談所

>>399
> 思い付く限りのことはやってみたのですが
> どれもうまくできずにいます…。
「何を」(What)思い付いて、「どう」(How)うまくできないのか、まったく記述されていない。Accessのバージョンも書いていない。
質問の書き方としては零点ですね。(辛口)
DAOなら、下記の要領。インデントが潰れていて読みにくいと思いますが、頑張って( ×嗅いどく　　×買い得　　○解読 )してくださいな。
（もちろん、変数／プロシージャ名、エラーメッセージ等はてきとーに変更すること）
Sub ItteYoshi
Dim i As Long
Dim strSql As String
Dim strSMG As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
i = 1 '初期化。
strSql = "SELECT *
strSql = strSql & " FROM
strSql = strSql & " [Table]
strSql = strSql & " WHERE
strSql = strSql & " [A] = B
strSql = strSql & " ORDER BY 条件"
Set db = CurrentDb
DoCmd.Hourglass True
Set rs = db.OpenRecordset(strSql,DbOpenDynaset)
On Error Goto SAGE
DbEngine.WorkSpaces(0).BegineTrans
With rs
Do Until .EOF
.Edit
.Fields("C").Value = i
.Update
i = i + 1
.MoveNext
Loop
DbEngine.WorkSpaces(0).CommitTrans
.Close
End With
db.close
DoCmd.Hourglass False
ExitLine:
Set rs = Nothing
Set db = Nothing
Exit Sub
SAGE:
DbEngine.WorkSpaces(0).Rollback
DoCmd.Hourglass False
Beep
strSMG = Cstr(Err.Number) & " : " & vbCrLf
strSMG = strMsg & Cstr(Err.Description)
strSMG = strMsg & vbCrLf & vbCrLf & "逝ってよし！(Help読めや、ゴルァ！)"
strSMG = strMsg & vbCrLf & vbCrLf & "SMGはサイテーです！"
Call SMGBox(strSMG,vbCritical,"SAGE")
Resume ExitLine
End Sub