Ved ikke på liste - tilføj record til tabel Access 2000

du skal nok i vba og lave noget lignende dette her:

Sub ???_NotInList (newdata As String, response As Integer)
Dim strMsg As String
Dim rst As Recordset
Dim db As Database
Const MB_YESNO = 4
Const MB_QUESTION = 32
Const IDNO = 7

strMsg = \"\'\" & newdata & \"\' er ikke i listen.\"
strMsg = strMsg & \"Vil du tilføje løbsarten?\"
If MsgBox(strMsg, MB_YESNO + MB_QUESTION, \" ??? \") = IDNO Then
response = DATA_ERRDISPLAY
Else
Set db = DBEngine.Workspaces(0).Databases(0)
Set rst = db.OpenRecordset(\"T_LøbsArt\")

rst.AddNew
rst(\" ??? \") = newdata
rst.Update
response = DATA_ERRADDED
End If
End Sub

T_LøbsArt erstattes med dit eget recordset

Tak, men jeg kan ikke få det til at virke

For det første accepteres typen database ikke, men dette kunne rettes ved at dimensionere som objekt.

Men næste fejl kan jeg ikke kringle. Den siger:
Type mismatch

Den tabel der skal tilføjes en post i har to felter. Et autonummereringsfelt og et tekstfelt.

Comboboksens bound column er den første (tal) men det der vises er tekst.

?????

I stedet for at dim som objekt vil jeg forslå at du slår referencen til DAO objekt biblioteket til.

Poulh

Ja - det fandt jeg også selv ud af, men det virker stadig ikke. Nu fejler den i linjen:
Set rst = db.OpenRecordset(\"T_LøbsArt\")
Fejl = type mismatch

P

Nu ved jeg ikke om du har slået ADO Bib fra hvis ikke du har det så prøv med.
Dim db as DAO.Database
Dim rst as DAO.Recordset


PoulH

Jeg tror snart at jeg må opgive det her og bare erkende at min VBA viden slet ikke er god nok til at løse mit problem. Der er nok ikke andet for end at gå ud af formularen, oprette den nye post i den anden tabel og så åbne formularen igen.

Og så ellers melde sig til et VBA kursus!

:)

Hvis ikke db\'en er for stor så prøv at send den til mig så skal jeg kikke på den.
phnielsen@jubiipost.dk

poulh

Så - nu har jeg selv løst problemet.

I stedet for at tilføje en record direkte til tabellen, går jeg nu via en formular. Og det kan jeg få til at virke....

Piphans