-------------------------------------------------------------------
SELECT TPWID.登録日, [TPWID]![サイト名] AS PWID, [Q未解決]![サイト名] AS 未解決
FROM TPWID LEFT JOIN Q未解決 ON TPWID.[サイト名] = Q未解決.[サイト名]
WHERE ((([TPWID]![サイト名]) Like "*test*"))
ORDER BY TPWID.登録日 DESC;
-------------------------------------------------------------------
というクエリがあり
そのクエリに対して
-------------------------------------------------------------------
Sub test()
Set cn = CurrentProject.Connection
rs.Open "SELECT * FROM クエリ", cn, adOpenStatic, adLockOptimistic
i = rs.RecordCount
-------------------------------------------------------------------
とすると、0になります。
実際にはクエリには200レコードがあります。
なぜ0が返るのでしょうか？
アクセス２０１０です。
-------------------------------------------------------------------
SELECT TPWID.登録日, [TPWID]![サイト名] AS PWID, [Q未解決]![サイト名] AS 未解決
FROM TPWID LEFT JOIN Q未解決 ON TPWID.[サイト名] = Q未解決.[サイト名]
WHERE ((([TPWID]![サイト名]) Like "*test*"))
ORDER BY TPWID.登録日 DESC;
-------------------------------------------------------------------
というクエリがあり
そのクエリに対して
-------------------------------------------------------------------
Sub test()
Set cn = CurrentProject.Connection
rs.Open "SELECT * FROM クエリ", cn, adOpenStatic, adLockOptimistic
i = rs.RecordCount
-------------------------------------------------------------------
とすると、0になります。
実際にはクエリには200レコードがあります。
なぜ0が返るのでしょうか？
アクセス２０１０です。
また迷惑メール設定して済む内容なのでしょうか？
Hello, this is an automated response verifying that I have received your email, and I will respond ASAP.
Thank you.
Wayne
ATTENTION: SPAMMERS
What Can I Do With the Spam in my In-Box?
I will report you to the Federal Trade Commission.
I will send a copy of unwanted or deceptive messages to spam@uce.gov. The FTC uses the unsolicited emails stored in this database to pursue law enforcement actions against people who send deceptive spam email.
I will let the FTC know if a "remove me" request is not honored. I will complain about a removal link that doesn't work or not being able to unsubcribe from a list, I will fill out the FTC's online complaint form at www.ftc.gov.
VBAを初めたばかりです。
VBAでユーザーフォームを作成したのですが
ユーザーフォームプロパティのcaptionで入力しても
下記プログラムで入力しても表示されません。
VBA作成時の画面にはしっかりと「項目」と
表示されていますが、プログラムを実行してユーザーフォームを
呼び出すと何も表示されていません。
ご教授ください。
Private Sub UserForm_Initialize()
UserForm1.Caption = "項目"
With ListBox1
.AddItem "１"
.AddItem "２"
End With
End Sub
アクセスからエクセルファイルを開いています。
Sub tset()
Dim int行数 As Integer
Dim xlApp As Object
Dim xlWbk As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlWbk = xlApp.Workbooks.Open("C:\test.xlsx")
xlApp.Sheets(1).Select
int行数 = xlApp.Cells(Rows.Count, "A").End(xlUp).Row
xlWbk.Close
xlApp.Quit
Set xlApp = Nothing
End Sub
このコードなのですが、1回目は普通にファイルが開いて閉じるのに
同じこのプロシージャーを2回連続で実行しようとすると
2回目は必ず
int行数 = xlApp.Cells(Rows.Count, "A").End(xlUp).Row
の部分で、
実行時エラー 1004
Rowsメソッドは失敗しました。 _Globalオブジェクト
となります。
なぜ最初は問題なくコードが通るのに
2回目はダメなのでしょうか？
