4
Access Laufzeitfehler 3061 ein Parameter wurde erwartet, aber es wuder zuwenig Parameter übergeben.
Hallo Zusammen,
Ich möchte gerne Daten speichern, doch ich erhalte immer die oben genannte Fehlermeldung.
Unter F1 habe ich nichts hilfreiches gefunden und in den Foren ist auch nichts, was bei mir passt.
Weiß jemand Rat?
Hier die Zeile die beim Debuggen makiert ist:
Set rs = Application.CurrentDb.OpenRecordset("Select max(ArtNr) as Max from tbl_Artikel where LiefNr = mid(NText1.Value, 1, 5)")
LG bumbum
Ich möchte gerne Daten speichern, doch ich erhalte immer die oben genannte Fehlermeldung.
Unter F1 habe ich nichts hilfreiches gefunden und in den Foren ist auch nichts, was bei mir passt.
Weiß jemand Rat?
Hier die Zeile die beim Debuggen makiert ist:
Set rs = Application.CurrentDb.OpenRecordset("Select max(ArtNr) as Max from tbl_Artikel where LiefNr = mid(NText1.Value, 1, 5)")
LG bumbum
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 127893
Url: https://administrator.de/contentid/127893
Printed on: April 23, 2024 at 12:04 o'clock
4 Comments
Latest comment
Hi,
dieser Fehler tritt normalerweise auf, wenn z. B. ein DS nicht zugeordnet werden kann.
Bsp.
Zu möchtest für die Personal Nr 20 etwas in einer Tabelle speichern, aber die Personalnummer 20 gibt es gar nicht.
dieser Fehler tritt normalerweise auf, wenn z. B. ein DS nicht zugeordnet werden kann.
Bsp.
Zu möchtest für die Personal Nr 20 etwas in einer Tabelle speichern, aber die Personalnummer 20 gibt es gar nicht.
Hey,
okay, jetzt ist die Nummer aber vorhanden! ich habe das gerade geprüft, was könnte dann die Ursache sein??
LG bumbum
okay, jetzt ist die Nummer aber vorhanden! ich habe das gerade geprüft, was könnte dann die Ursache sein??
LG bumbum
Hallo bumbum!
Probiers mal damit!
Datentyp Text:
Datentyp Zahl:
Gruß Dieter
Probiers mal damit!
Datentyp Text:
Set rs = Application.CurrentDb.OpenRecordset("Select max(ArtNr) as Max from tbl_Artikel where LiefNr = '" & Mid(NText1.Value, 1, 5) & "'") Set rs = Application.CurrentDb.OpenRecordset("Select max(ArtNr) as Max from tbl_Artikel where LiefNr = " & Mid(NText1.Value, 1, 5)) Gruß Dieter
Hallo didi,
danke für deinen Hilfe, es hat gut geklappt, es war Datentyp Text.
LG bumbum
danke für deinen Hilfe, es hat gut geklappt, es war Datentyp Text.
LG bumbum
