×
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
'SQL接続
Dim DB As DAO.Database, RS As DAO.Recordset
Dim fittext As String, fitresult As String
Dim xSQL As String
'DB設定
Set DB = CurrentDb
'Set rs = db.OpenRecordset("メーカー着", dbOpenDynaset)
Set RS = DB.OpenRecordset("SELECT * FROM TB1 WHERE バーコード = """ & Me!テキスト0.Text & """")
Dim DB As DAO.Database, RS As DAO.Recordset
Dim fittext As String, fitresult As String
Dim xSQL As String
'DB設定
Set DB = CurrentDb
'Set rs = db.OpenRecordset("メーカー着", dbOpenDynaset)
Set RS = DB.OpenRecordset("SELECT * FROM TB1 WHERE バーコード = """ & Me!テキスト0.Text & """")
PR
この記事にコメントする
