Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datum aus InputBox in Tabelle einfügen schlägt fehl...
zurück: letztes Zeichen Ändern weiter: filesearch funktioniert nicht Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Smoerre
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. Aug 2008, 09:10
Rufname:

Datum aus InputBox in Tabelle einfügen schlägt fehl... - Datum aus InputBox in Tabelle einfügen schlägt fehl...

Nach oben
       Version: Office 2003

Moiiiin,

mit einem Doppelklick auf einen Eintrag in meiner ListBox (1) wird dieser in eine andere ListBox(2) übertragen und auch abgespeichert...der übertragene Eintrag wird aus der ListBox (1) entfernt...genauso auch andersrum...

Wenn ich jetzt auf einen Eintrag in der ListBox(1) doppelklicke, öffnet sich eine InputBox in der man ein Datum eintragen kann. Dieses Datum soll in einer Tabelle mit dem dazugehörigen EintragsID und der DatensatzID gespeichert werden.

Dies funktioniert aber nur so halb, denn wenn ich das Datum in der InputBox bestätigt habe, wird auch die Eintrags- und DatensatzID in der dazugehörigen Tabelle gespeichert. Beim Datum gibt es jedoch Probleme, wenn ich als Datum "01.08.2008" eingebe, steht in der Tabelle bei dem Eintrag unter Datum "07.06.4862" und das will ich nicht ;)

Ich benutze folgenden Code:
Code:
Private Sub lstNichtVorhandenesWerkzeug_DblClick(Cancel As Integer)
    If Not IsNull(Me!ProjNummer) And Not IsNull(Me!lstNichtVorhandenesWerkzeug) Then
        Hinzufuegen Me!ProjNummer, Me!lstNichtVorhandenesWerkzeug, InputBox("Datum:")
    End If

' und
Private Sub Hinzufuegen(lngNummer As Long, lngWerkzeug_ID As Long, _
                        lngDatum As Long)
    Dim db As DAO.Database
    Dim SQL As String
   
    Set db = CurrentDb
    SQL = "INSERT INTO tblWerkzeuge_Proj " & _
                 "(ProjNummer, Werkzeug_ID, Datum) " & _
          "VALUES (" & lngNummer & ", " & lngWerkzeug_ID & ", " & _
                       lngDatum & ")"
    db.Execute SQL
    Me!lstVorhandenesWerkzeug.Requery
    Me!lstNichtVorhandenesWerkzeug.Requery
    Set db = Nothing
End Sub
Weiß jemand weiter?!

schonmal Danke

_________________
Gruß Smoerre
Merle
VBA-Anfänger


Verfasst am:
08. Aug 2008, 09:31
Rufname:


Re: Datum aus InputBox in Tabelle einfügen schlägt fehl... - Re: Datum aus InputBox in Tabelle einfügen schlägt fehl...

Nach oben
       Version: Office 2003

Also ich habs grad ausprobiert. Die Daten werden von access und so ziemlich allen programmen als fortlaufende nummern gespeichert. d.h. long ist denkbar ungünstig.
Versuch es als String einzulesen, wenn du es so eingeben lassen willst wie bisher, und es dann mit zB
Code:
    Dim dteDatum1 As Date
   
    dteDatum1 = CDate(InputBox("Datum?"))
zu bekommen.

Im Test klappte es mit String input.
(Direktfenster CDate("01.01.2008") klappt)

Gruß
Smoerre
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. Aug 2008, 09:51
Rufname:

AW: Datum aus InputBox in Tabelle einfügen schlägt fehl... - AW: Datum aus InputBox in Tabelle einfügen schlägt fehl...

Nach oben
       Version: Office 2003

Ich habe es jetzt probiert aber irgendwie will das immer noch nicht klappen...

würde es dir was ausmachen mir mal deinen veränderten Code zu zeigen?! Embarassed

bzw. mir sagen wo du den Code, den du mir geschickt hast, eingefügt hast?

Weil wenn ich den lngDatum in String änder kommt folgende Meldung:
Zitat:
Laufzeitfehler 3075: Syntaxfehler in Zahl in Abfrageausdruck '01.05.2008'

_________________
Gruß Smoerre
Merle
VBA-Anfänger


Verfasst am:
08. Aug 2008, 10:03
Rufname:

AW: Datum aus InputBox in Tabelle einfügen schlägt fehl... - AW: Datum aus InputBox in Tabelle einfügen schlägt fehl...

Nach oben
       Version: Office 2003

um klar ich war allerdings zu faul die von dir beschriebene aktion exact nachzubauen, daher hab ich ein formular mit 1 textfeld und einem button gemacht.
Dazu hier der code
Code:

Private Sub Befehl2_Click()
 Dim dteInput As Date
  dteInput = CDate(InputBox("Datum?", "Datum"))
  Text0.Value = dteInput
End Sub

danach steht der code im richtigen format (Date) in dem textfeld. funktionier hier... ich schau mir dein problem nochmal an ob man was ändern muss
Merle
VBA-Anfänger


Verfasst am:
08. Aug 2008, 10:09
Rufname:

AW: Datum aus InputBox in Tabelle einfügen schlägt fehl... - AW: Datum aus InputBox in Tabelle einfügen schlägt fehl...

Nach oben
       Version: Office 2003

Code:
Private Sub lstNichtVorhandenesWerkzeug_DblClick(Cancel As Integer)
    If Not IsNull(Me!ProjNummer) And _
       Not IsNull(Me!lstNichtVorhandenesWerkzeug) Then
        Hinzufuegen Me!ProjNummer, Me!lstNichtVorhandenesWerkzeug, _
                    CDate(InputBox("Datum:", Date))
    End If
End Sub

' und

Private Sub Hinzufuegen(lngNummer As Long, lngWerkzeug_ID As Long, dteDatum As Date)
    Dim db As DAO.Database
    Dim SQL As String

    Set db = CurrentDb
    SQL = "INSERT INTO tblWerkzeuge_Proj " & _
                 "(ProjNummer, Werkzeug_ID, Datum) " & _
          "VALUES (" & lngNummer & ", " & lngWerkzeug_ID & ", " & _
                       Format$(dteDatum, "\#yyyy-mm-dd\#") & ")" 'Edit by Willi Wipp
'                      dteDatum & ")"
    db.Execute SQL
    Me!lstVorhandenesWerkzeug.Requery
    Me!lstNichtVorhandenesWerkzeug.Requery
    Set db = Nothing
End Sub
Hab kleine änderungen vorgenommen...
date als datentyp im sub und cdate(inputbox()) im event eingefügt,
dass es keinen fehler wegen typen gibt.

allerdings musst du aufpassen, dass in der tabelle in die du es schreibst diese spalte auch das format date hat. sonst kann es zu problemen kommen. oder du wandelst es eben einfach in string, das geht eigentlich fast immer, ist aber unsauberer

versuchs mal und gib rückmeldung ^^

Gruß
Smoerre
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. Aug 2008, 10:28
Rufname:

AW: Datum aus InputBox in Tabelle einfügen schlägt fehl... - AW: Datum aus InputBox in Tabelle einfügen schlägt fehl...

Nach oben
       Version: Office 2003

hier kommt Deine Rückmeldung ;)

soo habe es jetzt ausprobiert...

nach einem Doppelklick öffnet der auch die InputBox und ich kann das Datum eingeben...jedoch wird nachdem ich die Eingabe bestätigt habe, folgende Fehlermeldung angezeigt:
Zitat:
Laufzeitfehler '3075': Syntaxfehler in Zahl in Abfragedruck '01.05.2008'
im Debugmodus bezieht er sich auf: db.Execute SQL
_________________
Gruß Smoerre
Merle
VBA-Anfänger


Verfasst am:
08. Aug 2008, 10:37
Rufname:

AW: Datum aus InputBox in Tabelle einfügen schlägt fehl... - AW: Datum aus InputBox in Tabelle einfügen schlägt fehl...

Nach oben
       Version: Office 2003

Man verzeihe mir, selber noch Neuling! habs aber jetzt am laufen (mal wieder).
Der Grund iss folgender, man kann keinen wert mit "." getrennt eingeben im SQL syntax, wenn man keine hochkommas verwendet.
bedeuted für dich:
Code:
    SQL = "INSERT INTO tblWerkzeuge_Proj " & _
                 "(ProjNummer, Werkzeug_ID, Datum) " & _
          "VALUES (" & lngNummer & ", " & lngWerkzeug_ID & ", " & _
                 "'" & dteDatum & "')"
                 '^ ===  und   === ^  HIER ###################################
die hochkommas vor und nach den " vor und nach datum.
Wenns jetzt nicht geht fress ich n Besen XD

*edit1: zu schnell abgeschickt XD
Smoerre
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. Aug 2008, 10:41
Rufname:


AW: Datum aus InputBox in Tabelle einfügen schlägt fehl... - AW: Datum aus InputBox in Tabelle einfügen schlägt fehl...

Nach oben
       Version: Office 2003

es funktioniert Smile

dankeschööön...

_________________
Gruß Smoerre
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Strings als Datum konvertieren ? 8 leira 1229 29. Mai 2004, 12:46
leira Strings als Datum konvertieren ?
Keine neuen Beiträge Access Tabellen & Abfragen: Nur Jahr von Datum ausgeben 1 Gast 1837 28. Mai 2004, 22:07
lothi Nur Jahr von Datum ausgeben
Keine neuen Beiträge Access Tabellen & Abfragen: Duplikate einer Tabelle löschen?! 3 Esel 2108 28. Mai 2004, 08:53
lothi Duplikate einer Tabelle löschen?!
Keine neuen Beiträge Access Tabellen & Abfragen: Spaltennamen einer Tabelle ermitteln 1 Alexander Neron 899 27. Mai 2004, 13:47
lothi Spaltennamen einer Tabelle ermitteln
Keine neuen Beiträge Access Tabellen & Abfragen: kein Wert in der Tabelle, dann immer Null (0)?? 3 Michel_9 1005 26. Mai 2004, 14:28
Michel_9 kein Wert in der Tabelle, dann immer Null (0)??
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle formatiert in txt-Datei exportieren 1 robby 1115 12. Apr 2004, 23:10
Helge Tabelle formatiert in txt-Datei exportieren
Keine neuen Beiträge Access Tabellen & Abfragen: Nachträglich AutoWert einfügen 1 Gast 4828 06. Apr 2004, 20:31
lothi Nachträglich AutoWert einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Zeilenumbruch nach Einfügen Word Tabelle 2 topflop 1698 30. März 2004, 16:06
Gast Zeilenumbruch nach Einfügen Word Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: neue Tabellen erstellen aus vorhandener Tabelle 6 moni 2010 29. März 2004, 15:39
moni neue Tabellen erstellen aus vorhandener Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Platzhalter und Datum 2 flipo 1923 23. März 2004, 23:24
dadas-25 Platzhalter und Datum
Keine neuen Beiträge Access Tabellen & Abfragen: Wert einer Abfrage in Tabelle kopieren? 1 BerlinerWolf 2009 21. März 2004, 12:43
Maya Wert einer Abfrage in Tabelle kopieren?
Keine neuen Beiträge Access Tabellen & Abfragen: Daten als Spaltenüberschriften einer anderen Tabelle 1 Melburnt 685 03. März 2004, 17:11
lothi Daten als Spaltenüberschriften einer anderen Tabelle
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps