アクセス２０１０です。
T_テーブル1とT_テーブル2があり、
どちらもフィールド1に文字が入っています。（テキスト型です）
クエリのＳＱＬビューで
SELECT * FROM T_テーブル1 UNION ALL SELECT * FROM T_テーブル2;
として保存したらユニオンクエリが出来上がったのですが、
これをクエリのデザインビューで見るにはどうすればいいですか？
以前のバージョンならユニオンクエリをデザインビューで見れました。
でもやり方を忘れました。
該当のクエリをアクティブにしてデザインビューを選択しても
ＳＱＬビューで開いてしまいます。
Ａ１からD5までデータが入っているのですが、
そのデータの情報をRangeオブジェクトに格納する事は出来ないのでしょうか？
vbaで
Sub Sampsle()
Dim r As Range
r = ActiveSheet.UsedRange
End Sub
をやろうとしてるのですが、
実行時エラー_91「オブジェクト変数またはWithブロック変数が設定されていません」になります。
r に格納しちゃえば、最終列が何列目か最終行が何行目か、A1の値は何か、などしゅとくできるんじゃないかなー
と思ったのですが、できないのでしょうか？
フォームを作成すると同時にイベントを作成する方法は？
アクセスなのですが
標準モジュールで
Sub フォームを作成()
Dim myForm As Form
Set myForm = CreateForm
DoCmd.Close acForm, myForm.Name, acSaveYes
End Sub
をしたと同時に、
そのフォーム内に
Private Sub Form_Open(Cancel As Integer)
MsgBox "開きました"
End Sub
のようなイベントを同時に生成するにはどうすればいいでしょうか？
クラスモジュールを使うのですか？
クラスモジュールの使い方がまったくわからないのですが
サンプルコードを頂けないですか？
Sub Sample()
Debug.Print InStr(1, "abcde", "d")
Debug.Print InStrRev("abcde", "d")
End Sub
どちらの関数も結果が４で、同じなのですが、InStrRevは２になるべきではないですか？
なぜ左から検索してるのでしょうか？
UserForm1.ListBox1.AddItem をクリアしたいです。
エクセルのユーザーフォームに全てのシート名を追加してるのですが
Sub a()
Dim s As Worksheet
For Each s In Worksheets
UserForm1.ListBox1.AddItem s.Name
Next
End Sub
を実行する度に追加されてしまいます。
Sub a()
Dim s As Worksheet
UserForm1.ListBox1.AddItem Null
For Each s In Worksheets
UserForm1.ListBox1.AddItem s.Name
Next
End Sub
のように、最初にリセットしてから追加したいのですが
どうもNULLだとエラーになるようです
どうすればリセットできますか？
例えばレコードの値が「あああ'ああ」だった場合、
-----------------------------------------------------
Sub test()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim MyFileName As String
MyFileName = CurrentProject.FullName
cn.Open "Provider = Microsoft.ACE.OLEDB.12.0;" & "Data Source= " & MyFileName
rs.Open "テーブル1", cn, adOpenKeyset, adLockOptimistic
rs.Filter = "フィールド1 = " & "'あああ'ああ'"
MsgBox rs.RecordCount
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
-----------------------------------------------------
とすると
実行時エラー3001「引数が間違った型、許容範囲外、または競合しています。」
になってしまいます。
ADOでアポストロフィー入りの値をフィルタする方法を教えてください。
Sub Sample01()
Dim myForm As Form
Set myForm = CreateForm
DoCmd.RunCommand acCmdFormView
End Sub
vbaでフォームを作成し、フォームビューで作成したいのですが
これだと何も起きないのですが、表示されるにはどうすればいいでしょうか？
フォームに対してRequeryすると先頭のレコードへ移動してしまうので
Requeryする前のレコードの番号を取得して
Requery後にそのレコード番号へ移動したいのですが
Sub test()
i = Forms("Form").Controls("SubForm").Form.CurrentRecord
Forms("Form").Controls("SubForm").Requery
DoCmd.GoToRecord acActiveDataObject, Forms("Form").Controls("SubForm"), acGoTo, i
End Sub
これをすると、実行時エラー2498
指定した式は、いずれかの引数とデータ型が対応していません。
になりますが、
どこがおかしいのでしょうか？
Function MyDesktop()
Dim WSH
Set WSH = CreateObject("Wscript.Shell")
MyDesktop = WSH.SpecialFolders("Desktop")
Set WSH = Nothing
End Function
このコードの
Dim WSH
に、ちゃんと変数の宣言をしてあげたいのですが
何で変数の宣言をして、どこに参照設定をすればいいのでしょうか？
Object型じゃない型で宣言したいです。
