I'm using a macro to run this function:
Function OutputToSnapshotViewerQ()
Dim Qryview As Variant,QryName As String
On Error GoTo OutputToSnapshotViewerq_Err
Set Qryview = Screen.ActiveDatasheet
QryName = Qryview.Name
DoCmd.OutputTo acOutputQuery, QryName, acFormatSNP, "C:\data\A\" & QryName & ".snp", False
OutputToSnapshotViewerq_Exit:
Exit Function
OutputToSnapshotViewerq_Err:
MsgBox Err.Description
Resume OutputToSnapshotViewerq_Exit
End Function
when run tells me output formats are missing from the registry! also i think problem with Qryview datatype.
HELP!
Function OutputToSnapshotViewerQ()
Dim Qryview As Variant,QryName As String
On Error GoTo OutputToSnapshotViewerq_Err
Set Qryview = Screen.ActiveDatasheet
QryName = Qryview.Name
DoCmd.OutputTo acOutputQuery, QryName, acFormatSNP, "C:\data\A\" & QryName & ".snp", False
OutputToSnapshotViewerq_Exit:
Exit Function
OutputToSnapshotViewerq_Err:
MsgBox Err.Description
Resume OutputToSnapshotViewerq_Exit
End Function
when run tells me output formats are missing from the registry! also i think problem with Qryview datatype.
HELP!