PDA

Vollständige Version anzeigen : unverständliche Fehlermeldung


Burger Ping
13.10.2003, 14:41
Ich bekomme die Fehlermeldung:
"Objekt unterstützt diese Eigenschaft oder Methode nicht"



Private Sub AddArtikel_Click()
Dim conn As ADODB.connection
Dim rst As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim strSQL, strDatum As String

Set cmd.ActiveConnection = CurrentProject.connection

strDatum = Format(Me.frmBestelldatum, "\#yyyy\-mm\-dd\#")

strSQL = "INSERT INTO tblBestellungen (BestellNr, KundenNr, Bestelldatum, Liefername, " & _
" Lieferadresse, Lieferort, ArtikelNr, Menge) VALUES (maxBestellNr, " & _
Me.frmKundenNr & ", " & strDatum & ", '" & Me.frmLiefername & "'" & _
", '" & Me.frmLieferadresse & "'" & ", '" & Me.frmLieferort & "'" & _
", " & Me.frmArtikelNr & ", " & Me.frmMenge & ")"

cmd.CommandText = strSQL
'Set rst = cmd.Execute()


Set Forms!frmBestellungAufnehmen!frmArtikelNr = Nothing ' angeblicher Fehler
Set Forms!frmBestellungAufnehmen!frmMenge = Nothing

Call BestandsCheck(Me!frmArtikelNr, Me!frmMenge)

End Sub

Thomas Braun
13.10.2003, 14:59
Probier mal:
Forms!frmBestellungAufnehmen!frmArtikelNr = Null ' oder = ""
Forms!frmBestellungAufnehmen!frmMenge = Null ' oder = ""
statt
Set Forms!frmBestellungAufnehmen!frmArtikelNr = Nothing
Set Forms!frmBestellungAufnehmen!frmMenge = Nothing

Karlheinz
13.10.2003, 15:08
Hallo,

Set Forms!frmBestellungAufnehmen!frmArtikelNr = Nothing
Set Forms!frmBestellungAufnehmen!frmMenge = Nothing

Schmeiss die 2 Zeilen einfach weg, da sie nicht benötigt werden.
Du verweist auf ein Steuerlement, das überhaupt nicht
gesetzt wurde.

Gruß Karlheinz

Burger Ping
13.10.2003, 15:15
Jetzt geht's! Danke Dir, Thomas!!!

@Karlheinz

Das ist ein CBF-Abschnitt. Die Werte werden von einem Formular übergeben und nicht in der Routine gesetzt! Der Funktionsaufruf muß natürlich vor dem NULL-setzen erfolgen. Aber trotzdem DANKE, daß Du mir helfen wolltest. Das Forum hier ist echt spitze! Daumen hoch!!!