Access VBA質問箱 IV

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

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


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

3 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【13270】Re:トランザクションの状態判定

亀マスター - 18/12/29(土) 21:54 -


	引用なし

	パスワード

寡聞にしてトランザクション中の判定方法は知りませんが、私であればこうするというやり方を（他にもっとスタンダード・適切なやり方があるかもしれませんが）。

Sub Sample()

　　Dim WSP As Workspace

　　On Error GoTo ErrLabel

　　Set WSP = Workspaces(0)
　　WSP.BeginTrans

　　'トランザクション中の処理

　　WSP.CommitTrans
　　Set WSP = Nothing

　　Exit Sub

ErrLabel:
　　If Not WSP Is Nothing Then
　　　　WSP.Rollback
　　End If

このように、WSPをトランザクションの直前直後でセット、解放して、あとはトランザクション中かどうかの判定が必要なとき（エラー発生時など）に
If WSP Is Nothing Then
という風に、WSPがNothingかどうかで判定します。

あるいは、エラーラベルをトランザクション中の処理とそうでないときの処理で分けるという方法もあるかと思います。

・ツリー全体表示


	【13269】トランザクションの状態判定

ななしのゴンベ - 18/12/27(木) 17:05 -


	引用なし

	パスワード

トランザクション処理を行っているかどうかの判定方法がわかりません。

エラー処理で、トランザクション中の場合にのみ、
ロールバックを行うようにしたいのですが、判定方法を調べても出てきませんでした。

ご存知の方がいらっしゃれば教えていただけると嬉しいです。

・ツリー全体表示


	【13268】Re:XMLファイルを出力したい

朕国開園 - 18/12/17(月) 14:18 -


	引用なし

	パスワード

回答ありがとうございます。

出力ファイルの内容自体はできていたのですが、作成後の保存ができていませんでした。
ソースを全て見返すと宣言が一つ抜けており、それが原因で保存できなくなっていました。

・ツリー全体表示


	【13267】Re:XMLファイルを出力したい

hatena - 18/12/13(木) 20:04 -


	引用なし

	パスワード

何をxmlファイルとして出力したのでしょうか。

テーブルデータですか。
なら、下記が参考になるかと。

tsware.jp/tips/tips_171.htm

・ツリー全体表示


	【13266】XMLファイルを出力したい

朕国開園 - 18/12/13(木) 17:08 -


	引用なし

	パスワード

XMLファイルを指定されたフォルダの下に作成したいのですが、

エラー番号=424
オブジェクトが必要です

というエラーが発生します。

ファイルの内容は作成されており、出力先も正しく設定されています。

呼出時の引数
filePath："C:\Users\XXXX\Documents\ツール格納ディレクトリ"
fileName："\XXXX.xml"

Public Sub Save(filePath As String, fileName As String)
　　Dim FSO As Object
　　
　　Set FSO = CreateObject("Scripting.FileSystemObject")
　　If FSO.FolderExists(filePath) = False Then
　　　　FSO.CreateFolder filePath
　　End If

　　XMLDocument.Save (filePath + fileName)
　　
　　Set FSO = Nothing
End Sub

・ツリー全体表示


	【13265】Re:【DB接続方法】HiRDBにVBAを利用して...

朕国開園 - 18/12/11(火) 9:57 -


	引用なし

	パスワード

自己解決できました。
ありがとうございます。

・ツリー全体表示


	【13264】Re:【DB接続方法】HiRDBにVBAを利用して...

朕国開園 - 18/12/7(金) 15:13 -


	引用なし

	パスワード

よろずやさん

回答ありがとうございます。
リンクテーブルの作成ではなく、処理ごとに別々のDBに接続したいんです。

処理AならDB1.のaテーブル
処理BならDB2.のaテーブル

のように、VBAのループ処理内で同じ構成の別のDBに毎回接続しなおす処理が必要なのですが、そういった処理はご存知でしょうか？

・ツリー全体表示


	【13263】Re:【DB接続方法】HiRDBにVBAを利用して...

よろずや - 18/12/6(木) 22:29 -


	引用なし

	パスワード

▼朕国開園さん：
>参考になるページでも構いませんので教えていただけると嬉しいです。

ht tps://symfoware.blog.fc2.com/blog-entry-619.html

・ツリー全体表示


	【13262】【DB接続方法】HiRDBにVBAを利用して接続...

朕国開園 - 18/12/6(木) 9:21 -


	引用なし

	パスワード

Access2013を使用してツールを作成しています。

その処理の中で
「VBAを利用してXMLを読み取り、その情報を使って処理対象ごとに接続するデータベースを変更する」
というものがあるのですが、Accessを使用するのが今回が初の為、
VBAでHiRDBに接続する方法がわかりません。

サンプルコードだけではなく、参考になるページでも構いませんので教えていただけると嬉しいです。

・ツリー全体表示


	【13261】for ~　next で値を取得し、フィールドに...

ふくちゃん - 18/11/12(月) 16:35 -


	引用なし

	パスワード

Private Sub コマンド_click

Dim i as integer
Dim counter as integer

'フォームにあるtemp1フィールドには文字列"apple"が表示されている
counter = len(Me.temp1)　→　5を取得

For i　= 1 to counter

'Dlookupで取得したIDをフォームにあるフィールドtemp2に表示する
Me.temp2 = Dlookup("ID","クエリ名","クエリ項目='"&Mid(Me.temp1,i,1)&"'")

next

End Sub

質問
Debug.print ではappleに対応する全てのＩＤが表示されますが、
フィールドtemp2には最後の文字「e」に対応する文字しか表示されません。
全く意味がわかりません。ご教示願います

・ツリー全体表示


	【13260】2つのレポートを合成して印刷

にし - 18/10/4(木) 13:55 -


	引用なし

	パスワード

過去ログを検索してみましたが見つからなかったので、質問させて頂きます。
access2003を使っています。
現在は、1つのレポートで枠（横書き）を事前に印刷したものに、もう一つのレポートで明細（縦書き）を打出すようにしています。
枠も明細も横書きであれば問題ないのですが、枠で表示するタイトルなどは横書きに対し明細は縦書きで印字したいため、上手く印刷できません。
2つのレポートを合成して印刷することはできないでしょうか。
枠は固定なレイアウトです。
ご教授下さい。
よろしくお願い致します。

・ツリー全体表示


	【13259】Re:DFirst関数について

よろずや - 18/9/7(金) 19:06 -


	引用なし

	パスワード

▼みかど. さん：
>「Access2003」と「2016」で作成した「DFirst関数」が「2013」ではエラーになってしまう。

VBE の参照設定に「参照不可」のものは有りませんか？
不要なものであればチェックを外しましょう。

>テーブル日付の最初の日付をフォームに表示したいので、

RDB のテーブルには、順序という概念がありません。
現状うまくいってるのはラッキーなだけです。

・ツリー全体表示


	【13258】DFirst関数について

みかど. - 18/9/7(金) 10:59 -


	引用なし

	パスワード

「Access2003」と「2016」で作成した「DFirst関数」が「2013」ではエラーになってしまう。
テーブル日付の最初の日付をフォームに表示したいので、
フォームの「テキストボックス」に「=DFirst("日付","テーブル日付")」を作っています。[2013]だけエラー表示なってしまいます。
どなたかエラーにならない表示方法があったら教えて下さい。

・ツリー全体表示


	【13257】Re:空室照会

ゆか - 18/8/16(木) 11:42 -


	引用なし

	パスワード

▼よろずやさん

ご返信ありがとうございます。
よろずやさんのおかげで、今までどうしても逆のパターンしか表示されないのが
解決できました。

本当にありがとうございます。
助かりました。
また何かあったときには、どうぞよろしくお願い致します。

・ツリー全体表示


	【13256】Re:空室照会

よろずや - 18/8/16(木) 9:30 -


	引用なし

	パスワード

▼ゆかさん： >因みに、どのようにしたらできますでしょうか。教えていただくことは可能でしょうか。一例として、今日現在の空室状況を求めるのなら、以下のSQLでできます。 SELECT 住居テーブル.管理ID, 住居テーブル.住宅名, 住居テーブル.部屋番号 FROM 住居テーブル LEFT JOIN 入居管理 ON 住居テーブル.管理ID = 入居管理.入居住宅 WHERE (((Exists (SELECT * FROM 入居管理 WHERE 住居テーブル.[管理ID] = 入居管理.[入居住宅] AND Date() BETWEEN 入居管理.[入居日] AND Nz(入居管理.[退去日],#12/31/9999#)))=False)) GROUP BY 住居テーブル.管理ID, 住居テーブル.住宅名 , 住居テーブル.部屋番号; いつから空いてるのか、いつまで空いているのか、等々必要な情報を整理しましょう。

・ツリー全体表示


	【13255】Re:空室照会

ゆか - 18/8/16(木) 8:42 -


	引用なし

	パスワード

▼よろずやさん：
>できますよ。

ご返信、ありがとうございます。

因みに、どのようにしたらできますでしょうか。教えていただくことは可能でしょうか。

・ツリー全体表示


	【13254】フォルダのアクセス権限の変更に関して

ゴム - 18/8/15(水) 15:11 -


	引用なし

	パスワード

ｖｂａ初心者で質問させていただきます VBAでサーバをフォルダを作成して、ICACLS.exeを使ってフォルダにアクセス変更をかけたのですが、フォルダにアクセス拒否となって権限変更ができません。どのようにしたらいいかお教えください。サーバ上で実行ユーザのアクセス制限変更権限はつけています Set objWShell = CreateObject("WScript.Shell") objWShell.Run "ICACLS.exe リンク / inheritance: d , 0, True" objWShell.Run "ICACLS.exe リンク / grant:r ユーザ名:(OI)(CI)(M)", 0, True Set objWShell = Nothing

・ツリー全体表示


	【13253】Re:空室照会

よろずや - 18/8/13(月) 22:02 -


	引用なし

	パスワード

できますよ。

・ツリー全体表示


	【13252】空室照会

ゆか - 18/8/13(月) 13:47 -


	引用なし

	パスワード

お世話になります。

空室紹介をできるようにしたいと考えているのですが、
テーブル自体が足りないのかVBAで解決できるのかがわからなくて
質問させていただくことにしました。

2つのテーブルがあります。
1.住居テーブル
管理ID：オートナンバー
住宅名：短いテキスト
部屋番号：短いテキスト
2.入居管理
名前：短いテキスト
入居日：日付
入居住宅：数値型(管理IDとリレーションシップ)
退去日：日付

2つのテーブルから、空室の部屋の状況を作りたいと考えているのですが、
この考え方では空室を表示させるのは難しいのでしょうか。
ご返答いただければ幸いです。

よろしくお願い致します。

・ツリー全体表示


	【13251】Re:access以外のアプリを起動したとき。

よろずや

- 18/6/11(月) 9:56 -


	引用なし

	パスワード

GetWindow API を使えば出来そうですが、隠れて見えなくなったラベルに
表示して何をしたいのですか？

・ツリー全体表示


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

3 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free