This should get you to a position which will provide a solution.Maybe my open source tool BulkPDF could do what you want. I am guessing that once attendance is taken, you will want to read back to a database? fdfDemo.zipġ.1) Determine number of clients and data available for them required on form.ġ.2) Determine maximum number of Names which appear on the individual rosters.ġ.3) Determine other form fields required to be filled, tick boxes etc.ġ.4) Determine liklihood that any of this may change.Ģ.1) will require pages sufficient to handle maximum number of names.Ģ.2) Will require standard convention applied to all sheets.Ģ.3) Excessive pages is not too bad, can delete those not required.ģ.1) Query to have names and name of clientĤ.1) One form per client with all required names andĤ.4) Possible mail of completed forms (smtp.cdo or Outlook)ĥ) Adjust Database to automate process of sending forms. 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.
0 kommentar(er)
