Results 1 to 2 of 2
  1. #1
    Join Date
    Nov 2014
    Posts
    2

    Unanswered: error '13' type mismatch

    Hi,
    when I compile my program, i got this error. run-time error '13' type mismatch

    And i go debug, and it mark me this line:

    Code:
     If Options.Debug = 1 Then On Error GoTo ErrorHandler
        
    
        Dim filename As String
        Dim I As Long
        Dim n As String
        Dim Max_Editexts As Long
    
       
        filename = App.path & "\data files\lang\" & Options.Lang & ".ini"
        
        'check le pack langue
        
        'nombre de variables actuel
        Max_Editexts = GetVar(filename, "INIT", "Max_Editexts")
        
        ReDim Editexts(1 To Max_Editexts)
        
        'nombre de cases
        For I = 1 To Max_Editexts
            
            n = I
            Editexts(I) = GetVar(filename, "EDITEXTS", n)
        
        Next
        
        Exit Sub
    ErrorHandler:
        HandleError "LoadEditexts", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
        Err.Clear

  2. #2
    Join Date
    Nov 2014
    Posts
    2

    Smile run-time error '13' type mismatch

    Hi,
    when I compile my program, i got this error. run-time error '13' type mismatch

    And i go debug, and it mark me this line:

    Separate the following into 2 words: stargate

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •