Access2000でレコードの重複チェックをするとエラーに
- ボタンをクリックすると、「品名」「色番」「ロット」「枝番」「巾」の重複が無いかチェックして、重複があればエラーテキストを表示させたい。しかし、コードを実行すると「エラー'91'：オブジェクト変数またはWithブロック変数が設定されていません」というエラーが出る。
- 問題の原因はどこにあるのだろうか？
- 教えていただけると幸いです。
- ベストアンサー
Access2000でレコードの重複チェックをするとエラーに
ボタンをクリックすると、「品名」「色番」「ロット」「枝番」「巾」の重複が無いかチェックして、重複があればエラーテキストを表示させたいのです。 下記のコードで動かすと、 「エラー'91'：オブジェクト変数またはWithブロック変数が設定されていません」と出ます。 どこが問題でしょうか？ 教えて頂けると幸いです。 Private Sub 重複チェックボタン_Click() Dim Rs As ADODB.Recordset Dim strSQL As String strSQL = "" strSQL = strSQL & " Select * From 変更ロットテーブル " strSQL = strSQL & " Where 品名 = '" & Forms!変更ロット入力チェックフォーム!品名 & "'" strSQL = strSQL & " And 色番 = '" & Forms!変更ロット入力チェックフォーム!色番 & "'" strSQL = strSQL & " And ロット = '" & Forms!変更ロット入力チェックフォーム!ロット & "'" strSQL = strSQL & " And 枝番 = '" & Forms!変更ロット入力チェックフォーム!枝番 & "'" strSQL = strSQL & " And 巾 = '" & Forms!変更ロット入力チェックフォーム!巾 & "'" Rs.Open strSQL, CurrentProject.Connection If Rs.EOF = False Then If MsgBox("重複ロットが存在します！", vbOKCancel) = vbOK Then Cancel = True End If End If End Sub
- ritty_y
- お礼率53% (22/41)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
open前にrecordsetオブジェクトの生成が必要です Rs.Open strSQL, CurrentProject.Connection の前に Set Rs = New ADODB.Recordset を追加してください。または、 Dim Rs As New ADODB.Recordset としてください
関連するQ&A
- 重複チェック
いま、重複チェックをしているのですが、MoveFirstで データをある分だけ調べていて、データが重複してなかったら、データを更新したいのですが、はじめにMoveFirst で、データを調べたので、カレント行が最終行にあると思うので、それを例えば、3行目のデータだったり、5行目のデータを変更したいのですが、よろしくお願いします。 重複チェック rs.MoveFirst Do While Not rs.EOF If Text2(0).Text <> rs.Fields(1) Then rs.MoveNext End If Loop rs.Fields(1) = Text2(0).Text
- 締切済み
- Visual Basic
- ACCESSの重複チェックについて
顧客データをACCESS2003にて作成しています。 フォームにてVBAを用いて重複チェックをしているのですが、件数が多いせいかチェックに時間が掛かっております。（入力済件数は10万は超えております。） テーブル（T_顧客管理）よりチェック出来るようにしており、チェックのフィールドは「住所」にしております。 Private Sub 住所_BeforeUpdate(Cancel As Integer) If DCount("住所", "T_顧客管理", _ "住所='" & Me!住所 & "'") > 0 Then Beep MsgBox "既存のデータと同じ住所が入力されました！ " & _ "別の値を入力してください。", _ vbOKOnly + vbExclamation, "重複エラー" Cancel = True Me.Undo End If End Sub 上記の式を入れておりますが、別の方法（式）にて上記と同じ内容にてチェック出来る式があれば教えていただきたいと思いますので、宜しくお願い致します。
- ベストアンサー
- Visual Basic
- アクセスにてテーブル内の重複チェックについて
下記の様なテーブル構成になっています。 大分類マスタ 大分類 長整数型 分類見出し 文字列 このテーブルにフォームから入力をさせているのですが重複チェックの時にvercheckのデータ形式が違いますと出てエラーが出ます。色々とデータ形式を変えたのですがうまくいきません。 どの様にすれば宜しいのでしょうか？ご教授頂きます様お願い致します。 尚、テーブルの数値を文字形式にすれば動作するのは分かっているのですが数値形式の場合の やり方を教えてください。 Dim str大分類 As String Dim str分類見出し As String Dim vercheck As Variant If IsNull(大分類) = False Then str大分類 = 大分類 vercheck = DLookup("大分類", "T大分類マスタ", "大分類='" & str大分類 & "'") If Not IsNull(vercheck) Then MsgBox ("同じ大分類番号があります") Exit Sub Cancel = True Else End If Else Exit Sub End If If IsNull(分類見出し) = False Then str分類見出し = 分類見出し vercheck = DLookup("分類見出し", "T大分類マスタ", "分類見出し='" & str分類見出し & "'") If Not IsNull(vercheck) Then MsgBox ("同じ分類見出しがあります") Exit Sub Cancel = True Else End If Else Exit Sub End If -------ここからフォームから直にテーブルに書いています。--------- Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = Application.CurrentProject.Connection Set rs = New ADODB.Recordset rs.Open "T大分類マスタ", cn, adOpenKeyset, adLockOptimistic rs.AddNew rs![大分類] = Forms!F大分類マスタ登録画面!大分類 rs![分類見出し] = Forms!F大分類マスタ登録画面!分類見出し rs.Update End Sub
- 締切済み
- その他(データベース)
- Access レコードの検索と追加
日報というフォームに日付とリンクしたサブフォームを作成しました。 複数の人がデータを入力するのですが、日報フォームの日付は重複したくありません。 それで日付入力というテキストボックスを作成して、その日付と同じ日付を検索して、なければ新規のレコードを作成するというようにしたいと思っています。 Private Sub txt日付入力_AfterUpdate() Dim rs As DAO.Recordset Set rs = Me.Recordset.Clone rs.FindFirst "日付 = #" & Me!txt日付入力.Value & "#" If rs.NoMatch Then rs.AddNew Else Me.Bookmark = rs.Bookmark End If rs.Close: Set rs = Nothing End Sub というようにしたのですが、新規のレコードを作成する部分がどうしても分かりません。 どなたか分かる方、よろしくお願いします。
- ベストアンサー
- その他(データベース)
- Accessで、重複データのチェック
Access2000で、テーブル更新用のフォームを作っています。既に登録済みのレコードを編集する、あるいは新規のレコードを登録する機能を持っています。 そのフォーム上のテキストで、既存レコードを編集、あるいは追加したい新規レコードを入力して、テキストからフォーカスを離すと、入力したレコードが既存のレコードと重複していないか、チェックを走らせています。重複している場合は、適切なレコードが入力されるまで、そのテキストからフォーカスを離さないようにしています。が、やはりそのようなチェックの仕方では、既存のレコードに一度手を加えてしまうと、手を加える前のレコードに戻すことは出来ません。 たとえば、"東京都"というレコードが登録済みである→"東京都"を"北海道"に変える→やっぱり"東京都"というレコードに戻す→重複チェックにひっかかり、フォーカスもそこから離せない状態である→元のレコードにはもう戻せない、とにかく"東京都"と異なる値で登録するしかない。。。という具合です。以下の関数を、更新前処理でよんでいます。どなたか、よいアドバイスをください。お願いいたします。 Function ChkInp(pCntrl As Control, _ pClmName As String, _ pCourt_Cd As String) As Boolean Dim wSQL As String ChkInp = False wSQL = "" wSQL = "select AREA_CD from COURTED_XXT009" wSQL = wSQL + " where COURT_CD = '" & pCourt_Cd & "'" wSQL = wSQL + " and " & pClmName & " = '" & pCntrl & "'" Set rst = CurrentDb.OpenRecordset(wSQL, , acReadOnly) If rst.EOF() = False Then ChkInp = True End If End Function
- ベストアンサー
- その他(データベース)
- Access DLOOKUP使用して重複入力を可能にする方法
Accessのフォームで個人データを入力するよう、色々設定している最中ですが、 重複データを残したいのに、 エラー等出て、どうも上手くいきません・・・＞＜ Accessに詳しい方、どうか教えてください！！！！！！！ ＜現在の設定＞ ---テーブル「個人リスト」--- ・個人ID（オートナンバー） ・姓 ・名 ・生年月日 ・前回の記録 フォームにてじゃんじゃか入力中に、以前に入力した同一の姓・名・生年月日の人を、 下記設定でわかるようにしました。 （ちなみにこれはある方から教えていただいたものです） ---フォーム「個人リストフォーム」--- （更新前処理：生年月日にて） work1 = DLookup("個人ID", "個人リスト", "生年月日 = #" & Forms!個人リストフォーム!生年月日 & "#" & " AND 姓 = '" & Forms!個人リストフォーム!姓 & "' AND 名 = '" & Forms!個人リストフォーム!名 & "'") If IsNull(work1) Then '重複データが無い場合は NULLが返ります else msgbox("個人ID=" & work1 & "に同じ人がいます") end if これで、同一の人がいたらメッセージで以前入力時の個人IDが出ます。 ＊私のしたいこと＊ （１）同一の人は新個人IDを取って入力したい。 （２）上記メッセージが出たら、その場で前回のデータ（フォーム）を閲覧できるようにしたい。 ※現在、閲覧しようとするとエラーが出ます。 エラー「インデックス、主キー、またはリレーションシップで値が重複しているので、テーブルを変更できませんでした。 重複の値のあるフィールドの値を変更するか、インデックスを削除してください。または重複する値を使用できるように再定義してください」 ※一度エラーが出ると、入力した姓・名・生年月日を書き換えようとしても、同じエラーが出て書き換えできない。。 （３）できることなら、以前の入力個人IDを「前回の記録」に反映させるようにしたい。 例）前回の記録 [ID858、ID1085] ※何度でも・・・ （４）できることなら！（２）前回のデータ（フォーム）が別画面でぱっと出るようにしたい！ こんな無謀？な希望をかなえてくれる方、是非是非ご伝授ください！ よろしくお願いいたします！
- ベストアンサー
- オフィス系ソフト
- ＡＣＣＥＳＳ重複のチェック
ＡＣＣＥＳＳで重複チェックをしたいと思います。 現在は電話番号テーブルだけしかありません。 電話番号のテーブルを主キーを使って重複している場合エラーメッセージを出すというものです。保存ボタンもありません。 Private Sub text電話番号_BeforeUpdate(Cancel As Integer) If IsNumeric(text電話番号) = False Then '数字チェック。 MsgBox "電話番号は数字で入力して下さい。", vbCritical Cancel = True ' 処理を取り消します。 Me.Undo End If Dim strmsg As String strmsg = "重複しています" If Not IsNull(DLookup("[電話番号]", "ダブリチェックテーブル", "[電話番号] = [text電話番号]")) Then MsgBox strmsg, 16, "ダブリチェック" Cancel = True '処理を取り消します。 Me.Undo '元に戻します。 Else Cancel = False '処理を続行します。 End If End Sub これに、企業名と出発日という項目を増やしたいと思います。 ですが、何万とある電話番号を一気に入力して調べているので、一回一回企業名と出発日を入れていると生産性が落ちます。 ですので、企業名と出発日は最初の入力だけで次のレコードに移動してを継続させたいのです。そして電話番号以外にカーソルを行かないようにしたいです。 何か良い方法があればご教授お願いします。 ちなみにいろいろ自分なりに試したのですが、重複してエラーを出した場合に企業名にカーソルが飛んだししてうまくいきませんでした。
- 締切済み
- その他(データベース)
- AccessSQL COUNT文で該当レコード抽出したい
初心者です。 Access2000であるテーブルの条件に一致した レコード件数を抽出するSQLを作成しました。 条件に該当しない場合も１件で件数が戻ってきてしまいます。 AccessクエリでＳＱＬを貼り付けて 検証した場合はちゃんと０件になるのですが VBAのコードではうまく件数が抽出されません。 簡単なことだったらごめんなさい。 いろいろなサイトで探した末、 どうしても解決できないので ご教授よろしくお願いします。 Dim strSQL As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim IntCount As integer 'SQL文を生成 strSQL = "SELECT COUNT(*) AS 件数 FROM テーブル名 " strSQL = strSQL & "WHERE テーブル名.コード = '" strSQL = strSQL & Forms![フォーム名]![txtコード] strSQL = strSQL & "' AND Left([テーブル名]![区分],1) = '" strSQL = strSQL & Forms![フォーム名]![cnb種類].Column(0) strSQL = strSQL & "' AND テーブル名.名称 = '" strSQL = strSQL & Forms![フォーム名]![txt名称] strSQL = strSQL & "';" Set db = CurrentDb Set rs = db.OpenRecordset(strSQL, dbOpenDynaset) IntCount = rs.RecordCount rs.Close Set db = Nothing Set rs = Nothing
- ベストアンサー
- その他（プログラミング・開発）
- ACCESSで重複チェック後にフォーカスを移動したい
Private Sub 会社名_AfterUpdate() ACCESS2003です。 フォーム上で入力後（更新後処理）に重複チェックをしています。 重複したときにエラーメッセージを出してフォーカスさせたいのです。 エラーメッセージまでは上手くいくのですが、フォーカスが移動してくれません。 どこが悪いのでしょうか？ Private Sub 会社名_AfterUpdate() Dim i As Integer i = DCount("*", "tbl取引先", "会社名 ='" & Me.会社名 & "'") If i = 1 Then MsgBox [会社名] & " は登録済みです。" Me![会社名].SetFocus Cancel = True End If End Sub よろしくお願いします
- ベストアンサー
- オフィス系ソフト
- VB6 重複チェックについて
お世話になります。 次の処理をVisual Basic6.0で教えてください。 １．Text1にキー入力した値をコマンドボタンクリックすると、Text1の値を保存します。 ２．次にText1に新たに入力してコマンドボタンクリックで前項で保存した値と重複して いないかチェックして重複無しならText1の値を保存します。 ３．Text1に新たに入力して・・・・重複チェックして・・・・ といった具合に保存する値と重複チェックする対象の値がどんどん増えていきます。 さすがに10,000件はいかないですが。 保存先は読み書き込みの時間も考慮してVB内のTextBOXが第1希望、外部のtxtファイルやcsvファイルは第2希望としたいです。 If Text1=保存値 Then 処理 else 処理 End If 保存値をText2として行いましたが、完全一致でないとダメでした。 入力値：保存値＝１：ｎ（入力値が複数の保存値と重複したかどうか）が知りたいです！ お手数おかけしますが、何卒よろしくお願いします。
- ベストアンサー
- Visual Basic
お礼
お返事遅くなりまして申し訳ございませんでした。 見事に解決しました！ありがとうございました。