Access VBA質問箱 IV

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

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


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

452 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【4125】Re:チェックボックスから抽出したい。

クロ - 05/1/12(水) 11:14 -


	引用なし

	パスワード

Me!サブフォーム1.Form.Filter = "[チェックボックス名]=-1"
Me!サブフォーム1.Form.FilterOn = True

ではどうでしょうか？

・ツリー全体表示


	【4124】チェックボックスから抽出したい。

ゴン太 - 05/1/12(水) 10:58 -


	引用なし

	パスワード

フォーム上にコマンドボタンを作りイベントでサブフォーム内のチェックボックスにチェックを
付けたものだけ抽出したいのですが
こんな感じで考えたのですが上手くいきません。（勉強不足で！）

Me!サブフォーム1.Form.Filter = "チェック箇所 Like '*'"
　　
Me!サブフォーム1.Form.FilterOn = True

いい方法は無いでしょうか？
よろしくお願いします。

・ツリー全体表示


	【4123】キー違反のデータの表示

スリッパ - 05/1/12(水) 0:11 -


	引用なし

	パスワード

AccessVBAに関しては初心者です。
意味の解らない質問かもしれませんが、よろしくお願い致します。

Access2000での質問です。

テキストファイル等からテーブルにデータを取り込む際に、キー違反があった場合『すべてのデータをテーブルに追加できませんでした。キー違反のため～～～～』というエラーメッセージが流れます。
このキー違反のレコードのデータの内容を知る方法（別テーブルに保存等）はないでしょうか？

・ツリー全体表示


	【4122】Re:VBでAccessを使う構文

かろちん - 05/1/11(火) 23:39 -


	引用なし

	パスワード

こんばんは

一番簡単な方法を下記に記述します。

1.VBのフォームにデータコントロールを貼り付け以下の設定を
　します。
　※ツールバーに表示されているアイコンに、マウスカーソル
　　をあてると、Dataと出てくるアイコンをクリックし、
　　フォームに貼り付けます。
　1)プロパティウインドウのDatabaseNameをクリックし、横の
　　...のボタンをクリックし、ACCESSのMDBを選択します。
　2)プロパティウインドウのRecordSourceより任意のテーブル
　　を選択します。

2.テキストボックスをフォームに貼り付け以下の設定をします。
　1)プロパティウインドウのDataSourceよりデータコントロー
　　ルの名前を選択します。
　2)プロパティウインドウのDataFieldより表示するデータの
　　フィールドを選択します。
　※これで、テキスト表示ができます。

3.次にOLEコントロールをフォームに貼り付け以下の設定をします。
　1)プロパティウインドウのDataSourceよりデータコントロー
　　ルの名前を選択します。
　2)プロパティウインドウのDataFieldより画像のフィールド名
　　を指定します。

以上で、VBを実行してみてください。
画面にデータが表示されると思います。

・ツリー全体表示


	*【4120】ありがとうございます(≧∀≦)**

ＲＯＭＩ - 05/1/11(火) 22:52 -


	引用なし

	パスワード

うまくできました！
本当に自分で応用がきかなくて・・・（反省＿|￣|○）

ありがとうございます。

・ツリー全体表示


	【4119】Re:リンク先を張りなおすとクエリーが動か...

クロ - 05/1/11(火) 18:13 -


	引用なし

	パスワード

※ cLincDelim は acLinkDelim ですよ。転記ミスだと思うけど...

簡単なのはリンク定義でFをフィールド1にするようにしておいて
保存し、SpecificationNameに指定してあげてください。

DoCmd.TransferText acLinkDelim, "リンク定義名", "T_LinkTable", LinkFile

・ツリー全体表示


	【4118】Re:リンク先を張りなおすとクエリーが動か...

山田 - 05/1/11(火) 18:01 -


	引用なし

	パスワード

▼クロさん：
>クエリを開きっぱなしで行っているとか？
>当方では特に問題はないのですが...
>
>もしかしたらリンク時の定義(データ型)が違うとか？

有難うございました。
調べたら正にそのとおりでした。
フィールド名が「フィールド１」から「Ｆ１」のように変わっていました。
リンク時のフィールド名を「フィールド１」と定義するように
ＶＢＡで記述する方法はないのでしょうか？

ご教授ください

・ツリー全体表示


	【4117】Re:VBでAccessを使う構文

マッキー

- 05/1/11(火) 14:39 -


	引用なし

	パスワード

>なろっちさん　こんにちは
>
>本当に申し訳ございません。
>自宅PCが使えず返信ができませんでした。
>本当にすいませんm(_ _)m
>Accessのバージョンは、2000です。
>VBはVisual Studio6.0です。
>　
>まったく試しようがないので（汗）　
>全然です（涙）
>

・ツリー全体表示


	【4116】Re:テーブルからのレコードの抽出について

MJM - 05/1/11(火) 14:16 -


	引用なし

	パスワード

こんにちは。

DLookup関数というのがありますので、
これを用いては如何でしょうか。

使用方法は、DCount関数と同様になります。
詳細は、ヘルプを参照下さい。

・ツリー全体表示


	【4115】Re:リンク先を張りなおすとクエリーが動か...

クロ - 05/1/11(火) 14:04 -


	引用なし

	パスワード

クエリを開きっぱなしで行っているとか？
当方では特に問題はないのですが...

もしかしたらリンク時の定義(データ型)が違うとか？

・ツリー全体表示


	【4114】Re:リンク先を張りなおすとクエリーが動か...

山田 - 05/1/11(火) 13:53 -


	引用なし

	パスワード

▼クロさん：
>>’古いﾃｰﾌﾞﾙを削除する
>>DoCmd.DeleteObject acTable,"T_OldLinkTable"
>>’新たなﾃｷｽﾄファイルにリンクしなおす
>>DoCmd.TransferText cLincDelim,,"T_NewLinkTable",LinkFile
>
>テーブルオブジェクト名が変わるからということなら
>
>DoCmd.TransferText acLinkDelim, , "T_OldLinkTable", LinkFile
>
>のように前と同じ名前にすればいいのでは？
>※更新時間で新しいか古いかを確認する

すみません、リンク後のテーブル名は下記のように同じでした。
もちろんフィールド名も同じです。
それでも、削除時に一旦リンクが外れてしまうと駄目なようです。
何か方法ありませんでしょうか？

DoCmd.DeleteObject acTable,"T_LinkTable"
’新たなﾃｷｽﾄファイルにリンクしなおす
DoCmd.TransferText cLincDelim,,"T_LinkTable",NewLinkFile

・ツリー全体表示


	【4113】Re:リンク先を張りなおすとクエリーが動か...

クロ - 05/1/11(火) 13:42 -


	引用なし

	パスワード

>’古いﾃｰﾌﾞﾙを削除する
>DoCmd.DeleteObject acTable,"T_OldLinkTable"
>’新たなﾃｷｽﾄファイルにリンクしなおす
>DoCmd.TransferText cLincDelim,,"T_NewLinkTable",LinkFile

テーブルオブジェクト名が変わるからということなら

DoCmd.TransferText acLinkDelim, , "T_OldLinkTable", LinkFile

のように前と同じ名前にすればいいのでは？
※更新時間で新しいか古いかを確認する

・ツリー全体表示


	【4112】出来ました。

nami - 05/1/11(火) 12:27 -


	引用なし

	パスワード

出来ました。

メインフォーム・サブフォームから指定して
あげれば良かったのですね！

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

・ツリー全体表示


	【4111】リンク先を張りなおすとクエリーが動かない

山田 - 05/1/11(火) 12:11 -


	引用なし

	パスワード

外部のtextファイルにリンクを張っているのですが
リンク先だけを随時張りなおす必要があるため
VBAで下記のように処理したのですが

’古いﾃｰﾌﾞﾙを削除する
DoCmd.DeleteObject acTable,"T_OldLinkTable"
’新たなﾃｷｽﾄファイルにリンクしなおす
DoCmd.TransferText cLincDelim,,"T_NewLinkTable",LinkFile

ﾃｰﾌﾞﾙを削除した時点で、古いﾃｰﾌﾞﾙから作ったクエリーが
正常に動いてくれません
どうしたら元のクエリーも生かして使用できるでしょうか？
ご教授ください。

・ツリー全体表示


	【4110】テーブルからのレコードの抽出について

ＲＯＭＩ - 05/1/11(火) 11:56 -


	引用なし

	パスワード

テーブル名　「勤怠管理」
--------------------------------------------------
　SyainNo　　　　 Nen　　　　　　　Time
--------------------------------------------------
　　 0001　　 2005/01/11　　　　　 11:20
　　 0002　　 2005/01/11　　　　　 11:10
　　 0003　　 2005/01/10　　　　　 13:10
--------------------------------------------------

という、テーブルがありここから、社員番号「0002」のＴｉｍｅを画面に出力したいのですが、わかりません。もしかしたらすぐに解るかもしれないのですが、教えてください。お願いします。

・ツリー全体表示


	【4109】Re:サブフォームの内を更新(再クエリ)した...

クロ - 05/1/11(火) 11:07 -


	引用なし

	パスワード

別フォーム(入力フォーム)からするのなら
Forms!メインフォーム名.サブフォーム名.Requery
で出来るはずですが、どうでしょう？

・ツリー全体表示


	【4108】ありがとうございます！！！！！！！！

ＲＯＭＩ - 05/1/11(火) 10:45 -


	引用なし

	パスワード

お二人からの指摘どおり、テーブルのフィールドが数値型じゃなくテキスト型になっていました！
本当にありがとうございます。
これを応用して、テーブルのさまざまな更新に使えるので、本当に助かりました。

・ツリー全体表示


	【4107】サブフォームの内を更新(再クエリ)したい。

nami - 05/1/11(火) 10:24 -


	引用なし

	パスワード

画面上に、メインフォームの中にサブフォームが有ります。
それと別に　"入力フォーム"　(ポップアップにしています。)が有り

全てのフォームを開いた状態で、

入力フォームでデーターを入力して
フォームを閉じる時イベントで、

サブフォーム内を　"更新(再クエリ)"　したいのですが、上手くいきません。

メインフォームからだとコマンドボタンで確かめたら

　DoCmd.Requery "サブフォーム"

で上手くいくのですが、

何かいい方法は無いでしょうか？
よろしくお願いします。

・ツリー全体表示


	【4106】Re:訂正

MJM - 05/1/11(火) 9:31 -


	引用なし

	パスワード

> i = DCount("*", "年月", "[Nen] = " & Year(Date) & " AND [Tuki] = " & Month(Date))

Nen と Tuki フィールドが、テキスト型の場合は、

i = DCount("*", "年月", "[Nen] = '" & Year(Date) & "' AND [Tuki] = '" & Month(Date) & "'")

などとする必要がありますが、如何でしょう。

・ツリー全体表示


	【4105】Access中でピボットテーブルを実施したい

にしもり - 05/1/10(月) 16:27 -


	引用なし

	パスワード

ピボットテーブルをExcelに吐いてからでなく、Access中で実施したいと考えています。
まずテーブルを開き、表示（V）のピボットテーブルビューを開きます。
テキスト（技術評論社刊）によると、１．「ここに行フィールドをドロップします」２．「ここに列フィールドをドロップします」３「ここにフィルターを設定するフィールドをドロップします」と出るはずが、真っ白にままで、アイテム一覧しかでません。１．２．３を表示さすためには、なにかあらかじめVBをくまなければいけないのでしょうか？
どなたかご教示ください。

・ツリー全体表示


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

452 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free