Access VBA質問箱 IV

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

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


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

426 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【4664】Re:テーブルの削除と作成

初心者 - 05/3/20(日) 20:39 -


	引用なし

	パスワード

参考になりました。
どうもありがとうございます。

▼クロさん：
>横レス失礼します。
>http://www.f3.dion.ne.jp/～element/msaccess/AcTipsTblReNumberAutoNumFld.html
>http://www.ruriplus.com/msaccess/tch/tch_048.html
>上の何れかが参考になりませんか？

・ツリー全体表示


	【4663】フォームの作成

ふむふむ - 05/3/20(日) 19:59 -


	引用なし

	パスワード

ウィザードを使ってフォームを作成しようと
していますが、自動作成後のフォームには何も
表示されません。
デザインにはきちんと内容が作成されています。
２つのテーブルを１つのフォームにて表示・入力
できるようにしたいので、リレーションをしています。
テキスト型＝テキスト型ではだめですか？
リレーションの種類は未解決。

・ツリー全体表示


	【4662】Re:テーブルの削除と作成

クロ - 05/3/20(日) 18:52 -


	引用なし

	パスワード

横レス失礼します。
http://www.f3.dion.ne.jp/～element/msaccess/AcTipsTblReNumberAutoNumFld.html
http://www.ruriplus.com/msaccess/tch/tch_048.html
上の何れかが参考になりませんか？

・ツリー全体表示


	【4661】Re:テーブルの削除と作成

初心者 - 05/3/20(日) 17:35 -


	引用なし

	パスワード

なぜ削除してから作成なのかと言いますと、
オートナンバー型を使用するためテーブルを削除しないと
番号の振られ方が異なったものになってしまうからです。
よろしくお願いします。

▼hatena さん：
>なぜ削除して作成なのでしょうか。
>
>フィールド構成が変わらないのなら、全レコードの削除で
>いいかと思いますが。
>
>CurrentDB.Excute "DELETE * FROM Aテーブル;"

・ツリー全体表示


	【4660】Re:テーブルの削除と作成

hatena - 05/3/20(日) 17:25 -


	引用なし

	パスワード

なぜ削除して作成なのでしょうか。

フィールド構成が変わらないのなら、全レコードの削除で
いいかと思いますが。

CurrentDB.Excute "DELETE * FROM Aテーブル;"

・ツリー全体表示


	【4659】テーブルの削除と作成

初心者 - 05/3/20(日) 17:00 -


	引用なし

	パスワード

フォームからAテーブルを削除して、また、Aテーブルを作成したいのですが、どのように記述したらいいのかわからないので教えてください。

Aテーブルのレイアウトは下記でお願いします。

社員ｺｰﾄﾞ　　テキスト型
捕捉率　　　ナンバー型
ID　　　　　オートナンバー型

・ツリー全体表示


	【4658】Re:各県別に担当者を均等に割り振る方法

かめ - 05/3/18(金) 22:02 -


	引用なし

	パスワード

>こんばんは、YU-TANG です。
>
>横レス失礼します。
>
>>　rs.Edit
>>　rs!担当 = tantou(i)
>rs.Update
>>　rs.MoveNext
>
># 私もよく落とします。(^ ^;)

YU-TANG さんありがとうございました。
出来ました。

感謝です。

・ツリー全体表示


	【4657】Re:各県別に担当者を均等に割り振る方法

YU-TANG

- 05/3/18(金) 20:58 -


	引用なし

	パスワード

こんばんは、YU-TANG です。

横レス失礼します。

>　rs.Edit
>　rs!担当 = tantou(i)
rs.Update
>　rs.MoveNext

# 私もよく落とします。(^ ^;)

・ツリー全体表示


	【4656】Re:抽出条件

[名前なし] - 05/3/18(金) 20:42 -


	引用なし

	パスワード

返事遅くなりました。
なんとかできました！
どうもありがとうございました。

・ツリー全体表示


	【4655】Re:条件付の自動採番について

小僧 - 05/3/18(金) 19:10 -


	引用なし

	パスワード

▼CONDOR さん：
すみません。もう一度確認なのですが、

>データ型は共に数値型で、

こちらは試されていらっしゃいますか？

それと

>SQLの文の中に何か私が入れるべき数値があるのでしょうか
>それとも000001みたいな整数でないのを私が調整しないといけないのでしょうか
>なんとなく13という数字が式にないなぁとも思ったのですが･･･

こちらについてですが、クエリの中で行っている事は、
同一の「伝票No」の中で「行No」が何番目に小さいかを
判別させているため、同一の「伝票No」が13個以上なければ
「行No」は13を超えることは無い様になっています。

・ツリー全体表示


	【4654】Re:条件付の自動採番について

CONDOR - 05/3/18(金) 18:19 -


	引用なし

	パスワード

▼小僧さん：
早速のお返事ありがとうございます。
試してみました！

まず、クエリの結果に「New行No」というフィールドが出現しました
（これは前のときも出現はしていました。
ですが、前はA_TBLの書式を000000や00にしていなかったので
そこは直せました。）
ですが、
やっぱり＃エラーが並んで表示されています。。。

次はどうすればよろしいでしょうか
ご教授お願いします。

・ツリー全体表示


	【4653】Re:条件付の自動採番について

小僧 - 05/3/18(金) 18:03 -


	引用なし

	パスワード

▼CONDOR さん：　
こんばんは。説明不足ですみません。
　
『【4632】Re:条件付の自動採番について』
にて提示されたテーブルを「A_TBL」とします。

フィールド名は「伝票No」,「行No」
データ型は共に数値型で、
フィールド名にある書式をそれぞれ「000000」,「00」とします。

フィールドが数値型であれば先ほどのＳＱＬをクエリに貼り付ければ
クエリの結果に「New行No」というフィールドが出現するはずです。

まずはここまで出来るか、試してみましょう。

・ツリー全体表示


	【4652】Re:各県別に担当者を均等に割り振る方法

かめ - 05/3/18(金) 17:25 -


	引用なし

	パスワード

▼hatena さん：

>クエリでもできますが、この場合は、VBAの方が簡単かな。
>
>DAO を使う場合の例
>
>Dim rs As DAO.RecordSet
>Dim tantou(4) As String
>Dim i As Integer
>
>tantou(0) = "ああ"
>tantou(1) = "いい"
>tantou(2) = "うう"
>tantou(3) = "ええ"
>
>Set rs = CurrentDB.OpenRecordSet("SELECT 担当 FROM テーブル名 ORDER BY 顧客名")
>i = 0
>Do Until rs.EOF
>　rs.Edit
>　rs!担当 = tantou(i)
>　rs.MoveNext
>　If i < 3 Then
>　　i = i + 1
>　Else
>　　i = 0
>　End If
>Loop
>
>担当が４人という事なので配列に入れましたが、
>担当がテーブルにはいっているなら、それもレコードセットとして
>開いて使用すればいいですね。

すみません。
上記のとうりに書いて実行したのですが、書込みをしません。
なぜでしょうか？
よろしくお願いします。

・ツリー全体表示


	【4651】Re:条件付の自動採番について

CONDOR - 05/3/18(金) 17:18 -


	引用なし

	パスワード

▼小僧さん：

ありがとうございます。
私があまりわかっていないこともあるので、
まずは
A_TBLという名前の下記のようなテーブルを作って

伝票No
000000
000000
000000
000000
000000
000001
000001
000001
000001
000001
000001
000002
000002
000002
000002
000002
000003
000003
000003
000003
000003
000003
000003
000003
000003
000003
000003
000003
000004
000004
000004
000004
000004
000004
000004
000004
000004
000004
000004

クエリを新規作成し、SQLビューに
小僧さんのおっしゃった
SELECT A_TBL.伝票No, DCount("*","A_TBL","行No <= " & [行No] & " And 伝票No =" & [伝票No]) AS New行No
FROM A_TBL;
を貼り付けてみたのですが、#ｴﾗｰと出てしまいます。
やり方のどこが悪いのかがわからなく途方にくれています･･･。

SQLの文の中に何か私が入れるべき数値があるのでしょうか
それとも、000001みたいな整数でないのを私が調整しないといけないのでしょうか
なんとなく13という数字が式にないなぁとも思ったのですが･･･

初心者なもので、さっぱり取り付くシマがないんです。
もう一度教えていただけませんでしょうか。
よろしくお願い申し上げます

・ツリー全体表示


	【4650】Re:各県別に担当者を均等に割り振る方法

かめ - 05/3/18(金) 17:00 -


	引用なし

	パスワード

>クエリでもできますが、この場合は、VBAの方が簡単かな。
>
>DAO を使う場合の例
>
>Dim rs As DAO.RecordSet
>Dim tantou(4) As String
>Dim i As Integer
>
>tantou(0) = "ああ"
>tantou(1) = "いい"
>tantou(2) = "うう"
>tantou(3) = "ええ"
>
>Set rs = CurrentDB.OpenRecordSet("SELECT 担当 FROM テーブル名 ORDER BY 顧客名")
>i = 0
>Do Until rs.EOF
>　rs.Edit
>　rs!担当 = tantou(i)
>　rs.MoveNext
>　If i < 3 Then
>　　i = i + 1
>　Else
>　　i = 0
>　End If
>Loop
>
>担当が４人という事なので配列に入れましたが、
>担当がテーブルにはいっているなら、それもレコードセットとして
>開いて使用すればいいですね。

hatena さん早速のレスありがとうございます。
配列を使うのですね。
気がつきませんでした。
なにしろ初心者なもので。
早速やってみます。

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

・ツリー全体表示


	【4649】Re:各県別に担当者を均等に割り振る方法

hatena - 05/3/18(金) 15:23 -


	引用なし

	パスワード

> 県別でソートして４人の名前を順次入力していけばよいと思うのですが、
> これをＶＢＡやクエリを利用して自動で出来ないでしょうか。
> 最終的に担当者別の受持件数は同じでなくてもいいんですが（数件の
> 違いはＯＫ）。

クエリでもできますが、この場合は、VBAの方が簡単かな。

DAO を使う場合の例

Dim rs As DAO.RecordSet
Dim tantou(4) As String
Dim i As Integer

tantou(0) = "ああ"
tantou(1) = "いい"
tantou(2) = "うう"
tantou(3) = "ええ"

Set rs = CurrentDB.OpenRecordSet("SELECT 担当 FROM テーブル名 ORDER BY 顧客名")
i = 0
Do Until rs.EOF
　rs.Edit
　rs!担当 = tantou(i)
　rs.MoveNext
　If i < 3 Then
　　i = i + 1
　Else
　　i = 0
　End If
Loop

担当が４人という事なので配列に入れましたが、
担当がテーブルにはいっているなら、それもレコードセットとして
開いて使用すればいいですね。

・ツリー全体表示


	【4648】DBリンク

初心者 - 05/3/18(金) 14:26 -


	引用なし

	パスワード

OracleのテーブルをAccessにリンクするときは
ODBCリンクになると思うのですが
これをOLEでリンクしたいのです。
どうやったら、よいでしょうか？

・ツリー全体表示


	【4647】各県別に担当者を均等に割り振る方法

かめ - 05/3/18(金) 14:09 -


	引用なし

	パスワード

お世話になります・
－－－－－－－－－－－－－－－－－－－－－
県　　顧客名　　　電話番号　　　　　担当
－－－－－－－－－－－－－－－－－－－－－
愛知　Ａ　　　　　000-000-0000
京都　Ｂ　　　　　000-000-0000
愛知　Ｃ　　　　　000-000-0000
奈良　Ｄ　　　　　000-000-0000

上記の様な顧客テーブルがあるとします。
レコード数は何百とします。
４人の担当者がいて担当を割振りたいのですが、
各県に均等に割振りたいのです。
愛知が20レコードだとすると5レコードずつ、
京都が10レコードだとすると3,3,2,2レコードずつ
奈良が9レコードだとすると3,2,2,2レコードずつ
null値の担当者の項に自動で４人の担当者名を更新（入力）して
いくよい方法はないでしゃうか。

県別でソートして４人の名前を順次入力していけばよいと思うのですが、
これをＶＢＡやクエリを利用して自動で出来ないでしょうか。
最終的に担当者別の受持件数は同じでなくてもいいんですが（数件の
違いはＯＫ）。

どなたかよろしくお願いします。

・ツリー全体表示


	【4646】Re:住所入力支援・ふりがな機能について

クロ - 05/3/18(金) 13:30 -


	引用なし

	パスワード

>レコードソースとしてクエリーを指定した場合は
>機能しないようです。

何かメッセージがでますか？
それとも単に反応しないのでしょうか？

・ツリー全体表示


	【4645】住所入力支援・ふりがな機能について

pinetree - 05/3/18(金) 11:57 -


	引用なし

	パスワード

フォームでレコードソースとしてテーブルを指定した場合には住所入力支援・ふりがな機能が有効に機能しますが、レコードソースとしてクエリーを指定した場合は機能しないようです。クエリーを利用して上記の機能を利用する方法はありますか？利用環境は　WIN2000　access2003　です。

・ツリー全体表示


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

426 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free