Syntax error

This is the code I am trying to use

vb Code:

Private Sub cmdTryIt_Click()
 
    Dim strEmpFileName As String
    Dim strBackslash   As String
    Dim intEmpFileNbr  As Integer
    Dim strEmpName     As String
    Dim intDeptNbr     As Integer
    Dim strJobTitle    As String
    Dim dtmHireDate    As Date
    Dim sngHrlyRate    As Single
    
    strBackslash = IIf(Right$(App.Path, 1) = "\", "", "\")
    strEmpFileName = App.Path & strBackslash & "EMPLOYEE.Dat"
    intEmpFileNbr = FreeFile
    
    Open strEmpFileName For Append As #intEmpFileNbr
    
    strEmpName = ("Enter Name (Or click Cancel to stop):")
     
     
     
     Do Until strEmpName = ""
     
     intDeptNbr = InputBox("Enter Debt:")
     strJobTitle = InputBox("Enter Job Title:")
     dtmHireDate = InputBox("Enter Hire Date:")
     sngHrlyRate = InputBox("Enter Hourly Rate:")
     
     Write #intDeptNbr, strEmpName, strJobTitle, dtmHireDate, sngHrlyRate,
     
     Print strEmpName; _
            Tab(25); Format$(intDebtNbr, "@@@@"); _
            Tab(35); strJobTitle; _
            Tab(60); Format$(intDebtNbr, "mm/dd/yyyy); _
            Tab(71); Format$(Format$(sngHrlyRate, "Standard"), "@@@@@@@")
            
        strEmpName = InputBox("Enter name (or click Cancel to stop):")
    Loop
    Close #impEmpFileNbr
    
            
 
End Sub

WHenever I try to run the program error pops up, I receive a syntax error. Can anyone help me understand why I keep getting an error?

Moved From The CodeBank (which is for sharing code rather than posting questions :) )

ATTENTION : I am not sandyravage! That peron is in the same class as me and I guess we decided to post the same problem.

Quote:

---

Originally Posted by mrf0272

This is the code I am trying to use

vb Code:

Private Sub cmdTryIt_Click()
 
    Dim strEmpFileName As String
    Dim strBackslash   As String
    Dim intEmpFileNbr  As Integer
    Dim strEmpName     As String
    Dim intDeptNbr     As Integer
    Dim strJobTitle    As String
    Dim dtmHireDate    As Date
    Dim sngHrlyRate    As Single
    
    strBackslash = IIf(Right$(App.Path, 1) = "\", "", "\")
    strEmpFileName = App.Path & strBackslash & "EMPLOYEE.Dat"
    intEmpFileNbr = FreeFile
    
    Open strEmpFileName For Append As #intEmpFileNbr
    
    strEmpName = ("Enter Name (Or click Cancel to stop):")
     
     
     
     Do Until strEmpName = ""
     
     intDeptNbr = InputBox("Enter Debt:")
     strJobTitle = InputBox("Enter Job Title:")
     dtmHireDate = InputBox("Enter Hire Date:")
     sngHrlyRate = InputBox("Enter Hourly Rate:")
     
     Write #intDeptNbr, strEmpName, strJobTitle, dtmHireDate, sngHrlyRate,
     
     Print strEmpName; _
            Tab(25); Format$(intDebtNbr, "@@@@"); _
            Tab(35); strJobTitle; _
            Tab(60); Format$(intDebtNbr, "mm/dd/yyyy); _
            Tab(71); Format$(Format$(sngHrlyRate, "Standard"), "@@@@@@@")
            
        strEmpName = InputBox("Enter name (or click Cancel to stop):")
    Loop
    Close #impEmpFileNbr
    
            
 
End Sub

WHenever I try to run the program error pops up, I receive a syntax error. Can anyone help me understand why I keep getting an error?

---

You need a quote here:

"mm/dd/yyyy")

You are missing the file pointer.
What record within the file are you pointing to ...zero (0).. I guess

Thanks I can't believe I missed that. I guess I dindn't check over my code well enough. I fixed that part now and now whenever I put in the data it asks me It seems to have a prblem with line 29 of the code. (It says Run-time error '13' Type mismatch). I really appreciate the help