フォームから抽出区分を指定してデータを抽出したいと思っています。
抽出区分＝０ DESALETYPEは０のデータを抽出
抽出区分＝１ DESALETYPEは１～７のデータを抽出
下記のように条件を入力しましたが、
条件に直接0とか１or 2 or 3 ・・・・を入力したほうが
レスポンスが速く、下記のようにIIf関数を指定すると、
抽出はできますがレスポンスが遅くなります。
レスポンスが速くなるよう変更したいのですが、
思うようにいきません。
どこか変更する箇所があるのでしょうか。
宜しくお願い致します。
IIf([Forms]![ブランド別出荷数]![テキスト28]=0,0,IIf([dbo_SALE].[DESALETYPE]=1,([dbo_SALE].[DESALETYPE])=1
Or ([dbo_SALE].[DESALETYPE])=2 Or ([dbo_SALE].[DESALETYPE])=3 Or ([dbo_SALE].[DESALETYPE])=4
Or ([dbo_SALE].[DESALETYPE])=5 Or ([dbo_SALE].[DESALETYPE])=6 Or ([dbo_SALE].[DESALETYPE])=7))
Sub Sample()
Dim mdlName As String
mdlName = "test"
Debug.Print AllProcName(mdlName)
End Sub
Function AllProcName(ByVal strModuleName As String) As String
Dim mdl As Module
Dim lngDecCnt As Long '宣言セクションの行数
Dim strName As String 'プロシージャ名比較用
Dim strProcName As String '全プロシージャ名
Dim lngR As Long 'プロシージャの種類
Dim i As Long
DoCmd.OpenModule strModuleName
Application.VBE.MainWindow.Visible = False
Set mdl = Modules(strModuleName)
'宣言セクションの行数格納
lngDecCnt = mdl.CountOfDeclarationLines
'最初のプロシージャ名格納
strName = mdl.ProcOfLine(lngDecCnt + 1, lngR)
strProcName = strName & vbNewLine
'宣言セクションの次行から最終行までループ
For i = lngDecCnt + 1 To mdl.CountOfLines
'新規プロシージャ名取得
If strName <> mdl.ProcOfLine(i, lngR) Then
strName = mdl.ProcOfLine(i, lngR)
'プロシージャ名追加
strProcName = strProcName & strName & vbCrLf
End If
Next i
Set mdl = Nothing
AllProcName = strProcName
End Function
と言うコードをVBE画面でF5で実行すると、VBEが閉じてしまいます。
しかしF8でゆっくりやっていくとVBE画面は閉じません。
なぜ一気にやると閉じてしまうのでしょうか？
Application.VBE.MainWindow.Visible = False
をコメントアウトすると
VBE画面は閉じませんが該当のモジュールが実行後にアクティブになります。
環境はwin8.1、アクセス２０１０です。
フォームの従業員番号と日付から該当レコードを検索したいのですができません。
おそらくFilterの文法が間違えているのではと思いましたが、色々試した結果
自力ではダメでした。何卒よろしくお願いします
Private Sub テスト()
Dim CN As ADODB.Connection: Set CN = CurrentProject.Connection
Dim RS As ADODB.Recordset: Set RS = New ADODB.Recordset
RS.Open "勤怠表", CN, adOpenKeyset, adLockOptimistic
RS.Filter = "従業員番号 = " & Me.TB_StaffID & " and 日付 = #" & Format(Me.TB_Date, "yyyy/mm/dd") & "#"
If RS.RecordCount = 0 Then
Debug.Print "ありません"
Else
Do Until RS.EOF
Debug.Print RS!勤怠番号
RS.MoveNext
Loop
End If
RS.Close: Set RS = Nothing
CN.Close: Set CN = Nothing
End Sub
VBA初心者です。
Aというディレクトリがあり、その中に1,2,3,4というフォルダがあります。
1には「apple1.csv」、「orange1.csv」、「banana1.csv」
2には「apple2.csv」、「orange2.csv」、「banana1.csv」
・・・
4には「apple4.csv」、「orange4.csv」、「banana4.csv」
が入っています。
この1から4のフォルダのapple1,apple2,apple3,apple4のファイルをとりだし、それぞれのA1～A10セルを新たなファイルに自動転記する（apple1はA1～A10,apple2はＢ10～B10・・・）といった具合のマクロを組みたいと思っています。
そこで以下のＨＰを参考にし、まずはトップディレクトリである「C:\Sample」の中のすべてのフォルダを表示するプログラムをつくってみようと試みました。
ホームページでは以下のソース
Sub Sample()
Call FileSearch("C:\Sample")
End Sub
Sub FileSearch(Path As String)
Dim FSO As Object, Folder As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each Folder In FSO.GetFolder(Path).SubFolders
Debug.Print Folder.Path
Call FileSearch(Folder.Path) ''見つかったフォルダを引数に指定して、自分自身を呼び出す
Next Folder
End Sub
によってイミディエイトにフォルダを表示する仕様になっています。
実際、私もこのソースで実行したところ、イミディエイトにはトップディレクトリ以下の全ディレクトリ名が表示されました。
これを改良し、２列目に全ディレクトリ名が表示されるプログラムを組みました。ソースは以下です。
Sub Sample()
Call FileSearch("C:\Sample")
End Sub
Sub FileSearch(Path As String)
Dim FSO As Object, Folder As Variant
' Dim i As Integer
' i = 1
Set FSO = CreateObject("Scripting.FileSystemObject")
For i = 1 To FSO.GetFolder(Path).SubFolders
Debug.Print Folder.Path
Call FileSearch(Folder.Path) ''見つかったフォルダを引数に指定して、自分自身を呼び出す
i = i + 1
Cells(i, 2) = Folder
Next i
End Sub
これを実行したところ、２列目にはすべてのディレクトリは表示されず、一部のディレクトリしか表示されません。
改良の仕方がおそらくまずいと思うのですが、何か私が根本的に間違えている気がするので、ご指摘いただけたら幸いです。
アクセスのVBAで
ナビゲーションウインドウにあるすべてのオブジェクトを取得したいのですが
Sub Sample()
Dim cn As New ADODB.Connection
Dim catx As New ADOX.Catalog
Dim v As Variant
Dim sPath As String
sPath = CurrentProject.FullName
cn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & ";"
Set catx.ActiveConnection = cn
For Each v In catx.Tables
Debug.Print v.Name
Next
For Each v In catx.Forms
Debug.Print v.Name
Next
For Each v In catx.Procedures
Debug.Print v.Name
Next
cn.Close
Set cn = Nothing
End Sub
だと、.Formsがコンパイルエラーになります。
なので、
For Each v In catx.Forms
Debug.Print v.Name
Next
を抜かして実行すると
*********************
~TMPCLP425901
MSysAccessStorage
MSysAccessXML
MSysACEs
MSysComplexColumns
MSysNameMap
MSysNavPaneGroupCategories
MSysNavPaneGroups
MSysNavPaneGroupToObjects
MSysNavPaneObjectIDs
MSysObjects
MSysQueries
MSysRelationships
MSysResources
*********************
と、
テーブルとクエリの一覧は取得されますが、
Proceduresは取得されません。
私の予想としては
Proceduresはモジュールの一覧だと思ってました。
とりあえずテーブルとクエリは取得できたので
残りのフォーム、レポート、モジュールを取得するにはどうすればいいでしょうか？
オブジェクトブラウザーでCatalogのクラスを見るとフォーム等がありません。
excel2010
TESTフォルダ内にある。全てのexcelフィルをcutepdfwriterでpdfファイル化しようとしています。
マクロ
Sub test()
Application.DisplayAlerts = False
Dim Fol As String
Dim Fname As String
Dim Ws As Worksheet
Fol = "C:\test"
Fname = Dir(Fol & "\*.xlsm")
Do While Fname <> ""
If Fname <> ThisWorkbook.Name Then
Workbooks.Open Fol & "\" & Fname
For Each Ws In Worksheets
Ws.PrintOut
Next
Workbooks(Fname).Close SaveChanges:=False
End If
Fname = Dir()
Loop
End Sub
で実施するとファイルを開いてpdfファイルを作成可能なのですが、
各々のファイルに対して、名前をつけて保存
ファイル名.pdf
と聞いてきます。
その都度、保存というボタンをクリックする必要があり、
大量のファイル実施時、手間です。
なお、cutepdfwriterを通常使うプリンタに設定しています。
この保存というボタンをクリックしないで、ファイル名をそのままでpdfファイル化する方法は、
ありますでしょうか？
