| |
▼トキドキ徹 さん：
宜しくお願い致します。
VBA（Access）初心者ですが、
トキドキ徹 さんのアドバイス頂きました
VBAを何とか、使用したいのですが
宜しくお願い致します。
”myDB.Execute mySQL, dbFailOnError”でエラーとなってしまいました。
実行時エラー 3035
メモリ不足です。
本当に宜しくお願いします。
又、後だしで申し訳ありませんが、フラグ”９”の場合は更新
しないとしたいのですが。
宜しく、お願い致します。
私はAcc2003を使用しています。
>VBAコードの一例です。
>'=======================================
>Private Sub sub_Sample()
>'要参照設定 Microsoft DAO X.X Object Library
> Dim myDB As DAO.Database
> Dim myRS As DAO.Recordset
> Dim myFilSTR(2 To 3) As String '** 出荷率ごとの更新値を引数に **
> Dim myLooP As Long
> Dim mySQL As String
>
> Set myDB = CurrentDb
> Set myRS = myDB.OpenRecordset("Q_出荷状況", dbOpenSnapshot)
>
> '出荷率ごとの注文NOを取得
> Do Until myRS.EOF
> If myRS!出荷率 > 1 And myRS!出荷率 < 100 Then
> myFilSTR(2) = myFilSTR(2) & ", '" & myRS!注文NO & "'"
> ElseIf myRS!出荷率 >= 100 Then
> myFilSTR(3) = myFilSTR(3) & ", '" & myRS!注文NO & "'"
> End If
> myRS.MoveNext
> Loop
>
> 'T_受注更新
> For myLooP = LBound(myFilSTR) To UBound(myFilSTR)
> If myFilSTR(myLooP) <> "" Then
> myFilSTR(myLooP) = "IN (" & Mid$(myFilSTR(myLooP), 3) & ")"
> mySQL = "UPDATE T_受注 SET フラグ = " & myLooP & _
> " WHERE 注文NO " & myFilSTR(myLooP)
> myDB.Execute mySQL, dbFailOnError
> End If
> Next myLooP
>
> Set myRS = Nothing
> Set myDB = Nothing
>End Sub
>'=======================================
|
|
MAI
- 08/11/5(水) 21:04 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
