Access VBA質問箱 IV

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

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


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

438 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【4418】Re:ファイル共有に関する質問

クロ - 05/2/14(月) 14:29 -


	引用なし

	パスワード

どの程度のものがいいのか分かりませんが...
1について
SysCmd(acSysCmdAccessVer)で使用しているAccessのバージョンを
取得できます。
2について
主使用クエリ/マクロは隠しオブジェクトにしておき、起動時にオプションの
「隠しオブジェクト」のチェックを外すことで不可視にする。
#このオプションをmdb終了時に元に戻すなら
Application.SetOption "Show Hidden Objects", True
を終了時のコード内に書いておく

以下のようなモジュールを作成してマクロのAUTOEXECで「プロシージャの実行」で
指定します。
但し、Shift+ダブルクリックでAUTOEXECマクロはキャンセルされます。

Function VerChk()
If SysCmd(acSysCmdAccessVer) <> "9.0" Then
　 MsgBox "あなたのアクセスのはバージョンは " & SysCmd(acSysCmdAccessVer) & " です。" & vbCrLf & _
　　　　　　　 "このmdbはAccess2000(Ver9.0)でないと開くとは許可されていません。", vbCritical, "警告"
　 Application.Quit
End If
'オプションの「隠しオブジェクト」のチェックを外す
Application.SetOption "Show Hidden Objects", False
End Function

・ツリー全体表示


	【4417】ファイル共有に関する質問

た～に - 05/2/14(月) 13:31 -


	引用なし

	パスワード

ACCESS2000で登録・修正・参照ができるフォームを作成し、共有サーバにmdbファイルを
置いています。
このmdbファイルは複数のユーザが同時にアクセスしますが、mdbファイルを共有モードにし、レコードロックをしない状態にしてあります。
このmdbを利用する人は、Access97・2000・2002と様々なバージョンが混在している為
運用でAccess2000のみを利用するルールを適用しています。

質問は2点で
1.運用ルールだけではなく、システム的に制限する事はできるのでしょうか？
→2000以外のバージョンでは開けないようにする。

2.フォームによるデータの書込みは一般ユーザでも自由にさせたいのですが、システムの基本となるマクロやクエリ等は編集出来ないようにするにはどうすればよいか？
（編集されても上書き保存できない状態にしたい）

・ツリー全体表示


	【4416】Re:テーブルに他のクエーリで作成したフィ...

クロ - 05/2/14(月) 13:26 -


	引用なし

	パスワード

受注テーブルと別クエリとに共通するフィールド(ID等)があれば可能かと
思います。

UPDATE 受注テーブル SET 受注テーブル.出荷完了 = Yes
WHERE ID In (SELECT テーブルA.ID
FROM テーブルA
WHERE テーブルA.ID<>"02");

上記、例のように別クエリで抽出したIDを抽出条件にして
In(ここにSQLで記述)してあげれば可能です。

#文字化けする可能性があるので、半角カナは使わないようにしてください。

・ツリー全体表示


	【4415】テーブルに他のクエーリで作成したフィー...

satoru - 05/2/14(月) 12:45 -


	引用なし

	パスワード

お世話になります。
２回目の質問ですがよろしくお願いします。

受注テーブルの出荷完了フィールドに別のｸｴｰﾘｰで判定した完了ﾏｰｸ
を挿入したいのですがうまくいきません。
データー転送について方法（きっかけ）を伝授願いたい。
更新ｸｴｰﾘｰは自己テーブルの算出したデーターの更新は可能ですが
別のｸｴｰﾘｰのデーターで更新は排他モードのファイルを使用して
いますとのエラーが出ます。

・ツリー全体表示


	【4414】Re:既存のデータベースの削除

ゴン太 - 05/2/14(月) 8:46 -


	引用なし

	パスワード

できました♪
連休だったので、返事が遅くなり申し訳ありませんでした。
無事、思ってる通りできました。

・ツリー全体表示


	【4413】Re:時刻の切捨て切り上げについて

サキラ

- 05/2/13(日) 9:38 -


	引用なし

	パスワード

見ず知らずの私に
貴重な時間を割いていただき
ありがとうございました。

パートさんの勤務表をエクセルからアクセスに乗り換えようとして
いろいろな難関にぶち当たりましたが、
これで最大の難関を越えられそうです。
本当にありがとうございました。

いろんなアクセスの本を読んでも
周りの方に聞いてもなかなかクリアできなくて
半分投げ出しそうになってました。
エクセルの関数に関する本は一杯あるのに
なんでアクセスの関数は少ないんだろうなって
疑問に思っていたところです

これで少しばかり自信がつきました。
心よりお礼申し上げます

2005/2/13
サキラ

・ツリー全体表示


	【4412】Re:時刻の切捨て切り上げについて

サキラ

- 05/2/13(日) 9:35 -


	引用なし

	パスワード

見ず知らずの私に
貴重な時間を割いていただき
ありがとうございました。

パートさんの勤務表をエクセルからアクセスに乗り換えようとして
いろいろな難関にぶち当たりましたが、
これで最大の難関を越えられそうです。
本当にありがとうございました。

いろんなアクセスの本を読んでも
周りの方に聞いてもなかなかクリアできなくて
半分投げ出しそうになってました。

心よりお礼申し上げます

2005/2/13
サキラ

・ツリー全体表示


	【4411】Re:時刻の切捨て切り上げについて

Gin_II - 05/2/12(土) 23:36 -


	引用なし

	パスワード

>ＡＣＣＥＳＳで、フォームの関数にどんな関数を入れたら
>自動的に 15分単位で勤務時間が出るかわかりません。

勤怠管理に役立つ時刻演算関数集
http://www.f3.dion.ne.jp/~element/msaccess/AcTipsVbaCalcTimeFunctions.html

こちらが参考になると思います。

・ツリー全体表示


	【4410】Re:時刻の切捨て切り上げについて

てっちゃん - 05/2/12(土) 10:48 -


	引用なし

	パスワード

▼サキラさん：

>例えば8時間20分勤務した人場合は、8時間15分に
>例えば8時間35分勤務した人場合は、8時間30分に
?format(int(#8:20#/#0:15#)*#0:15#,"hh:mm")
?format(int(#8:35#/#0:15#)*#0:15#,"hh:mm")

こんな感じでいかがでしょう

・ツリー全体表示


	【4409】Re:ｸﾞﾙｰﾌﾟ単位の累計について

takataka - 05/2/11(金) 18:38 -


	引用なし

	パスワード

ありがとうございました。
上手く出来ました｡
今後もよろしくお願いします。▼かろちんさん：
>>やはりエラーがでます。何か良い方法がありますでしょうか?
>
>どんなエラーが出るのでしょうか？
>エラーの内容が分からないとレスできないです。
>
>>Sum(出荷数.数量の合計)
>これはすこしきになりますが。

・ツリー全体表示


	【4408】Re:既存のデータベースの削除

YU-TANG

- 05/2/11(金) 14:42 -


	引用なし

	パスワード

ども、YU-TANG です。

連休の初日なので、ちょっとツールを作ってみましたが。

http://www.f3.dion.ne.jp/~element/msaccess/AcResTipsWarehouse4.html#CompactMRUVBS

# また関係ないかな？

・ツリー全体表示


	【4407】Re:既存のデータベースの削除

YU-TANG - 05/2/10(木) 23:57 -


	引用なし

	パスワード

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

> 残念ながら出来ませんでした。

そうですか。
ひょっとしたら下記とか。

http://support.microsoft.com/kb/163436/JA/

ところで、Access のバージョンは？

・ツリー全体表示


	【4406】時刻の切捨て切り上げについて

サキラ

- 05/2/10(木) 21:31 -


	引用なし

	パスワード

今までエクセルでパートさんの勤務表を作成してました。

退社時刻から出勤時刻を差し引いて出てきた時間を、
例えば8時間20分勤務した人場合は、8時間15分に
例えば8時間35分勤務した人場合は、8時間30分に
というように、エクセルではFLOOR関数を使って
パートさんの勤務時間を15分単位で自動計算してましたが、
ここで質問です。

ＡＣＣＥＳＳで、フォームの関数にどんな関数を入れたら
自動的に 15分単位で勤務時間が出るかわかりません。

どうかどなたかお教え願えないでしょうか？
よろしくお願いいたします。

・ツリー全体表示


	【4405】Re:検索フォーム内でのフォーカス(カーソ...

mako - 05/2/10(木) 17:22 -


	引用なし

	パスワード

かろちんさんへ
ありがとうございました。

DCountの方は、ばっちりできました！
HELPの解析はまだ不十分ですが。。。きちんと理解できるようにします。
ありがとうございました。

GotoRecordの方は、今日一日試みましたがあまり進めませんでした。
また月曜日に引き続き挑戦してみます。

それからフォームのこと、まったく説明していなかったことに初めて
気づきました。

単票フォームに帳票フォームがサブフォームとして張り付いています。
帳票フォームに表示されるデータは、別のテーブルのデータです。

>画面上には、入力した製品コード以外のデータも抽出されていているような
>文書になっていますが、どうでしょうか？

その通りです。テーブルの全ての情報(文書番号と型式と製品コードと制定日)が
一気に表示されます。
その情報(各々の文書番号)に対する改訂の履歴を別のテーブルで管理しているので
それをサブフォームで表示しています。

>6)Enterキーはどこで入力するのですか？

検索用のテキストボックスに製品コードを入力した後です。

本当にありがとうございました。
あとひとつ、がんばります。

・ツリー全体表示


	【4404】Re:抽出条件にFormat関数は使えないのでし...

クロ - 05/2/10(木) 16:44 -


	引用なし

	パスワード

間違ってたので修正...
前者
<省略>
sql = sql & " WHERE Format([伝票日付],'yyyymm')='" & Format([Forms]![A].[処理日付_FROM],"yyyymm") & "';"

後者
<省略>
sql = sql & " WHERE [伝票日付] Like '" & Format([Forms]![A]![処理日付_FROM],"yyyy/mm") & "*';"

以上訂正してお詫び申し上げます。

・ツリー全体表示


	【4402】Re:抽出条件にFormat関数は使えないのでし...

さつこ - 05/2/10(木) 16:22 -


	引用なし

	パスワード

クロさんへ

ありがとうございました。
今すぐ確認できないのであとでやってみます。
>コードなどで「"」を「"」内で使えないので「'」を使用
については「"」は「""」を使っていたのですが、
もしかしてそれが災いだったのかなぁ。

とにかく、いろいろお世話になりました。

・ツリー全体表示


	【4400】Re:抽出条件にFormat関数は使えないのでし...

クロ - 05/2/10(木) 15:06 -


	引用なし

	パスワード

sql = "SELECT 地区コード, 地区名, 店舗コード, 店舗名, 伝票日付"
sql = sql & " FROM T_テーブル"
sql = sql & " WHERE Format([伝票日付],'yyyymm')='" & Format([Forms]![A].[処理日付_FROM],'yyyymm') & "';"

こうかな？

新手では...
sql = "SELECT 地区コード, 地区名, 店舗コード, 店舗名, 伝票日付"
sql = sql & " FROM T_テーブル"
sql = sql & " WHERE [伝票日付] Like '" & Format([Forms]![A]![処理日付_FROM],'yyyymm') & "*';"
これでも通るかも？

SQL文ではスペースが重要になりますのでご注意を...
また、コードなどで「"」を「"」内で使えないので「'」を使用してください。

・ツリー全体表示


	【4399】Re:抽出条件にFormat関数は使えないのでし...

さつこ - 05/2/10(木) 14:55 -


	引用なし

	パスワード

クロさんへ

たとえばですが、フォームAの「処理日付_FROM」は
　　Format(Date, "yyyy") & "/" & Format(Date, "mm")
をセットします。
T_テーブルの[伝票日付]は yyyy/mm/dd で入っています。

クエリーを作成し、SQL文に展開すると
　SELECT T_テーブル.地区コード, T_テーブル.地区名, T_テーブル.店舗コード,
　　　　　T_テーブル.店舗名,T_テーブル.伝票日付
　FROM T_テーブル
　WHERE ((Format([伝票日付],"yyyymm"))
　　　　　=(Format([Forms]![A]![処理日付_FROM],"yyyymm")))
になるのですが、これをコードで
　sql = "SELECT T_テーブル.地区コード, T_テーブル.地区名,"
　sql = sql & "T_テーブル.店舗コード,T_テーブル.店舗名,"
　sql = sql & "T_テーブル.伝票日付 "
　sql = sql & "FROM T_テーブル"
　sql = sql & "WHERE ((Format([伝票日付],""yyyymm""))"
　sql = sql & "=(Format([Forms]![A]![処理日付_FROM],""yyyymm"")));"
こんなかんじにしてみるのですが･･･NGです。
日付がテーブル、画面項目とも "yyyy/mm/dd" ならなんら問題がないのですが、
片側が "yyyy/mm" という場合に、たとえば　2005/02　のデータを抽出する
のができないでおります。
どこか根本的に勘違いしているのでしょうか？

よろしくお願いします。

・ツリー全体表示


	【4398】Re:既存のデータベースの削除

ゴン太 - 05/2/10(木) 14:19 -


	引用なし

	パスワード

見てみましたが、XPって？？
普通には出来ないって事でしょうか？
練習で作成していたのが幾つかあって（10個ぐらい）
正式なのが2個ぐらいで・・・
教えて頂き有難うございました。
残念ながら出来ませんでした。

・ツリー全体表示


	【4397】文字列同士をくっつける関数について

初心者抜け出せず・・ - 05/2/10(木) 14:11 -


	引用なし

	パスワード

2つの列に入っているテキスト形式のデータを一つの形式にまとめたい場合はどうすればいいのでしょうか？
例＞
テーブルA
りんご　　　あまい
テーブルB
りんご　　　おいしい
クエリA
りんご　あまいおいしい

といった感じです。

・ツリー全体表示


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

438 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free