-PR-
締切済み

アクセス2000でデータの追加がうまくいかないんですけど

  • すぐに回答を!
  • 質問No.89908
  • 閲覧数191
  • ありがとう数2
  • 気になる数0
  • 回答数2
  • コメント数0

お礼率 24% (21/85)

アクセス2000を使ってます。
基礎データというテーブルを作って、そこに「テキスト」というメモ型のフィールドを作り、
参照追加フォームというフォームを作って、その中に二つのテキストボックスを配置し、一方のテキストボックス1には「基礎データ」の「テキスト」をコントロールソースとして設定し、他方のテキストボックス2は非連結にし、コマンドボタンを二つ配置して、一方のコマンドボタン1を押すと、テキストボックス1のデータがテキストボックス2のデータにコピーされるようにVBAコードを書き、さらに、もうひとつのコマンドボタン2を押すと、非連結のテキストボックスのデータを、基礎データテーブルの「テキスト」というフィールドに追加する追加クエリを動かすようにしました。
 このような状況で、コマンドボタン2を押すと、非連結のテキストボックス2のデータが、全角126文字までなら正常に動作するのですが、それ以上(全角127文字以上)になると、「引数が無効です。」というエラーが出てしまいます。
基礎データテーブルの「テキスト」はメモ型に設定してあるのに、どうしてこのようなエラーが出てしまうのでしょうか?誰か教えてください。
 ※ためしに、追加クエリ単独で動かして、全角127文字以上のデータを入れた場合には、追加クエリは正常に動作します。これって、フォーム側の問題なんですか?
 
通報する
  • 回答数2
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全2件)

  • 回答No.1
レベル12

ベストアンサー率 33% (196/589)

テキストボックスの問題ではないでしょうか。 テキストボックスはテキスト型なので、0~255までしか使えないと思います。
テキストボックスの問題ではないでしょうか。
テキストボックスはテキスト型なので、0~255までしか使えないと思います。
関連するQ&A


  • 回答No.2
レベル12

ベストアンサー率 45% (207/457)

ざっくりしたプログラムで申し訳ないが下記の通りやってみましたが問題なく基礎データには新しい1行が追加されましたよ。1分程度で作った内容なので何もしてしてしていませんが... テキストボックスのコピー Private Sub コマンド4_Click() Me.テキスト2 = Me.テキスト0 End Sub データの追加 Private Sub コマンド5_Click ...続きを読む
ざっくりしたプログラムで申し訳ないが下記の通りやってみましたが問題なく基礎データには新しい1行が追加されましたよ。1分程度で作った内容なので何もしてしてしていませんが...

テキストボックスのコピー
Private Sub コマンド4_Click()
Me.テキスト2 = Me.テキスト0

End Sub

データの追加
Private Sub コマンド5_Click()
Dim SqlCmd As String

SqlCmd = "INSERT INTO 基礎データ (ID,テキスト)"
SqlCmd = SqlCmd & "values ('1','" & Me.テキスト2 & "')"

DoCmd.RunSQL SqlCmd

End Sub
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


新大学生・新社会人のパソコンの悩みを解決!

いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ