Access VBA質問箱 IV

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

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


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

488 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【3389】Re:リストボックスについて

phoo - 04/9/2(木) 15:01 -


	引用なし

	パスワード

>そのリストボックスを選んでそのまま書き込める事ができるのでしょうか？
できます。

コードでやる場合は、
Me!リスト１.RowSource = "くるま;ヒコーキ;でんしゃ"
Me.Repaint

直接指定する場合は、
リストボックスのプロパティで、集合値ソースに
"くるま";"ヒコーキ";"でんしゃ"
と手入力する。

こうゆう回答でいいんですかね～。

・ツリー全体表示


	【3388】Re:リストボックスについて

Gin_II - 04/9/2(木) 14:59 -


	引用なし

	パスワード

>今回の件なのですが、Access　VBAについているリストボックスというのは、
>そのリストボックスを選んでそのまま書き込める事ができるのでしょうか？

値リストを使ってみてください。

・ツリー全体表示


	【3387】リストボックスについて

saikoro - 04/9/2(木) 14:38 -


	引用なし

	パスワード

ここの掲示板では、以前にお世話になりありがとうございます。

今回の件なのですが、Access　VBAについているリストボックスというのは、
そのリストボックスを選んでそのまま書き込める事ができるのでしょうか？

それとも、リストボックスは、やはりテーブルか、クエリをそのまま表示させる
だけの物なのでしょうか？

知っている方いらっしゃいましたらよろしくお願いします。

なので、リストボックスに値を書き込もうとした場合は、
別のダイアログでテーブルか、クエリを編集するしかないのでしょうか？

わかりにくい質問で申し訳ありませんがよろしくお願いします。

・ツリー全体表示


	【3386】Re:タブコントロールについて

クロ - 04/9/2(木) 8:23 -


	引用なし

	パスワード

テキスト2プロパティの編集ロックを「はい」してみては？

・ツリー全体表示


	【3385】タブコントロールについて

サライ - 04/9/2(木) 7:35 -


	引用なし

	パスワード

タブコントールにはページ1とページ2があります。それぞれにテキストボックスがついていますが、ページ2の場合、新規レコードが入力できないようにしたいのです。どのようにしたらいいでしょうか？

・ツリー全体表示


	【3384】Re:オートナンバーについて

カキ氷 - 04/9/2(木) 7:32 -


	引用なし

	パスワード

ありがとうございました。うまくいきました★

・ツリー全体表示


	【3383】Re:自動発番をしたい

カキ氷 - 04/9/2(木) 7:32 -


	引用なし

	パスワード

ありがとうございました。うまくいきました★

・ツリー全体表示


	【3382】Re:ダブルクリックすると今日の日付が・・...

カキ氷 - 04/9/2(木) 7:31 -


	引用なし

	パスワード

ありがとうございました。うまくいきました★

・ツリー全体表示


	【3381】Re:クエリのレコード数の出し方について

Tomato - 04/8/31(火) 20:53 -


	引用なし

	パスワード

どうもありがとうございました。簡単にできました。
Dcount関数というものの存在を知りませんでした。
今後はもう少し調べてからお聞きしたいと思います。
ありがとうございました。

・ツリー全体表示


	【3380】Re:オートナンバーについて

こもれび - 04/8/31(火) 20:44 -


	引用なし

	パスワード

こもれびです

「オートナンバー型」はテーブルのデザイン時に内部で初期化し発番する
もので、解除後は使用できません

新たなテーブルにデータを移動するしか手は無いと考えます。

・ツリー全体表示


	【3379】Re:クエリのレコード数の出し方について

Gin_II - 04/8/31(火) 20:34 -


	引用なし

	パスワード

>今はクエリ作成時とは別に、以下の方法でレコード数を出しているのですが、
>レコード数が大量のためクエリ作成時にレコード数も確認してしまいたいと
>思っています。

DCount 関数を使うとか。

・ツリー全体表示


	【3378】クエリのレコード数の出し方について

Tomato - 04/8/31(火) 20:26 -


	引用なし

	パスワード

CreateQueryDefにて作成したクエリ(QueryA)のレコード数を簡単に求める方法が
ありましたら教えてください。

今はクエリ作成時とは別に、以下の方法でレコード数を出しているのですが、
レコード数が大量のためクエリ作成時にレコード数も確認してしまいたいと
思っています。
目的としては、たまに作成したクエリに空白の1レコードが入っていることが
あるため、そのクエリをはじく(CheckNull = True)ことです。

　　Dim val
　　Dim dbs As Database
　　Dim rst As Recordset

　　CheckNull = False

　　Set dbs = CurrentDb
　　Set rst = dbs.OpenRecordset(QueryA, dbOpenDynaset)
　　
　　If rst.RecordCount = 0 Then
　　　　CheckNull = True
　　Else
　　　　rst.MoveLast
　　　　If rst.RecordCount = 1 Then
　　　　　　rst.MoveFirst
　　　　　　val = rst!ID
　　　　　　CheckNull = True
　　　　End If
　　End If
　　rst.Close
　　dbs.Close

よろしくお願いします。

・ツリー全体表示


	【3377】Re:自動発番をしたい

クロ - 04/8/31(火) 14:13 -


	引用なし

	パスワード

フォームの挿入前処理のイベントで

If Me.NewRecord Then
Me.TB1 = Nz(DMax("ID", "Table1"), 0) + 1
End If

では如何でしょうか？

・ツリー全体表示


	【3376】Re:ダブルクリックすると今日の日付が・・...

クロ - 04/8/31(火) 12:01 -


	引用なし

	パスワード

ダブルクリック時のイベントに

If Len(Nz(Me.テキストボックス名, "")) = 0 Then Me.テキストボックス名 = Date

でよろしいかと...

・ツリー全体表示


	【3375】Re:ダブルクリックすると今日の日付が・・...

phoo - 04/8/31(火) 12:00 -


	引用なし

	パスワード

テキストボックスでダブルクリックのイベントプロシジャを作成します。
で、下記の様なコードを記述すれば、できますよ。
（テキストボックスの名前は”txt_日付”にしています）

　　If IsNull(Me!txt_日付) Or Me!txt_日付 = "" Then
　　　　Me!txt_日付 = Format(Now(), "yyyy/mm/dd")
　　　　Me.Repaint
　　End If

・ツリー全体表示


	【3374】ダブルクリックすると今日の日付が・・・

台風99号 - 04/8/31(火) 11:48 -


	引用なし

	パスワード

フォーム上のテキストボックスが空欄の場合のみ、テキストボックスをダブルクリックすると、今日の日付が表示されるようにしたいのですが、どうしたらよいでしょうか？

・ツリー全体表示


	【3373】自動発番をしたい

台風28号 - 04/8/31(火) 10:52 -


	引用なし

	パスワード

テーブル: Table1
フィールド: ID(数値型）
フォーム: Form1
テキストボックス: TB1（IDとリンク）
テキストボックスの新規レコード入力の際、自動発番が振られるようにしたいのですが・・・

・ツリー全体表示


	【3372】オートナンバーについて

カキ氷 - 04/8/31(火) 10:23 -


	引用なし

	パスワード

オートナンバー型のフィールド1を含むテーブルに1000件ほどデータを入れましたが、一度フィールド1を数値型（重複なし）に変えました。その後、もう一度オートナンバー型に変えたいのですがうまくいきません。フィールド1の数字を前のままでオートナンバー型にする方法はありますか？

・ツリー全体表示


	【3371】Re:コードによるテーブルの更新

やま - 04/8/31(火) 9:33 -


	引用なし

	パスワード

▼かみちゃんさん：
　ご回答いただき、ありがとうございます。
　なんとかできました！！本当にありがとう
　ございました。

・ツリー全体表示


	【3370】Re:コードによるテーブルの更新

かみちゃん - 04/8/30(月) 21:07 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>以下ようなテーブルの配列番号を持つ項目を
>更新する場合、効率のよいコードの書き
>方はありませんか？
>（全ての項目名を指定してコードを書くと
>大変なので・・・。）
>更新する値は、全て同じ値です。

とりあえず、以下のような感じでいかがですか？
For ～ Next で処理しているところがポイントです。

Sub 更新処理()
　Dim db As DAO.Database
　Dim rs As DAO.Recordset
　Dim lngIdx As Long
　
　Set db = CurrentDb
　Set rs = db.OpenRecordset("テーブルＡ", dbOpenDynaset)
　
　rs.Edit
　For lngIdx = 0 To 99
　　rs.Fields(lngIdx) = 値
　Next lngIdx
　rs.Update

　rs.Close
　db.Close
End Sub

・ツリー全体表示


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

488 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free