Dim db As Database Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("qryGroups") rs.MoveFirst Do While Not rs.EOF strGroup = rs!HRGroup Dim AppVer Dim fs, A As Object Set fs = CreateObject("Scripting.FileSystemObject") strFile = "D:\Documents and Settings\chriramw\My Documents\Downloads\Security\HRGrpMembers.bat" Set A = fs.CreateTextFile(strFile, True) A.writeline "showmbrs " & strGroup & " > HRGroupMembers.txt" A.Close Set fs = Nothing Set A = Nothing lngHWnd = Shell(strFile) WaitWhileRunning (lngHWnd) rs.MoveNext Loop rs.Close Set db = Nothing End Function
|Reset Active Directory Password via MS Access||9||56|
|What is the syntax for requery a form that exists on a Tab control (Acccess 2010)||3||18|
|Acc 2010 pause execution||10||10|
|How to use vba code to toggle a text box in access between plain text and rich text or make the output view look like the plain text view where the data is not all lumped together?||3||11|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
19 Experts available now in Live!