Guest_imported
New member
- Jan 1, 1970
- 0
Hi out there,
Anyone with who kan give me a tip of what I have done wrong here, since I have a visual basic whitout any documentation.
I have made a dataenvirement like this from one of our databases just like this example. I want to pick out some data from this database but when I presses the OK button in the inputbox the error-message in the bottom of this mesage arrives.
Private Sub cmdFindName_Click()
Dim intWantedNumber As Integer
Dim strFirstname As String
Dim strLastname As String
intWantedNumber = InputBox(prompt:="Write your employee number here", _
Title:="Employeenumber"
deNorthWind.rscmdEmployees.MoveFirst
deNorthWind.rscmdEmployees.Find "EmployeeID=" & intWantedNumber
strFirstname = deNorthWind.rscmdEmployees!FirstName
strLastname = deNorthWind.rscmdEmployees!LastName
End Sub
Run-time error ’3704’:
The operation requested by the application is not allowed if the object is closed
Someone with a tip of how I can solve this?
Regard Hansi
Anyone with who kan give me a tip of what I have done wrong here, since I have a visual basic whitout any documentation.
I have made a dataenvirement like this from one of our databases just like this example. I want to pick out some data from this database but when I presses the OK button in the inputbox the error-message in the bottom of this mesage arrives.
Private Sub cmdFindName_Click()
Dim intWantedNumber As Integer
Dim strFirstname As String
Dim strLastname As String
intWantedNumber = InputBox(prompt:="Write your employee number here", _
Title:="Employeenumber"

deNorthWind.rscmdEmployees.MoveFirst
deNorthWind.rscmdEmployees.Find "EmployeeID=" & intWantedNumber
strFirstname = deNorthWind.rscmdEmployees!FirstName
strLastname = deNorthWind.rscmdEmployees!LastName
End Sub
Run-time error ’3704’:
The operation requested by the application is not allowed if the object is closed
Someone with a tip of how I can solve this?
Regard Hansi