DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

run time error 3705

Thread Solved

•

Join Date: Jul 2008

Posts: 471

Reputation: abu taher is an unknown quantity at this point

Solved Threads: 24

abu taher

Offline

Posting Pro in Training

run time error 3705

32 Days Ago

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:

 Help with Code Tags 
 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.

I like sword. Attack or Defense.

•

Join Date: Jan 2008

Posts: 232

Reputation: AndreRet is an unknown quantity at this point

Solved Threads: 32

AndreRet

Offline

Posting Whiz in Training

31 Days Ago

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

 Help with Code Tags 
 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

Please mark questions as answered when done.

Be the ONE!!!

•

Join Date: Jul 2008

Posts: 471

Reputation: abu taher is an unknown quantity at this point

Solved Threads: 24

abu taher

Offline

Posting Pro in Training

31 Days Ago

I write code in the button

 Help with Code Tags 
 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

 Help with Code Tags 
 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.

I like sword. Attack or Defense.

•

Join Date: Jul 2008

Posts: 471

Reputation: abu taher is an unknown quantity at this point

Solved Threads: 24

abu taher

Offline

Posting Pro in Training

31 Days Ago

I just change it and now it is ok.

 Help with Code Tags 
 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