Problemer med mit program.... :-(

Lidt historie omkring dette projekt:
Det skal gemme en række informationer i en acces database. Jeg har allerede lavet en der virker, men
af en eller anden dum grund så gider denne ikke at virke.

Jeg får nedenstående besked, og klikker selvfølgelig debug og så marker den en bestemt linie.
Det er fuldstændig ligemeget hvad der står i den linie, så brokker den sig. Kan simpelthen ikke forstå hvad der er galt.
Håber der er en der kan hjælpe mig!


Fejlmeddelse:

Run-time error '-2147217887 (80040e21)':

Der opstod en eller flere fejl ved en handling på flere trin. Kontroller
alle statusværdier.

det er høst tænkeligt at ikke alle dine poster er tekst felter, prøv at tjekke om en eller flere af dine poster i din database skulle være en numerisk eller valuta felt ,man kan ikke gemme tekst i et numerisk felt, hvis det er tilfældet brug da val(txtSpilstart.Text) f.eks

Husk også at tjekke at dit recordset ikke er readonly!

håber det kan hjælpe dig ellers skal jeg bruge flere oplysninger for at hjælpe dig.

forsat god kodning hej.

Koden:

Private Sub cmdOk_Click()

'On Error GoTo Fejlstyrring

rsFakturainfo.AddNew

rsFakturainfo!Fakturanr = txtFakturanr.Text
rsFakturainfo!Kundenr = txtKundenr.Text
rsFakturainfo!ArgAdresse = txtArgadresse.Text
rsFakturainfo!ArgPostnr = txtArgpostnr.Text
rsFakturainfo!Argby = txtArgby.Text
rsFakturainfo!Dato = txtDato.Text
rsFakturainfo!Spilstart = txtSpilstart.Text <- Det er denne linie
rsFakturainfo!Spilleslut = txtSpilleslut.Text
rsFakturainfo!Produktnr = txtProduktnr.Text
rsFakturainfo!Produktnavn = txtProduktnavn.Text
rsFakturainfo!Produktpris = txtProduktpris.Text
rsFakturainfo!Transportomkostninger = txtTransportomkostninger.Text
rsFakturainfo!Transportomkostningerpris = txtTransportomkostningerpris.Text
rsFakturainfo!Andreudgifter = TxtAndreudgifter.Text
rsFakturainfo!Andreudgifterpris = txtAndreudgifterpris.Text
rsFakturainfo!Debitor = txtDebitor.Text
rsFakturainfo!Debitor = txtDebitor.Text
rsFakturainfo!Samletkontraktsum = txtSamletkontraktsum.Text
rsFakturainfo!Bemerkninger = txtBemerkninger.Text
rsFakturainfo.Update




Afslut:

Unload frmOversigt
Load frmOversigt
frmOversigt.Show
Unload Me
Exit Sub

End Sub

Lidt historie omkring dette projekt:
Det skal gemme en række informationer i en acces database. Jeg har allerede lavet en der virker, men
af en eller anden dum grund så gider denne ikke at virke.

Jeg får nedenstående besked, og klikker selvfølgelig debug og så marker den en bestemt linie.
Det er fuldstændig ligemeget hvad der står i den linie, så brokker den sig. Kan simpelthen ikke forstå hvad der er galt.
Håber der er en der kan hjælpe mig!


Fejlmeddelse:

Run-time error '-2147217887 (80040e21)':

Der opstod en eller flere fejl ved en handling på flere trin. Kontroller
alle statusværdier.



Koden:

Private Sub cmdOk_Click()

'On Error GoTo Fejlstyrring

rsFakturainfo.AddNew

rsFakturainfo!Fakturanr = txtFakturanr.Text
rsFakturainfo!Kundenr = txtKundenr.Text
rsFakturainfo!ArgAdresse = txtArgadresse.Text
rsFakturainfo!ArgPostnr = txtArgpostnr.Text
rsFakturainfo!Argby = txtArgby.Text
rsFakturainfo!Dato = txtDato.Text
rsFakturainfo!Spilstart = txtSpilstart.Text <- Det er denne linie
rsFakturainfo!Spilleslut = txtSpilleslut.Text
rsFakturainfo!Produktnr = txtProduktnr.Text
rsFakturainfo!Produktnavn = txtProduktnavn.Text
rsFakturainfo!Produktpris = txtProduktpris.Text
rsFakturainfo!Transportomkostninger = txtTransportomkostninger.Text
rsFakturainfo!Transportomkostningerpris = txtTransportomkostningerpris.Text
rsFakturainfo!Andreudgifter = TxtAndreudgifter.Text
rsFakturainfo!Andreudgifterpris = txtAndreudgifterpris.Text
rsFakturainfo!Debitor = txtDebitor.Text
rsFakturainfo!Debitor = txtDebitor.Text
rsFakturainfo!Samletkontraktsum = txtSamletkontraktsum.Text
rsFakturainfo!Bemerkninger = txtBemerkninger.Text
rsFakturainfo.Update




Afslut:

Unload frmOversigt
Load frmOversigt
frmOversigt.Show
Unload Me
Exit Sub

End Sub