| |
▼Gin_II さん：
レスが遅くなってすいません。
何時間か前まで煮詰まってました^^;
私の説明が足りなかったようで、申し訳ないです。
入力したデータがテーブルに存在するかのチェックで、以下のようにしたら解決しました。
お手数かけて申し訳ありませんでした。
Dim db As DAO.Database
Dim RS As DAO.Recordset
Dim criteria As String
'接続
Set db = CurrentDb
'抽出条件の判定 -----> 入力した仕上コードを仕上マスタでチェック
criteria = "SELECT 仕上CD FROM 仕上種別 where 仕上CD= " & Me.TXT仕上コード.Value & ";"
'レコードセットを取得
Set RS = db.OpenRecordset(criteria, dbOpenSnapshot)
If RS.RecordCount = 0 Then
'該当コードがテーブル内に存在しない場合。
Me.TXT仕上コード.SetFocus
Call showError("該当する仕上コードは、存在しません。")
RS.Close: Set RS = Nothing
db.Close: Set db = Nothing
Exit Sub
Else
'存在する場合、何もしない。
End If
'終了
RS.Close: Set RS = Nothing
db.Close: Set db = Nothing
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
