28. marts 2001 - 13:15Der er
4 kommentarer og 1 løsning
hvorfor virker det ikke i 2000
Jeg har en del koder der ikke virker i 2000 bla. hvad skal man skrive i stedet as database og istedet for .edit etc ...
Dim dbs As database Dim rst As Recordset
Set dbs = CurrentDb \' Set rst = dbs.OpenRecordset(\"Select * from Testpersoner_Stamdata where TestpersonID = [TestpersonID]\", dbOpenDynaset) Set rst = dbs.OpenRecordset(\"Select * from Testpersoner_Stamdata where TestpersonID =\" & ID, dbOpenDynaset)
De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
Hvis du insistere på at bruge ADO istedet for DAO, skal koden se således ud (uprøvet):
Dim cn As ADODB.Connection Dim rst as ADODB.Recordset Set cn = Currentproject.Connection Set rst = New ADODB.Recordset rst.Open \"Select * from Testpersoner_Stamdata where TestpersonID = [TestpersonID]\", cn, adOpenKeyset
With rst !udskrevet = 1 .Update \'update kan også undlades, men bør tages med for god ordens skyld .movenext End With
jo nu virker det jeg tror bare det var fordi den ikke fik gem ordentligt 1. gang
Synes godt om
Ny brugerNybegynder
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.
