This is going to be a multiple part blog post, but here I am clicking a command button on a form and then taking the data
from a query called “qrySecondaryContainmenttodrain”, and creating a html page called “containment_inspections.htm”.
(You will have to modify the query and the html page so it will fit your need)
The html database is basically a SQLLite database using the WebSQL functionality of the browser.
This really won’t show anything on the web browser, but if you press the “Ctrl + Shift + I” key sequence on you Chrome web browser, and click on the “Applications” tab, and go to the “WebSQL” area, you’ll see that a database was created.
That’s the first step to conquer.
The plan is to create a tool that a person who works in the field can load onto an electonic device like a tablet or cellphone, take into the field, and scan and enter the inspected equipment, view what the Access database says about the equipment, then the user can report their inspection results on their electronic device, and then reload the entries into the Access database.
The next steps are
-to display the data on the screen.
-to create a functional html form for the user to interact with their results.
-export the results in csv format so they can reload back in to the Access database
Here is the code so far:
Sub GenerateContainmentInspectionsHTML() Dim intRandomDB As Integer Dim intSeed As Integer Dim strDB As String 'this is seed value for the RND function's random number generator. Randomize 'Int ((upperbound - lowerbound + 1) * Rnd + lowerbound) intRandomDB = Int((2500 - 1 + 1) * Rnd(2) + 10) Debug.Print intRandomDB strDB = "inspdb" & intRandomDB strPath = CurrentProject.Path & "\containment_inspections.htm" Set fso = CreateObject("Scripting.FileSystemObject") strSQL = "SELECT * FROM qrySecondaryContainmenttodrain" Set rst = CurrentDb.OpenRecordset(strSQL) rst.MoveFirst Dim objFile As Object Set objFile = fso.CreateTextFile(strPath, True, True) objFile.write " " & vbCrLf & vbCrLf objFile.write "" & vbCrLf objFile.write "" & vbCrLf objFile.write "" & vbCrLf objFile.write "" & vbCrLf & vbCrLf objFile.write "" & vbCrLf & vbCrLf objFile.write "" & vbCrLf objFile.write "" & vbCrLf objFile.write "" MsgBox "Complete" End Sub
Let me know if you have any questions so far.