losafactor.blogg.se

The access database attached includes a dummy table, query, form (with button) and the code above.ĭatabase will need to be in the same location as the rest of the files for testing. The code for access: Option Compare Database Sub fdf_multipage() Dim x As Long Dim dbDataStore As Database Dim rstDataStore As Recordset Dim strSQL As String Dim RecordsNo As Long strSQL = "SELECT strNames FROM qryNames" 'need to change strNames an qryNames Set rstDataStore = CurrentDb.OpenRecordset(strSQL) rstDataStore.MoveLast rstDataStore.MoveFirst RecordsNo = rstDataStore.RecordCount Open CurrentProject.Path & "\Test-attendance.fdf" For Output As 1 Print #1, "%FDF-1.2" Print #1, "%âãÏÓ" Print #1, "1 0 obj" Print #1, ">" Print #1, "endobj" Print #1, "2 0 obj" Print #1, "endobj" Print #1, "trailer" Print #1, ">" Print #1, "%%EOF" Close #1 End Sub but it does make life easy for the user once they have the form. The big problem with forms is the inherent ground work necessary before distribution to the user. I am wondering if it would be easier to use Access or Excel to manage the rosters as these can be easier to manage than pdf forms. The information on this is all in an Access Database? fdf-code-example.xlsm Įach roster has hundreds of names to take attendance for? I also do have the code to do flat files, but thought I would demo fdf first. fdf Sub fdf() Dim x As Long Open ThisWorkbook.Path & "\Test-attendance.fdf" For Output As 1 Print #1, "%FDF-1.2" Print #1, "%âãÏÓ" Print #1, "1 0 obj" Print #1, ">" Print #1, "endobj" Print #1, "2 0 obj" Print #1, "endobj" Print #1, "trailer" Print #1, ">" Print #1, "%%EOF" Close #1 End Sub The code below (in the excel workbook attached) is used to create the.

Is this the sort of direction you wish to take, or do you want to end up with a flatfile? pdf and fill it in with some test information. fdf) in the same location as the form and then open the.