microsoft.public.access
back to index
Group: microsoft.public.access
From: =?Utf-8?B?SmVmZiBD?=
Date: Saturday, October 13, 2007 10:21 AM
Subject: Re: Output To Naming problem
From: =?Utf-8?B?SmVmZiBD?=
Date: Saturday, October 13, 2007 10:21 AM
Subject: Re: Output To Naming problem
Thanks guys
I now have :
Dim Dept As ADODB.Recordset
Set Dept = New ADODB.Recordset
Dept.Open "QDepts", CurrentProject.Connection, adOpenStatic
Do Until Dept.EOF
Me.txtDept.Value = QDepts![Dept]
On Error Resume Next
DoCmd.TransferSpreadsheet , acSpreadsheetTypeExcel9, "QReport",
"U:\DocDirectReports\PACPAJ01\" & [Forms]![FRpts].[txtDept] & ".xls"
On Error Resume Next
Dept.MoveNext
Loop
End Sub
I am hanging here now: Me.txtDept.Value = QDepts![Dept]
--
Jeff C
Live Well .. Be Happy In All You Do
