Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Marked Solved
Views: 1400

Oct 26th, 2009

run time error 3705

Expand Post »

I select a month from a combobox and type the year in maskeditbox then press a button to show the report. 1st the report show. when I select another month to show again the report then show a error msg:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
run-time error 3705
operation is not allowed when the object is open
run-time error 3705
operation is not allowed when the object is open

and then highlight the connection string.

Similar Threads

Run-time error '5' in Windows NT / 2000 / XP
Run-Time Error 424 in Visual Basic 4 / 5 / 6
Run-time Error when printing Array Contents. in C
"Run time error, do you wish to debug?" in Web Browsers
Run-Time Error..? in Windows NT / 2000 / XP

abu taher

Reputation Points: 14

Solved Threads: 78

Practically a Posting Shark

Offline

835 posts
since Jul 2008

Permalink

Oct 26th, 2009

Re: run time error 3705

First close your recordset. Re-open the recordset with the new date criteria and then refresh the grid.

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
RS.close
RS.Open "......................."
 
Grd.Refresh
RS.close
RS.Open "......................."

Grd.Refresh

Hope this helps Abu

AndreRet

Reputation Points: 329

Solved Threads: 347

Senior Poster

Offline

3,700 posts
since Jan 2008

Permalink

Oct 27th, 2009

Re: run time error 3705

I write code in the button

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub cmdshow_Click()
     Dim str As String
    str = "01/" & cmbMonth.ListIndex + 1 & "/" & MaskEdBox1.Text
    dt = Format(str, "DD/MM/YYYY")
 
    If isLoad = True Then
        Unload dr1
        Unload DataEnvironment1
    Else
        isLoad = True
    End If
 
 
    DataEnvironment1.cmdmonth (dt)
    Unload Me
    Load dr1
   dr1.Show
Private Sub cmdshow_Click()
     Dim str As String
    str = "01/" & cmbMonth.ListIndex + 1 & "/" & MaskEdBox1.Text
    dt = Format(str, "DD/MM/YYYY")
   
    If isLoad = True Then
        Unload dr1
        Unload DataEnvironment1
    Else
        isLoad = True
    End If
    
    
    DataEnvironment1.cmdmonth (dt)
    Unload Me
    Load dr1
   dr1.Show

in dataenvironment>command> I write code

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Select * from main
Where Month(Date)=Month(dt)
And Year(Date)=Year(dt)
Order by Date Asc
Select * from main
Where Month(Date)=Month(dt)
And Year(Date)=Year(dt)
Order by Date Asc

and the I connect the database in dataenvironment manually.

abu taher

Reputation Points: 14

Solved Threads: 78

Practically a Posting Shark

Offline

835 posts
since Jul 2008

Permalink

Oct 27th, 2009

Re: run time error 3705

I just change it and now it is ok.

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
  If isLoad = false Then        Unload dr1        Unload DataEnvironment1    Else        isLoad = True    End If
  If isLoad = false Then        Unload dr1        Unload DataEnvironment1    Else        isLoad = True    End If

abu taher

Reputation Points: 14

Solved Threads: 78

Practically a Posting Shark

Offline

835 posts
since Jul 2008

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: VB6 Resident monitor

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: need help

DaniWeb Message

Cancel Changes

User Name
Password