• 締切済み

Accessエラー処理

前任者が作成したAccess VBAにて作成したプログラム コンボボックス内の項目を追加処理し 登録ボタンにて登録しようとすると -2147217833 指定されたデーター量がフィールドサイズを超えています。データー量を減らし、 挿入または貼り付けを行ってください。 モジュール名　InsertData 以上のようなエラーが出ます。 行っているプログラムはコンボボックスにて選択された色名（ライトグリーン）にエクセルのカラーコード（４３）を指定して 指定したエクセルのセルをこの色で塗りつぶす作業です。 説明が足りないかと思いますが、わかる限り 教えていただけないでしょうか？

みんなの回答

  • ArukuMail
  • ベストアンサー率22% (115/510)
回答No.1

運用してるシステムがわからないのでなんともいえませんが リストボックス、コンボボックスは ともにリストに加えられる数が決まっております。 windows9X系であれば、最大数（65535）の半分

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

  • Access エラー解除方法？

    AccessのVBAにて　前任者が作成したプログラムの変更を行っているのですが、コンボボックスから色を指定して印刷時にエクセルのセルを 塗りつぶすプログラム Public Function chgExcelColorCode(ByVal ColorNo As String) As Long On Error GoTo chgExcelColorCodeErr chgExcelColorCode = 2 Select Case ColorNo Case "" chgExcelColorCode = 2 Case "白色" chgExcelColorCode = 2 Case "水色" chgExcelColorCode = 34 Case "黄色" chgExcelColorCode = 36 Case "緑色" chgExcelColorCode = 35 Case "紫色" chgExcelColorCode = 39 Case "ピンク色" chgExcelColorCode = 38 Case "オレンジ色" chgExcelColorCode = 40 Case "イエロー" chgExcelColorCode = 6 Case "ライトブルー" chgExcelColorCode = 20 Case "Lグリーン" chgExcelColorCode = 4 End Select chgExcelColorCodeExit: Exit Function chgExcelColorCodeErr: Call S_Err("chgExcelColorCode", Err) GoTo chgExcelColorCodeExit End Function 以上でイエロー、ライトブルー、Lグリーンを追加したのですが Lグリーンのみうまく登録できません。 指定するコンボボックスの値集合ソースは増やしているのですが エラー内容は -2147217833 指定されたデーター量がフィールドサイズを超えています。データー量を減らし、挿入または貼り付けを行ってください。 モジュール名InsertData 以上のようになります。 何を修正すればエラー解除できるのでしょうか？

  • ExcelをAccessにペーストエラー

    Access初心者です。 Excelデータを（知人が作った）Access2000のテーブルにペーストしようとしたら以下のエラーメッセージがでました。 「指定されたデータ量がフィールドサイズを超えています。データ量を減らし、挿入または貼り付けを行ってください」 以下のことを試してみました。 (1)Excelデータを全て値にした（数式を値コピーした） (2)Accessのテーブルをデザインビューで開き、フィールドサイズが大きそうなフィールドの文字数をテキスト型255文字まで広げた（もともとメモ型で設計されていましたが、それでも同じエラーでした） (3)Excelのセル内の文字数を60文字くらいまでに削除（データ区切りで）しました どうすればこのエラーを解消できるでしょうか？？ ご存知の方がいらっしゃいましたら教えてください！！（助けてください～。。。納期が。。。。泣）

  • accessの置換え

    いつもお世話になっております よろしくお願いします access2000で氏名フィールドというフィールドに記載されている文字列（氏名）を未登録に置き換えようと思い 検索する文字列　*　（氏名がばらばらなのでワイルドカードを使用） 置換え後の文字列　未登録 検索する場所　氏名 検索条件　フィールド全体 にして全て置換えをすると 指定されたデータ量がフィールドサイズを超えています。 データ量を減らし、挿入または貼り付けを行ってください と出てきて一気に変換できません。 方法が間違っているのでしょうか？

  • accessでコンボボックスの内容を変える方法を教えて下さい。

    accessのフォームにてデータ入力画面を作成しています。 フィールド入力にコンボボックスを用いてリスト選択にしたいのですが、リストの量が膨大になってしまう為、その前のフィールド値によってリスト用テーブルを切り換えて使いたいと思っています。簡単に出来る方法があれば教えて下さい。

  • Accessでエラー

    先日にもお伺いした内容ですが、マスターテーブルとサブテーブルをリレーションで組んでいて、メインフォーム内で一つのフィールドにサブテーブルを元にコンボボックスで表示させるようにしているのですが、そのフィールドがNULLか""の状態で終了しようとすると、エラー表示がでます。こういう場合はメインフォーム内で常にこのフィールドに入力しないといけないものなのでしょうか？ また、自己流ですべて作成しているので、何か作成の仕方がおかしいのでしょうか。このことは、特定のフォームだけでなく、数種のフォームで同じ現象がでています。

  • accessでコンボボックスとサブフォームでデータ表示したい。

    accessのフォームでデータ検索表示したいのですが？ データ表示の検索フォームを作成しようとしています。 まず検索したいテーブルの検索ＫＥＹにしたいフィールドを クエリを使い集計し、その結果をコンボボックスで表示して コンボボックスで指定すると、同一フォーム内にサブフォーム もしくはリストボックスで検索結果を表示したいのですが パラメータのわたしかた等が、よくわかりません。 方法を教えていただけないでしょうか？ 参考になるサンプル等があれば助かります。 よろしくお願いします。

  • 困ってます！Accessフォームのコンボボックス

    初心者です。とーっても困っています・・・。 顧客データを登録しているのですが、テーブルを元に登録フォームを作成しました。 商品がたくさんあって、４つのコードに分かれています。フォームの中に[Ａ][Ｂ][Ｃ][Ｄ]と４つのコンボボックスを作成し、絞込み検索ができるようにはしました。 が、しかし、選んだデータがテーブルに表示されません。例えば[Ａ]のコンボボックスの中から[１０１０]を選択、テーブルを見ると、他のテキストボックスに入力した情報は保存されているけど、コンボで選んだデータは空白です。 誰か助けてください！！よろしくお願いします。

  • アクセスでOutputTOを使用してエクセルへ

    アクセスでOutputTo acOutputFormを使用して、エクセルへデータをエクスポートしています。 フォームには、コンボボックス1、コンボボックス2、テキストボックス1を用意し、 データを抽出し、フォーム上に表示されたデータのみをエクスポートしています。 エクスポートされたエクセルデータを確認すると、コンボボックス1、コンボボックス2、 テキストボックス1も、エクセルデータの項目としてエクスポートされてしまいます。 このコンボボックス1、コンボボックス2、テキストボックス1をエクセルに エクスポートしなようにする方法はありますか？ 下記でエクスポートしています。 DoCmd.OutputTo acOutputForm, "F_設備", , "\\***\***\***\" & "book1.xls", True

  • Access2010 イベントプロシージャのエラー

    Accessの初心者です。テキストを読みながら、フォームに配置したコンボボックスにイベントプロシージャを設定して実行したところ、エラーメッセージ表示されました。どなたか御指導頂ければ幸いです。 １．関連するオブジェクト a) 一側テーブル名： T_選手プロフィール 　このテーブルに「ID_選手プロフィール」という主キーフィールドがあります。 b) 多側テーブル名： T_期間成績 　このテーブルに「選手プロフィール親ID」というフィールドがあります。 * リレーションシップウィンドウで「ID_選手プロフィール」と「選手プロフィール親ID」にリレーションシップを設定しました。 c) クエリ名： Q_期間成績_現役選手プロフィール 　このクエリの中に、「ID_選手プロフィール」と「氏名」と「登録番号」というフィールドがあります。 d) フォーム名： F_期間成績 サブフォーム「Ｔ_期間成績明細」を中に入れたフォームを作成しました。 2．フォーム上での操作 a) フォーム「F_期間成績」に、コンボボックス「登録番号_コンボ」というコンボボックスを配置しました。 b) このコンボボックスのコントロールソースは、c)の「Q_期間成績_現役選手プロフィール」の「選手プロフィール親ID」です。 c) このコンボボックスで選択した「ID_選手プロフィール」という値に対応する、「氏名」をフォームに新たに配置した非連結のテキストボックス「氏名_テキスト」に、「Q_期間成績_現役選手プロフィール」の「氏名」フィールドの値を表示させようとしています。 d) 「登録_コンボ」コンボボックスの更新後処理からコードビルダーを起動し、テキストを参照しながら以下のコードを書きました。 Private Sub 登録番号_コンボ_AfterUpdate() Name = DLookup("[氏名]", "Q_期間成績_現役選手プロフィール", "登録番号=登録番号_コンボ") If Not IsNull(Name) Then 氏名_テキスト = Name End If End Sub ｅ） フォームにてコンボボックスを操作したところ、「実行時エラー '94': Nullの使い方が不正です。」という実行時エラーが表示されました。色々と試してみましたが、上手くいきませんでした。 分かりにくい説明で恐縮ですが、宜しくお願い致します。

  • Excel VBA コンボボックスについて

    Excel VBA コンボボックスを作成しましたが、リンクを張ってあるデータ文字数が多いと、指定したサイズのコンボボックスよりはみ出て、すべて見ることができません。 Excelの「折り返して表示」のように表示するためには、どのようにしたらいいのでしょうか。 また、 この質問の参考になる、サイトなどありましたら、教えてください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する