【Access】rs.findテーブル検索&am...
- カテゴリ：パソコン/インターネット
- 2011/05/31 04:38:44
Private Sub コマンド5_Click()
'----メッセージボックス
Dim msg As Integer
'----店舗コードのテキストボックスが空欄でコマンド5をクリックした場合はLine1へ
If IsNull(店舗コード) Then
GoTo line1
Else
'----店舗名のテキストボックスが空欄でコマンド5をクリックした場合はLine3へ
If IsNull(店舗名) Then
GoTo line3
Else
'----オブジェクト変数の宣言
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
'----変数の宣言
Dim ipt1 As String
Dim ipt2 As String
'----メッセージ用の変数？？？
Dim AAA
'----オブジェクト変数へ代入
Set cn = Application.CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "shop_name", cn, adOpenKeyset, adLockOptimistic
rs.MoveFirst
ipt1 = Me!店舗コード
ipt2 = Me!店舗名
rs.Find "店舗コード='" & ipt1 & "'"
If rs.EOF Then
msg = MsgBox("表示されている情報を登録します", vbOKOnly)
rs.AddNew
rs![店舗コード] = ipt1
rs![店舗名] = ipt2
rs.Update
MsgBox "登録が完了しました"
Else
MsgBox ipt1 & "はすでに登録されています"
End If
Me!店舗コード = Null
Me!店舗名 = Null
rs.Close
cn.Close
GoTo line2
line1:
msg = MsgBox("店舗コードを入力してください", vbOKOnly, "更新確認")
GoTo line2
line3:
msg = MsgBox("店舗名を入力してください", vbOKOnly, "更新確認")
line2:
End If
End If
End Sub
----------------------------------------
shop_name・・・テーブル(店舗コードと店舗名のフィールドがある)
フォーム１上には"店舗コード"と"店舗名"のテキストボックスがあり、"コマンド5"ボタンがある状況。
