vb6 - RunTime error 1004 Invalid number of arguments

Expand Post »

Hello everybody,
my program have been working and today I'm getting run time error 1004 - invalid number of arguments on this line of code:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
mystr = "Comments:" & "'" & xlApp.Clean(Trim(rsin![Comments]))
mystr = "Comments:" & "'" & xlApp.Clean(Trim(rsin![Comments]))

Also, I am getting a "Runtime error 1004 - unable to set the RowHeight Property of the range class" on this code:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
RowHeight = .Font.Size * (Len(xlWksht.Range("A" & ii + 1).text) - Len("Comments:")) / w + rht + (rht - .Font.Size) + newlinecnt * .Font.Size
RowHeight = .Font.Size * (Len(xlWksht.Range("A" & ii + 1).text) - Len("Comments:")) / w + rht + (rht - .Font.Size) + newlinecnt * .Font.Size

Can anyone tell me what went wrong?

Below is my entire procedure:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
    ii = 5
     w = 0
    For Each R In xlWksht.Range("A8:h8"): w = w + R.ColumnWidth: Next
 
    rht = xlWksht.Range("A6").RowHeight
 
    Do Until rsin.EOF = True
       ii = ii + 2
       xlWksht.Cells(ii, 1).Value = rsin![Req No]
       xlWksht.Cells(ii, 2).Value = rsin![Description]
       xlWksht.Cells(ii, 3).Value = rsin![P L] & Chr(10) & rsin![Pgmr2] & Chr(10) & rsin![Pgmr3]
       xlWksht.Cells(ii, 4).Value = rsin![ClientName] & Chr(10) & rsin![Status]
       xlWksht.Cells(ii, 5).Value = "-" & Chr(10) & rsin![Per Hrs]
       xlWksht.Cells(ii, 6).Value = rsin![Hours] & Chr(10) & rsin![Tot Hrs]
       xlWksht.Cells(ii, 7).Value = rsin![Start Date] & Chr(10) & rsin![Start Date]
       xlWksht.Cells(ii, 8).Value = rsin![End Date] & Chr(10) & rsin![End Date]
       'xlWksht.Cells(ii + 1, 1).Value = "Comments:" & Chr(10) & "'" & xlApp.Clean(Trim(rsin![Comments]))
 
        mystr = "Comments:" & "'" & xlApp.Clean(Trim(rsin![Comments]))
        Do
            Pos = InStr(Pos + 1, mystr, ":")
            If Not Pos = 0 Then
               If Mid(mystr, Pos - 5, 1) = "/" Then
                   mystr = Left(mystr, Pos - 11) & Chr(10) & Mid(mystr, Pos - 10, 10) & Chr(10) & Mid(mystr, Pos + 1)
                   newlinecnt = newlinecnt + 2
                   Pos = Pos + 2
               End If
            End If
        Loop While Not Pos = 0
        xlWksht.Cells(ii + 1, 1).Value = mystr
 
        'xlWksht.Range("A12").Value = mystr
 
       With xlWksht.Range(xlWksht.Cells(ii + 1, 1), xlWksht.Cells(ii + 1, 8))
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlTop
            .WrapText = True
            .Orientation = 0
            .Borders(xlEdgeBottom).LineStyle = xlContinuous
            .Borders(xlEdgeBottom).Weight = xlThin
            .IndentLevel = 0
            .MergeCells = True
            .RowHeight = .Font.Size * (Len(xlWksht.Range("A" & ii + 1).text) - Len("Comments:")) / w + rht + (rht - .Font.Size) + newlinecnt * .Font.Size
       End With
 
       rsin.MoveNext
    Loop
    ii = 5
     w = 0
    For Each R In xlWksht.Range("A8:h8"): w = w + R.ColumnWidth: Next
    
    rht = xlWksht.Range("A6").RowHeight
    
    Do Until rsin.EOF = True
       ii = ii + 2
       xlWksht.Cells(ii, 1).Value = rsin![Req No]
       xlWksht.Cells(ii, 2).Value = rsin![Description]
       xlWksht.Cells(ii, 3).Value = rsin![P L] & Chr(10) & rsin![Pgmr2] & Chr(10) & rsin![Pgmr3]
       xlWksht.Cells(ii, 4).Value = rsin![ClientName] & Chr(10) & rsin![Status]
       xlWksht.Cells(ii, 5).Value = "-" & Chr(10) & rsin![Per Hrs]
       xlWksht.Cells(ii, 6).Value = rsin![Hours] & Chr(10) & rsin![Tot Hrs]
       xlWksht.Cells(ii, 7).Value = rsin![Start Date] & Chr(10) & rsin![Start Date]
       xlWksht.Cells(ii, 8).Value = rsin![End Date] & Chr(10) & rsin![End Date]
       'xlWksht.Cells(ii + 1, 1).Value = "Comments:" & Chr(10) & "'" & xlApp.Clean(Trim(rsin![Comments]))
          
        mystr = "Comments:" & "'" & xlApp.Clean(Trim(rsin![Comments]))
        Do
            Pos = InStr(Pos + 1, mystr, ":")
            If Not Pos = 0 Then
               If Mid(mystr, Pos - 5, 1) = "/" Then
                   mystr = Left(mystr, Pos - 11) & Chr(10) & Mid(mystr, Pos - 10, 10) & Chr(10) & Mid(mystr, Pos + 1)
                   newlinecnt = newlinecnt + 2
                   Pos = Pos + 2
               End If
            End If
        Loop While Not Pos = 0
        xlWksht.Cells(ii + 1, 1).Value = mystr
         
        'xlWksht.Range("A12").Value = mystr
         
       With xlWksht.Range(xlWksht.Cells(ii + 1, 1), xlWksht.Cells(ii + 1, 8))
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlTop
            .WrapText = True
            .Orientation = 0
            .Borders(xlEdgeBottom).LineStyle = xlContinuous
            .Borders(xlEdgeBottom).Weight = xlThin
            .IndentLevel = 0
            .MergeCells = True
            .RowHeight = .Font.Size * (Len(xlWksht.Range("A" & ii + 1).text) - Len("Comments:")) / w + rht + (rht - .Font.Size) + newlinecnt * .Font.Size
       End With
       
       rsin.MoveNext
    Loop

Thanks.
tgifgemini

Similar Threads

Runtime Error - '-2147217904(800440e10) Help to Correct this in Visual Basic 4 / 5 / 6
Microsoft VBScript runtime error 800a0005 in ASP
Run-Time error 1004 - Unable to set the RowHeight property of the range class in Visual Basic 4 / 5 / 6
VB6 Runtime error 7 Out of memory in Visual Basic 4 / 5 / 6
VB6 - Look up email address from outlook address book? in Visual Basic 4 / 5 / 6

tgifgemini

Reputation Points: 22

Solved Threads: 0

Junior Poster

Offline

113 posts
since Jul 2007

Permalink

Sep 13th, 2007

Re: vb6 - RunTime error 1004 Invalid number of arguments

Problem solved.
The "Comments" field in my input table had null values, so I fixed it with this code:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
 If rsin![Comments] = "" Or IsNull(rsin![Comments]) Then
     mystr = "Comments:" & Chr(10) & "NO COMMENTS FOR THIS RECORD!"
 Else
     mystr = "Comments:" & "'" & xlApp.Clean(Trim(rsin![Comments]))
 End If
 If rsin![Comments] = "" Or IsNull(rsin![Comments]) Then
     mystr = "Comments:" & Chr(10) & "NO COMMENTS FOR THIS RECORD!"
 Else
     mystr = "Comments:" & "'" & xlApp.Clean(Trim(rsin![Comments]))
 End If

Thanks.
tgif

tgifgemini

Reputation Points: 22

Solved Threads: 0

Junior Poster

Offline

113 posts
since Jul 2007

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: VB to Access connection!

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: subtract arrays type mismatch please help

DaniWeb Message

Cancel Changes

User Name
Password