このページに関してのお問い合わせはこちら
この会社辞めようと思ったソースコード #5
ツイート
723
:
D
:
02/09/22 11:25
この間外注で作成したPG(ACCESS)を実行しててえらく時間がかかると思ってBreakしたら
こんなコード書いてました。
Dim DB As Database
Dim RC As Recordset
Set DB = CurrentDb()
Set RC = DB.OpenRecordset("ワーク")
〜(中略)
Do Until RC.EOF
RC.Edit
RC.Delete
RC.MoveNext
Loop
一万を越すようなデータにこんなことすんな!いつまでたっても終わらん!