JAg försöker att köra så här: Gissar att du kör Access 2000 med ADO istället för DAO. Lägg till DAO och ditt gamla Access97-sätt att skriva kommer nu att fungera. Jag har denna koden i ett modullfönster så jag känner mig väldigt osäker på hur du menar. I kodfönstret: Tack för det, nu har jag inga felmedelanden, men ingenting händer. Har du skapat uppkopplingen till databasen? Kunde inte se den i koden... Tack för hjälp, det fungerar nu. Lade till movepre... så går han till vidare till en anan post. Emma: Måste varit magen som upptog uppmärksamheten... Den kurrade viltDelita med VBA-kod
Dim dbs As Database
Dim sqlString As String
Set dbs = CurrentDb
sqlString = "DELETE * from CD_Skivor where CD_Id = " & Me.CD_Id
dbs.Execute (sqlString)
Set dbs = Nothing
Jag får då ett error som pekar på den rad där jag dimmar dbs.
Egendefinierad typ har inte definierats.
Om jag därimot bortkommentera AS Database, så händer ingenting.
Jag antar att jag är ute och cycklar, men hur bör jag skriva?Sv: Delita med VBA-kod
mvh
/MichaelSv: Delita med VBA-kod
Skall jag initsiera DAO? Hur?
Tacksam för svar.Sv: Delita med VBA-kod
Välj Verktyg>Referenser
Kryssa i "Microsoft DAO 3.6 Object Library" (andra versioner går också)
/JohanSv: Delita med VBA-kod
Den utför inte dbs.Execute (sqlString).
Det känns ändå som om jag har missat någonting...Sv: Delita med VBA-kod
/EmmaSv: Delita med VBA-kod
Fungerar kanon.Sv: Delita med VBA-kod
>Har du skapat uppkopplingen till databasen? Kunde inte se den i koden...
Set dbs = CurrentDb
/JohanSv: Delita med VBA-kod
inför lunchprospektet... =)
Skönt att det löste sig i alla fall
/Emma