Function Export data to text file
Sub ExportToTextFile(strType As String, Strprogram As String)
Dim str1 As String, strPath As String, I As Integer
Dim User As String
Dim LogInTime As Date
‘Dim LogOutTime As Date
User = Environ(“username”)
‘strPath = CurrentProject.path
strPath = “H:\Public\”
Close #1 ‘–make sure no open handles to text file
Open strPath & “\txtExportTo.txt” For Append As #1
str1 = User
LogInTime = Now()
str1 = str1 & “,” & LogInTime & “, ” & strType & “, ” & Strprogram
Print #1, str1 ‘–using print to output to a text file does not add double quotes like the Write method
Close #1
End Sub
======================================
Call this function when form is loaded under the On Load Event
Private Sub Form_Load()
Dim Login As String
Dim Strprogram As String
Strprogram = “Attendence Log”
Login = “Log In”
Call ExportToTextFile(Login, Strprogram)
End Sub
These pills help in maintaining the equilibrium within generic viagra unica-web.com the body and promote normal functionality of the body. This is ideal for owners, as it removes the hassle of travelling, the need viagra overnight shipping for sedation, stress in the animal, and cost; a full anatomical report costs about the same as one x-ray. Those who are struggling with such a male partner and are likely to crave for other partners in future. cialis sale https://www.unica-web.com/index-french.html It is very important to buy a drug and treat a wholesale viagra cheap try for more info sexual issue.
