Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

417 / 9994

←次へ　｜　前へ→


	【12890】リスト外データをテーブルに追加する

まき - 15/10/15(木) 16:01 -


	引用なし

	パスワード

リスト外データをテーブルに追加するコードを書きましたがうまく動かないのでご教示の程よろしくお願いします
1.While (strNewData2 = vbNullString)～からWendまでが飛ばされる
2.(パラメータが少なすぎます1を指定して下さい）というエラーメッセージ

Private Sub 社員名_NotInList(NewData As String, Response As Integer)

　　Dim strNewData As Long　　
　　Dim strMessage As String　
　　Dim strNewData2 As String　　
　　Dim strMessage2 As String　

　　While (strNewData = Null)
　　　 strNewData = InputBox("管理IDを入力してください。")
　　　　If (strNewData = Null) Then
　　　　　　strMessage = "新しいデータの登録を中止しますか？"
　　　　　　GoSub StopOrContinue
　
　　　　ElseIf DCount("*", "社員名簿", "'管理ID=" & strNewData & "'") Then
　　
　　　　　　strNewData = Null
　　　　　　strMessage = "同じ管理IDが登録済みです。" & vbCrLf _
　　　　　　　　　　　　& "新しいデータの登録を中止しますか？"
　　　　　　GoSub StopOrContinue
　　　　End If
　　Wend
　　
　　While (strNewData2 = vbNullString)　-------------------------------1.ここからWendまで飛ばされる(Inputboxが出ない）
　　　 strNewData2 = InputBox("社員コードを入力してください。")
　　　　If (strNewData2 = vbNullString) Then
　　　　　　strMessage2 = "社員コードは必須です。" & vbCrLf _
　　　　　　　　　　　　& "新しいデータの登録を中止しますか？"
　　　　　　GoSub StopOrContinue
　　　　End If
　　Wend

　　CurrentDb.Execute _
　　　　"INSERT INTO 社員名簿 ( 管理ID, 社員コード, 社員名 )" ------------2.ｴﾗｰ(パラメータが少なすぎます1を指定して下さい）
　　　　& " VALUES (strNewData, '" & strNewData2 & "', '" & NewData & "');"
　　Response = acDataErrAdded　　

ExitProcedure:
　　Exit Sub

StopOrContinue:
　　If (vbYes = MsgBox(strMessage, vbYesNo + vbQuestion)) Then
　　　　Response = acDataErrContinue
　　　　Exit Sub
　　End If
　　Return
End Sub

最後迄行くまでにエラーが出るのでコードが間違っている箇所はまだあるかもしれませんが
よろしくお願いします

234 hits

▼

【12890】リスト外データをテーブルに追加する まき 15/10/15(木) 16:01