Office: (Office 2010) Access übernimmt keine Eingabeformat

Helfe beim Thema Access übernimmt keine Eingabeformat in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; WHERE (((tbl_PlatSicherung_Lup.Sicherung) Is Not Null)) -> WHERE NOT IsNull(...) ORDER BY Format(Sicherung,""T"#0"); -> ORDER BY Ausdr1 Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von ercuem, 27. Februar 2014.

Seite 2 von 4

RACOON0506

racoon0506

Access übernimmt keine Eingabeformat

WHERE (((tbl_PlatSicherung_Lup.Sicherung) Is Not Null))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

-> WHERE NOT IsNull(...)

ORDER BY Format(Sicherung,""T"#0");
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

-> ORDER BY Ausdr1

racoon0506, 2. März 2014

#16
ERCUEM

ercuem

Hallo

Danke für die Antwort aber das beantwortet meine Frage nicht.

Ich brauch dieses T wieder in der Auswahl des Kombifeldes.

Access stäubt sich das so "T" anzunehmen.

ercuem, 2. März 2014

#17
ERCUEM

ercuem

Hallo

Leider funktioniert das nicht, jetzt zeigen die Kombis die Auswahl zwar mit Eingabeformat an, aber bei Neueingabe kommt die Meldung "Element ist nicht in der Liste", obwohl per VBA Neueingabe erlaubt ist.

Code:

SELECT ID_InterfFirmwVersion,
Format(InterfFirmwVersion,"\(0\)0\.00\.000")
FROM tbl_AuftrInterfFirmwVersion_Lup
ORDER BY Format(InterfFirmwVersion,"\(0\)0\.00\.000");
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Private Sub InterfFirmwVersionID_NotInList(NewData As String, Response As Integer)
On Error GoTo fehler

Dim db As Database
Dim rs As Recordset
Dim erg As Integer

Response = acDataErrAdded
erg = MsgBox("Der eingegebene Wert '" & NewData & _
"' ist nicht in der Liste vorhanden. Möchten Sie " & _
"den Wert in die Tabelle übernehmen?", 52, "Neuer Wert")
If erg = 6 Then
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_AuftrInterfFirmwVersion_Lup", dbOpenDynaset)
rs.AddNew
rs!InterfFirmwVersion = NewData
rs.Update
rs.Close
Set rs = Nothing
db.Close
Else
Response = acDataErrContinue
End If

ende:
Exit Sub

fehler:
MsgBox Err.Description, 16, "Fehler"
Resume ende
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ercuem, 3. März 2014

#18
ERCUEM

ercuem

Access übernimmt keine Eingabeformat

Hallo,

Hatte denn bisher niemand dieses Problommit denKombis und Eingabeformaten?

ercuem, 4. März 2014

#19
MARSU65

Marsu65

Das Eingabeformat sollte z.B. so aussehen:
"T"#9;0;_
Ich hab schon einiges ausprobiert aber er nimmt es nicht an.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In Beitrag #13:

von Marsu

Der Backslash kennzeichnet ein folgendes Literalzeichen. Dadurch sparst du
dir die Hochkommata im Eingabe-/Anzeigeformat.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

=> \T#9;0;_

Wo kommt plötzlich das "T" her? Das sehe ich den bisherigen und im letzten Beitrag nicht.

Generell muss das Anzeigeformat mit dem Eingabeformat der ersten
angezeigten Spalte im Kombifeld übereinstimmen.

BTW:
Code:

...
Dim erg As Integer

Response = acDataErrAdded
erg = MsgBox("Der eingegebene Wert '" & NewData & _
"' ist nicht in der Liste vorhanden. Möchten Sie " & _
"den Wert in die Tabelle übernehmen?", 52, "Neuer Wert")
If erg = 6 Then
Response = acDataErrAdded
Set db = CurrentDb
Set rs = db.OpenRecordset ...
...
Set rs = Nothing
db.Close
set db = Nothing
Else ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Siehe hierzu auch das Bsp in FAQ 4.13

... obwohl per VBA Neueingabe erlaubt ist.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

???

Fazit: so ganz kann ich das aktuelle Problem (oder sind es jetzt 2?) nicht erfassen.
Vielleicht kannst noch einmal
-die Datenherkunft des Kombifeldes
-das Anzeigeformat
-das Eingabeformat
-die relevante NotInList-Ereignisbehandlung
posten und eine Problembeschreibung liefern.

Marsu65, 4. März 2014

#20
MARSU65

Marsu65

Nachschlag:
Scheinbar kann die interne Abgleichfunktion nicht mit Anzeige-/Eingabeformaten umgehen:
Programmgesteuertes Hinzufügen eines neuen Datensatzes nicht möglich

Workaround auf die Schnelle:
Code:

Private Sub txtwertfk_NotInList(NewData As String, Response As Integer)
Dim db As Database
Dim rs As Recordset
Dim erg As Integer
Dim NewID As Long
erg = MsgBox("Der eingegebene Wert '" & NewData & _
"' ist nicht in der Liste vorhanden. Möchten Sie " & _
"den Wert in die Tabelle übernehmen?", 52, "Neuer Wert")
If erg = 6 Then
Set db = CurrentDb
Set rs = db.OpenRecordset("erc1", dbOpenDynaset)
rs.AddNew
rs!wert = NewData
NewID = rs!id
rs.Update
rs.Close: Set rs = Nothing
Set db = Nothing
Me.txtwertfk = NewID
Me.Recalc
Response = acDataErrContinue
Else
Response = acDataErrContinue
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Tabelle-/Feldnamen sind natürlich anzupassen! *wink.gif*

Marsu65, 4. März 2014

#21
ERCUEM

ercuem

Hallo

Danke

In der fettmarkierten Zeile meldet er Fehler. Ich hab schon probiert die ID der Tabelle dort einzufügen, also Me.ID_PlatFirmwVersion= NewID
hat jedoch nichts gebracht.

Achso
Der Fehler heißt: Methode oder Datenobjekt nicht gefunden

Code:

Private Sub PLFirmwVersion_ID_NotInList(NewData As String, Response As Integer)
Dim db As Database
Dim rs As Recordset
Dim erg As Integer
Dim NewID As Long
erg = MsgBox("Der eingegebene Wert '" & NewData & _
"' ist nicht in der Liste vorhanden. Möchten Sie " & _
"den Wert in die Tabelle übernehmen?", 52, "Neuer Wert")
If erg = 6 Then
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_PlatFirmwVersion_Lup", dbOpenDynaset)
rs.AddNew
rs!FirmwVersion = NewData
NewID = rs!id
rs.Update
rs.Close: Set rs = Nothing
Set db = Nothing
Me.txtwertfk = NewID
Me.Recalc
Response = acDataErrContinue
Else
Response = acDataErrContinue
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ercuem, 4. März 2014

#22
ANNE BERG

Anne Berg

Access übernimmt keine Eingabeformat

Hi,

könnte es sein, dass du anstelle von Me.txtwertfk = NewID besser Me.PLFirmwVersion_ID = NewID schreiben solltest?

Anne Berg, 4. März 2014

#23
ERCUEM

ercuem

Hallo

Jetzt sagt er in der Fettgedruckten Zeile: Element in dieser Auflistung nicht gefunden = Fehler 3265
Code:

Private Sub PLFirmwVersion_ID_NotInList(NewData As String, Response As Integer)
Dim db As Database
Dim rs As Recordset
Dim erg As Integer
Dim NewID As Long
erg = MsgBox("Der eingegebene Wert '" & NewData & _
"' ist nicht in der Liste vorhanden. Möchten Sie " & _
"den Wert in die Tabelle übernehmen?", 52, "Neuer Wert")
If erg = 6 Then
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_PlatFirmwVersion_Lup", dbOpenDynaset)
rs.AddNew
rs!FirmwVersion = NewData
NewID = rs!id
rs.Update
rs.Close: Set rs = Nothing
Set db = Nothing
Me.PLFirmwVersion_ID = NewID
Me.Recalc
Response = acDataErrContinue
Else
Response = acDataErrContinue
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ercuem, 5. März 2014

#24
ANNE BERG

Anne Berg

Hi,

wie heißt denn das Autowert-Datenfeld in "tbl_PlatFirmwVersion_Lup"?

Anne Berg, 5. März 2014

#25
ERCUEM

ercuem

Hallo und Danke für die Hilfe

Sie heißt ID_PlatFirmwVersion und bei #22 hatte ich beschrieben das ich das schon versucht habe, es geht aber nicht.

Ist ja komisch das man bei Version Access 2010 noch solche Probleme mit Eingabeformaten in Kombinationsfeldern hat.

ercuem, 5. März 2014

#26
ANNE BERG

Anne Berg

Warum schreibst du dann NewID = rs!id, wenn das Datenfeld "ID_PlatFirmwVersion" heißt?!

Anne Berg, 5. März 2014

#27
ERCUEM

ercuem

Access übernimmt keine Eingabeformat

Hallo Anne

Der Code stammt nicht von mir, ich hab da keine Ahnung von.

Der Code wurde mir freundlicher weise als Notlösung angeboten, ich weiß nicht genau was ich da alles verändern muss.

Kannst Du mir bitte sagen welche Veränderungen ich an dem Code machen muss?

ercuem, 5. März 2014

#28
MARSU65

Marsu65

... ich weiß nicht genau was ich da alles verändern muss.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Private Sub txtwertfk_NotInList(NewData As String, Response As Integer) '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Marsu65, 5. März 2014

#29
ANNE BERG

Anne Berg

Das Entscheidende ist, dass du dort die bei dir gültigen Namen einsetzt. Und dann musst du jede einzelne Codezeile durchgehen und verstehen was sie bewirkt. Wenn du etwas nicht in der Access-Hilfe findest oder verstehst, musst du danach fragen.

BTW:
Nach dem Hinzufügen eines neuen Datensatzes musst du übrigens acDataErrAdded anstelle von acDataErrContinue als Rückgabewert verwenden.

Anne Berg, 5. März 2014

#30

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 2 von 4

Thema:

Access übernimmt keine Eingabeformat

Die Seite wird geladen...

Access übernimmt keine Eingabeformat - Similar Threads - Access übernimmt Eingabeformat
Sonderveranstaltung: KI trifft Access – 18. Access-Stammtisch Hannover Online (Nr. 62) am 17.09.2025
in Microsoft Access Hilfe
Sonderveranstaltung: KI trifft Access – 18. Access-Stammtisch Hannover Online (Nr. 62) am 17.09.2025: KI trifft Access – OpenAI-Add-Ins und native Lösungen für den VBA-Alltag Sonderveranstaltung des Access-Stammtisches Hannover Online Wir freuen uns Alexander Denz als Gastredner begrüßen zu...
17. Access-Stammtisch Hannover Online (Nr. 61) am 20.08.2025
in Microsoft Access Hilfe
17. Access-Stammtisch Hannover Online (Nr. 61) am 20.08.2025: Access-Stammtisch Hannover Online Endlich ist es wieder soweit. Der Access-Stammtisch Hannover Online findet heute statt. AGENDA Begrüßung Hilfe bei Problemen Allgemeine Diskussion Sonstiges...
Access Seitenumbruch
in Microsoft Access Hilfe
Access Seitenumbruch: Hallo zusammen, Ich habe einen Bericht mit mehr als 20 Zeilen. Ich möchte das ab Zeile 25 eine neue Seite anfängt. Mit freundlichen Grüßen Kurt k
Access Seitenumbruch
in Microsoft Access Hilfe
Access Seitenumbruch: Hallo zusammen, Ich habe einen Bericht mit mehr als 20 Zeilen. Ich möchte das ab Zeile 25 eine neue Seite anfängt. Mit freundlichen Grüßen Kurt k
Excel Sheet in Access einbinden mit acOLECreateLink
in Microsoft Access Hilfe
Excel Sheet in Access einbinden mit acOLECreateLink: Hallo Leute :-) ich versuche gerade seit Tagen folgendes Problem zu lösen: in einem Bericht soll ich Daten aus Access, danach Fotos und zum Schluß quasi Screenschots aus Excel darstellen. Das...
Access Datei wird per Makro nicht gespeichert
in Microsoft Access Hilfe
Access Datei wird per Makro nicht gespeichert: Hallo zusammen, anbei mein Makro: Private Sub Speichern_Click() Dim Dateiname As String Dim Kuerzel Kuerzel = DLookup("mitarbeiterkürzel", "tbl_mitarbeiter", "mitarbeiterid = " &...
Ausdruck eines Etiketts auf verschiedenen PCs steuern
in Microsoft Access Hilfe
Ausdruck eines Etiketts auf verschiedenen PCs steuern: Hallo, ich habe mir ein kleines Etikettenprogramm geschrieben ( ACCESS 2016) und nutze dies auf 3 PCs. An jedem PC ist ein WLAN Drucker. Wenn ich nun eine Änderung am Programm mache und das...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden