'naam, wedstrijdjaar ophalen uit bovenliggende form
stWedstrijdjaar = [Forms]![frmHoofdmenu].TxtJaartal.Value
stWedstrijdbestand = [Forms]![frmHoofdmenu].TxtBestandsnaam.Value
If [Forms]![frmHoofdmenu].TxtWedstrijdnaam.Value <> vbNullString Then
stWedstrijdnaam = [Forms]![frmHoofdmenu].TxtWedstrijdnaam.Value
Else
stWedstrijdnaam = ""
End If
'controleren of de map van die wedstrijd al bestaat, zoniet map aanmaken
dirname = GetPath & "\data\Internet\verslagen2002\pdffiles\" & stWedstrijdjaar & "\" & stWedstrijdbestand & "" & stWedstrijdjaar
If Dir(dirname, vbDirectory) = "" Then MkDir dirname
Opslagmap = GetPath & "\data\Internet\verslagen2002\pdffiles\" & stWedstrijdjaar & "\" & stWedstrijdbestand & "" & stWedstrijdjaar
DoCmd.SetWarnings False
myfile = GetPath & "\data\Internet\verslagen2002\pdffiles\" & stWedstrijdjaar & "\" & stWedstrijdbestand & "" & stWedstrijdjaar
'Deelnemers exporteren naar Excel
If [Forms]![frmHoofdmenu].TxtWedstrijdnaam.Value <> vbNullString Then
DoCmd.OutputTo acOutputQuery, "qryDeelnemers_H", "Excel97-Excel2003Workbook(*.xls)", GetPath & "\Data\Internet\verslagen2002\pdffiles\" & stWedstrijdjaar & "\" & stWedstrijdbestand & "" & stWedstrijdjaar & "\" & stWedstrijdbestand & "" & stWedstrijdjaar & "_" & stWedstrijdnaam & "_deelnemerslijst.xls", False, ""
Else
DoCmd.OutputTo acOutputQuery, "qryDeelnemers_H", "Excel97-Excel2003Workbook(*.xls)", GetPath & "\Data\Internet\verslagen2002\pdffiles\" & stWedstrijdjaar & "\" & stWedstrijdbestand & "" & stWedstrijdjaar & "\" & stWedstrijdbestand & "" & stWedstrijdjaar & "_deelnemerslijst.xls", False, ""
End If