| |
その後、テストとしてこんなものを考えました。
-------------------------
Private Sub 支店01_実行_Click()
myImport "POScsvファイル選択", "01", False
If pstrERR = "cancel" Then
MsgBox "処理はキャンセルされました。"
pstrERR = ""
Exit Sub
ElseIf pstrERR = "error" Then
MsgBox "処理中にエラーが発生しました。再度実行して下さい。"
pstrERR = ""
Exit Sub
End If
Set rs = CurrentDb.OpenRecordset("01")
Do Until rs.EOF
If IsNull(rs!店番) Then
rs.Edit
rs!店番 = Get_FilleName(Me.Filelist.Column(0, 0))
rs.Update
End If
rs.MoveNext
Loop
Set rs = Nothing
Dim cn As ADODB.Connection
Dim rs1 As ADODB.Recordset
Set cn = CurrentProject.Connection
Set rs1 = New ADODB.Recordset
rs1.Open "01", cn, adOpenKeyset, adLockOptimistic
Do Until rs1.EOF
rs1!売価 = rs1!売価 * 0.8
rs1.Update
rs1.MoveNext
Loop
MsgBox "インポートしました。"
rs1.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
---------------------------
これは取込元の支店01csvファイルの中の「売価」項の値を、取込時8掛けに更新して「01」というテーブルとして取り込む、というものです。なんとかうまく行きました。
さて、本題はもともとある01というテーブルの売価項の値を、8掛けの代わりにほかのxls、csvファイルの売価に差換えたい、ということです。
ADOを使ってできないかと考えたのですが、ここから先どうしたらよいかわかりません。ADOじゃないのか、それもわかりません。
なにかいい方法があれば教えてください。
宜しくお願いします。
|
|
TB1
- 06/8/18(金) 17:15 -
