CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

ajh87 Nybegynder

21. juni 2004 - 21:12 Der er 13 kommentarer og
1 løsning

Hvad betyder "object invalid or no longer set"

Jeg får en besked:

object invalid or no longer set

debug siger denne linie: rs.Edit

code stykke omkring fejl:

rs.Edit
rs("Name") = txtName.Text
rs("Initials") = txtUser.Text
rs("Address1") = txtStreet.Text
rs("Address2") = txtZip.Text & " " & txtCity.Text
rs("Phone") = txtPhone.Text
rs("CellPhone") = txtCell.Text
rs("Department") = cmbDepartment.List(cmbDepartment.ListIndex)

rs("Password") = txtPassword.Text
rs.Update

Microsoft support side siger jeg skal installere den nyeste JET 4 service pack - men det har ikke hjulpet...

Der ud over siger de også at det er fordi at der er for mange recordset åbne - hvilket jeg også har prøvet at lukke efter hvert eneklt recordset er blevet brugt...
BEMÆRK det er samme variabel recordset'ene bliver åbnet på...

please help :o)

Mvh
ajh87

Synes godt om

Make IT Easy - Thomas Jepsen Praktikant

21. juni 2004 - 21:15 #1

Det betyder at dit recordset (rs) ikke er defineret på det givne tidspunkt.
Hvordan ser koden ud forinden?

Synes godt om

ajh87 Nybegynder

21. juni 2004 - 21:16 #2

tak for det hurtige svar....

Private Sub cmdOK_Click()
subCheckAllData

If dataFail = True Then
Exit Sub
End If

rs.MoveFirst

rs.Edit
rs("Name") = txtName.Text
rs("Initials") = txtUser.Text
rs("Address1") = txtStreet.Text
rs("Address2") = txtZip.Text & " " & txtCity.Text
rs("Phone") = txtPhone.Text
rs("CellPhone") = txtCell.Text
rs("Department") = cmbDepartment.List(cmbDepartment.ListIndex)

rs("Password") = txtPassword.Text
rs.Update

MsgBox "User successfully modified!", vbOKOnly + vbInformation, "StarDesk Server Console"

Unload frmEditUsr
frmMain.SetFocus
End Sub

Synes godt om

ajh87 Nybegynder

21. juni 2004 - 21:16 #3

subCheckAllData er en sub der checker om alle felter på formen er udfyldt korerkt

Synes godt om

Make IT Easy - Thomas Jepsen Praktikant

21. juni 2004 - 21:16 #4

Du skal starte med noget á la dette:

Dim rs as DAO.Recordset
Dim db as Database
Set db = Opendatabase("C:\dinDatabase.mdb")
Set rs = db.Openrecordset("Din tabel", dbopendynaset)

rs.Edit
....

Synes godt om

ajh87 Nybegynder

21. juni 2004 - 21:18 #5

i general i formen er dette:

Dim db As Database
Dim rs As Recordset
Dim ws As Workspace

i form_load i formen er dette:

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\data.mdb")

Synes godt om

Make IT Easy - Thomas Jepsen Praktikant

21. juni 2004 - 21:20 #6

hmm, men det er tydeligt, at den ikke genkender objektet, når den kommer ind i cmdOK_Click-proceduren.
Bruger du recordsettet i andre procedurer?

Synes godt om

ajh87 Nybegynder

21. juni 2004 - 21:21 #7

i form_load bruger jeg RS til at fylde felterne ud...

Synes godt om

ajh87 Nybegynder

21. juni 2004 - 21:22 #8

kunne man nøjes med at gen-erklære den `???

redim eller hvad det hedder..

men der siger en syntext error hvis jeg siger: ReDim rs As Recordset
i editoren

Synes godt om

Make IT Easy - Thomas Jepsen Praktikant

21. juni 2004 - 21:25 #9

ja, redim duer ikke - den bruges til arrays

Du er sikker på, at du ikke har en rs.Close eller lign i slutningen af form_load?

Synes godt om

ajh87 Nybegynder

21. juni 2004 - 21:26 #10

jo det ahvde jeg - har fjernet og den siger det stadig...

Synes godt om

Make IT Easy - Thomas Jepsen Praktikant

21. juni 2004 - 21:27 #11

og heller ingen db.close eller ws.close? (jeg er nødt til at spørge ;)

Synes godt om

ajh87 Nybegynder

21. juni 2004 - 21:34 #12

nej men jeg har fået fixet det ved at oprette et modul og ligge erklæringerne ind der...

og har fjernet ALLE close...
takker for din hjælp........

ville høre om du ville hjælpe mig med dette:
http://www.eksperten.dk/spm/512209

Synes godt om

Make IT Easy - Thomas Jepsen Praktikant

21. juni 2004 - 21:37 #13

sorry, jeg så godt dit spm, men jeg ved intet om det.

Beklager :o(

Synes godt om

ajh87 Nybegynder

21. juni 2004 - 21:43 #14

ok takker for hjælpen

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	I går 11:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic	3	25/04/202414:26	28/08/202419:09
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic	0	08/12/202320:00	-
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic	2	04/12/202320:07	09/12/202310:49

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS