Access VBA質問箱 IV

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

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


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

5601 / 9994

←次へ　｜　前へ→


	【7609】Re:レコード追加時の重複について

水無月 - 06/3/29(水) 16:05 -


	引用なし

	パスワード

たんさんへ。
またまたお返事ありがとうございます。
実は、自分でSQLを組んではいたのですが上手く動かないのです。
下記のどこが悪いのか教えて頂けませんか？

Private Sub cmd_TOROKU_Click()

　　Dim cn As ADODB.Connection
　　Dim rs As ADODB.Recordset
　　Dim i As Long
　　Dim mySQL As String
　　Dim et As Integer

　　Set cn = CurrentProject.Connection
　　Set rs = New ADODB.Recordset
　　rs.Open "T_TP", cn, adOpenKeyset, adLockOptimistic
　　
　　For i = CLng(Me!START) To CLng(Me!END)
　　mySQL = "SELECT T_TP. TPNO FROM T_TP WHERE (T_TP.TPNO)='CStr(i)';"
　　Next i
　　
　　et = rs.RecordCount
　　
　　If et = 0 Then
　　
　　　　For i = CLng(Me!START) To CLng(Me!END)
　　　　
　　　　If IsNull(Me!HEAD) Then
　　　　　　rs.AddNew
　　　　　　　　rs!TPNO = CStr(i)
　　　　　　　　rs!BANGO= Me!BANGO
　　　　　　rs.Update
　　　　Else
　　　　　　rs.AddNew
　　　　　　　　rs!TPNO = Me!HEAD + CStr(i)
　　　　　　　　rs!BANGO= Me!BANGO
　　　　　　rs.Update
　　　　End If
　　
　　　　Next i
　　
　　　　If IsNull(Me!HEAD) Then
　　　　　　MsgBox ("No." & Me!START & "から" & Me!END & "まで登録しました")
　　　　Else
　　　　　　MsgBox ("No." & Me!HEAD + Me!START & "から"
　　　　　　　　　　　　& Me!HEAD + Me!END & "まで登録しました")
　　　　End If
　　　　
　　Else
　　　　MsgBox "重複した試験片番号があります"
　　End If
　　
　　rs.Close: Set rs = Nothing
　　cn.Close: Set cn = Nothing
　　　　
End Sub

401 hits

▼

【7604】レコード追加時の重複について 水無月 06/3/29(水) 14:31