Supportnet / Forum / Datenbanken

Moin, ich habe mal wieder ne datenbank. oder besser 2 :-) in der einen sind daten über vorhandene mitglieder. in der anderen daten über ausgetretene mitglieder.. nun kann es sein, dass mitglieder, die in der ausgetretenen datenbank stehen wieder in einen verein eintreten möchten. dazu muss ich dann die datensätze in der austrittsdb verschieben in die hauptdatenbank. So weit kein thema. Nun ist in der Austrittsdatenbank allerdings ein feld Beitritt (Datumsfeld). Ich möchte nun dieses feld nicht strikt aus der austrittsdb in den hauptdb importieren, sondern den user nochmal fragen ob das datum, was in diesem feld steht auch wirklich als eintrittsdatum weiterhin verwendet werden soll oder ob ein neues datum als eintrittsdatum eingegeben werden soll. Wie macht man das am besten? Kurz: beim user Nachfragen ob das datum übernommen werden soll oder ob ein neues eingetragen werden soll. Bei weiterverwendung einfach alle daten mit rüber ziehen und in die andere db importieren (ist bereits fertig und funktioniert). Bei negativer antwort des benutzers dass das datum neu vergeben werden soll. Abfrage welches datum ein in die hauptdb einfügen. Hoffe ich habt mich verstanden :-) Gruss Christian

Hier mal ein wenig quelltext zum allgemeinen verständnis oder verwirrung :-)

Private Sub Einritt_Click()

On Error GoTo Fehler
Dim a As String
Dim r As String
Dim s As String
Dim s1 As String
Dim t As String
Dim u As String
Dim BEITRITT As Date
Dim Mldg, Stil, TITEL, Hilfe, Antwort
    
    Mldg = "Ist dieses Mitglied eingetreten ?" & Chr(10) & Chr(13) & "Es wird in die Hauptdatenbank importiert"
    Stil = vbYesNo
    TITEL = "Mitglied eintreten" & Me.MITGLNR
    
  DoCmd.SetWarnings False
    
    Antwort = MsgBox(Mldg, Stil, TITEL)
    If Antwort = vbYes Then
    
        s = "INSERT INTO Mitglieder1 " & _
            "SELECT Mitglieder.* " & _
            "FROM Mitglieder " & _
            "WHERE (((Mitglieder.[Mitglied-Code])=[Formulare]![Mitglieder]![Mitglied-Code])); "
       
       s1 = "Insert into Mitglieder1 " & _
            "Select Mitglieder.Beitritt " & _
            "FROM Mitgleider " & _
            "Where (((Mitglieder.[Mitglied-Code])=[Formulare]![Mitglieder]![Mitglied-Code])); "
        
        t = "INSERT INTO Geld1 " & _
            "SELECT Geld.*" & _
            "FROM Geld " & _
            "WHERE (((Geld.[Mitglied-Code])=[Formulare]![Mitglieder]![Mitglied-Code])); "
        r = "INSERT INTO Raten1 " & _
            "SELECT Raten.* " & _
            "FROM Geld INNER JOIN Raten ON Geld.[Geld-code] = Raten.[Geld-Code] " & _
            "WHERE (((Geld.[Mitglied-Code])=[Formulare]![Mitglieder]![Mitglied-Code])); "
        a = "INSERT INTO Anderung1 " & _
            "SELECT Anderung.*" & _
            "FROM Anderung " & _
            "WHERE (((Anderung.[Mitglied-Code])=[Formulare]![Mitglieder]![Mitglied-Code])); "
        u = "DELETE Mitglieder.[Mitglied-Code] " & _
            "FROM Mitglieder " & _
            "WHERE (((Mitglieder.[Mitglied-Code])=[Formulare]![Mitglieder]![Mitglied-Code])); "
        
        
               
        MsgBox "Daten werden in DIE Tabelle Mitglieder1 importiert"
        DoCmd.RunSQL s
        
        MsgBox "Soll ein neues Datum als Beitrittsdatum verwendet werden oder soll das alte Eintrittsdatum bestehen bleiben?", vbYesNo
        
        '-------------------------------------------
        MsgBox "Sollen die Zahlungen mit importiert werden?", vbYesNo
        If vbYes Then
        DoCmd.RunSQL t
        Else
            'nichts machen
            MsgBox "Die Zahlungen werden nicht mit übernommen!"
        End If
        '-------------------------------------------
        MsgBox "Sollen die Raten mit übernommen werden?", vbYesNo
        If vbYes Then
        DoCmd.RunSQL r
        Else
            'nichts machen
            MsgBox "Die Daten über Raten werden nicht mit importiert!"
        End If
        '-------------------------------------------
        MsgBox "Möchten Sie die Änderungs-Daten mit importieren?", vbYesNo
        If vbYes Then
        DoCmd.RunSQL a
        Else
             'nichts machen
            MsgBox "Daten werden nicht in DIE Tabelle anderung importiert"
        End If
        
        '-------------------------------------------
        MsgBox "Die Alten daten werden nun gelöscht!"
        DoCmd.RunSQL u
        MsgBox "Mitglied eingetreten"
        Me.Refresh
    
    Else    ' Benutzer hat "Nein"
    MsgBox "Mitglied nicht eingetreten"
    End If
    
  
  
Exit_Sub:
    Exit Sub
Fehler:
    MsgBox Err.Description
    DoCmd.SetWarnings True
Resume Exit_Sub
    
    End Sub

Moin,

ich habe das jetzt mal so gemacht

 Datum = "UPDATE Mitglieder1 SET Mitglieder1.BEITRITT= " * " &" _
               '"WHERE (((Mitglieder.[Mitglied-Code])=[Formulare]![Mitglieder]![Mitglied-Code])); "
        DoCmd.RunSQL Datum

Kann mir jmd sagen, wie ich bei Mitglieder1.Beitritt eine Userabfrage in VB hinkriege. Also sodass die Variable vom User abgefragt wird und nicht im quelltext mit angegeben werden mmuss...


Thx und gruss

Christian

Hi Christian01,

der * in Deinem Update-SQL soll wohl das vom User einzugebende neue Datum repräsentieren. Für diesen Zweck hast Du ja schon die Variable "BEITRITT" deklariert. Dein Code sollte dann etwa so aussehen:

[Code]Datum = "UPDATE Mitglieder1 SET Mitglieder1.BEITRITT= " & BEITRITT & " WHERE (((Mitglieder.[Mitglied-Code])=[Formulare]![Mitglieder]![Mitglied-Code])); "[/Code]



Die Userabfrage kann dann so gestaltet werden:

[Code]Mldg = "Soll ein neues Eintrittsdatum verwendet werden? & chr(10) & chr(13) &_
"(wenn 'nein' , wird das alte Datum verwendet.)"
docmd.runsql SL1 'fügt den alten Datensatz ein
Antwort = MsgBox(Mldg, Stil)
If Antwort = vbYes Then
BEITRITT = Inputbox("Bitte geben Sie das neue Beitrittsdatum ein.")
docmd.runsql Datum 'setzt nach Usereingabe das neue Datum
End If[/Code]


Die Eingabe aus der Inputbox setzt dann das neue Datum. Das Ganze kommt an die vorgesehene Stelle deines Codes.

Gruß,
DatenKay

Hi Christian01,

der * in Deinem Update-SQL soll wohl das vom User einzugebende neue Datum repräsentieren. Für diesen Zweck hast Du ja schon die Variable "BEITRITT" deklariert. Dein Code sollte dann etwa so aussehen:

[Code]Datum = "UPDATE Mitglieder1 SET Mitglieder1.BEITRITT= " & BEITRITT & " WHERE (((Mitglieder.[Mitglied-Code])=[Formulare]![Mitglieder]![Mitglied-Code])); "[/Code]



Die Userabfrage kann dann so gestaltet werden:

[Code]Mldg = "Soll ein neues Eintrittsdatum verwendet werden? & chr(10) & chr(13) &_
"(wenn 'nein' , wird das alte Datum verwendet.)"
docmd.runsql SL1 'fügt den alten Datensatz ein
Antwort = MsgBox(Mldg, Stil)
If Antwort = vbYes Then
BEITRITT = Inputbox("Bitte geben Sie das neue Beitrittsdatum ein.")
docmd.runsql Datum 'setzt nach Usereingabe das neue Datum
End If[/Code]


Die Eingabe aus der Inputbox setzt dann das neue Datum. Das Ganze kommt an die vorgesehene Stelle deines Codes.

Gruß,
DatenKay

Hi,
thx für deine Mühe DatenKay

habe das ganze auch schon getestet gehabt.
Mein aktueller stand sieht so aus.

Private Sub Einritt_Click()
DoCmd.SetWarnings False
On Error GoTo Fehler
Dim a As String
Dim r As String
Dim s As String
Dim t As String
Dim u As String
Dim Datum As String
Dim dtDate As String
Dim Mldg, Stil, TITEL, Hilfe, Antwort
    
    Mldg = "Ist dieses Mitglied eingetreten ?" & Chr(10) & Chr(13) & "Es wird in die Hauptdatenbank importiert"
    Stil = vbYesNo
    TITEL = "Mitglied eintreten" & Me.MITGLNR
    
    
    
    Antwort = MsgBox(Mldg, Stil, TITEL)
    If Antwort = vbYes Then
    
        s = "INSERT INTO Mitglieder1 " & _
            "SELECT Mitglieder.* " & _
            "FROM Mitglieder " & _
            "WHERE (((Mitglieder.[Mitglied-Code])=[Formulare]![Mitglieder]![Mitglied-Code])); "
        t = "INSERT INTO Geld1 " & _
            "SELECT Geld.*" & _
            "FROM Geld " & _
            "WHERE (((Geld.[Mitglied-Code])=[Formulare]![Mitglieder]![Mitglied-Code])); "
        r = "INSERT INTO Raten1 " & _
            "SELECT Raten.* " & _
            "FROM Geld INNER JOIN Raten ON Geld.[Geld-code] = Raten.[Geld-Code] " & _
            "WHERE (((Geld.[Mitglied-Code])=[Formulare]![Mitglieder]![Mitglied-Code])); "
        a = "INSERT INTO Anderung1 " & _
            "SELECT Anderung.*" & _
            "FROM Anderung " & _
            "WHERE (((Anderung.[Mitglied-Code])=[Formulare]![Mitglieder]![Mitglied-Code])); "
        u = "DELETE Mitglieder.[Mitglied-Code] " & _
            "FROM Mitglieder " & _
            "WHERE (((Mitglieder.[Mitglied-Code])=[Formulare]![Mitglieder]![Mitglied-Code])); "
        'Datum = "UPDATE Mitglieder1 SET m= #" & dtDate & _
        '"# WHERE (((Mitglieder1.[Mitglied-Code])=[Formulare]![Mitglieder]![Mitglied-Code])); "
        
       ' Datum = "UPDATE Mitglieder1 SET Mitglieder1.BEITRITT= #" & dtDate & _
        '"# WHERE (((Mitglieder1.[Mitglied-Code])=[Formulare]![Mitglieder]![Mitglied-Code]));"
        Datum = "UPDATE Mitglieder1 SET Mitglieder1.BEITRITT='" & dtDate & "' WHERE (((Mitglieder1.[Mitglied-Code])=[Formulare]![Mitglieder]![Mitglied-Code]));"
        
        MsgBox "Daten werden in DIE Tabelle Mitglieder1 importiert"
        DoCmd.RunSQL s
        
        '-------------------------------------------
        MsgBox "Sollen die Zahlungen mit importiert werden?", vbYesNo
        If vbYes Then
        DoCmd.RunSQL t
        Else
            'nichts machen
            MsgBox "Die Zahlungen werden nicht mit übernommen!"
        End If
        '-------------------------------------------
        MsgBox "Sollen die Raten mit übernommen werden?", vbYesNo
        If vbYes Then
        DoCmd.RunSQL r
        Else
            'nichts machen
            MsgBox "Die Daten über Raten werden nicht mit importiert!"
        End If
        '-------------------------------------------
        MsgBox "Möchten Sie die Änderungs-Daten mit importieren?", vbYesNo
        If vbYes Then
        DoCmd.RunSQL a
        Else
             'nichts machen
            MsgBox "Daten werden nicht in DIE Tabelle anderung importiert"
        End If
        
        '-------------------------------------------
            dtDate = "12.12.1985"
            'dtDate = InputBox("Beitritts-Datum?", , Date)
    ' dtDate = Format(InputBox("beitritts-datum?", , Date), "´dd.mm.yy")
    'dtDate = Format(InputBox("beitritts-datum?", , Date), "dd.mm.yy")
        MsgBox "datum ist" & dtDate
        DoCmd.RunSQL Datum
        MsgBox "Die Alten daten werden nun gelöscht!"
        DoCmd.RunSQL u
        MsgBox "Mitglied eingetreten"
        Me.Refresh

    Else    ' Benutzer hat "Nein"
    MsgBox "Mitglied nicht eingetreten"
    End If
    
  
  
Exit_Sub:
    Exit Sub
Fehler:
    MsgBox Err.Description
    Resume Exit_Sub
    DoCmd.SetWarnings True
    End Sub

Wenn ich die Variable dtdate gegen ein festen wert austausche geht alles ohne probleme.

Wenn ich die variable in die SQL Anweisung mit reinfüge also auch genauso wie du es geschrieben hast
aktualisiert er das Feld in der Tabelle nicht.
das muss an der variable liegen, die kann er irgendwie nicht in einen wert umwandeln und das dann in das feld eintragen.
Wie gesagt bei nem festen werden
sprich

Datum = "UPDATE Mitglieder1 SET Mitglieder1.BEITRITT= '"20.04.1984"' &" _
               '"WHERE (((Mitglieder.[Mitglied-Code])=[Formulare]![Mitglieder]![Mitglied-Code])); "
        DoCmd.RunSQL Datum

geht alles reibungslos.

Woran kann das liegen, dass er die variable nicht umwandeln kann?

gruss
Christian

Hi Christian,

hmmmm....

ich bin in meinem Beispiel für den Update-SQL davon ausgegangen, dass Du ein Datum an ein Datumsfeld übergeben willst, Du hast je auch die Variable "BEITRITT" in deinem ursprünglich geposteten Code als Date deklariert. Nur so kann "mein" Update dann funzen.
Im Deinem letzten Code ist dtDate aber als String deklariert! Wenn Du die Variable in der Whereclause dann in ein Stringfeld oder ein Datumsfeld (welches Format hat das Feld "BEITRITT" in der Tabelle Mitglieder1??) schreiben willst, musst Du den Variableninhalt entsprechend als Text oder als Datum kennzeichnen. Will heißen: wenn die Variable dtDate einen String enthält und sie in ein Textfeld geschrieben werden soll, muss die Variable in Hochkommata gefasst werden:

...SET Mitglieder1.BEITRITT= " & "'" & dtDate & "'" & " Where.....

Wenn die Stringvariable dtDate in ein Datumsfeld übergeben werden soll, muss sie in Hashes (#) gefasst sein

...SET Mitglieder1.BEITRITT= " & "#" & dtDate & "#" & " Where.....

Einfacher ist aber tdDate direkt "as Date" zu deklarieren.

Gruß,
DatenKay

Hi

ich hatte das von date auf string geändert, da er mir immer in der tabelle dann

00:00:00

eingetragen hat anstelle von einem datum.

Haste dafür vielleicht auch eine lösung?

gruss

Christian

Hi Christian,

versteh' ich nicht. Das hört sich so an , als würde nur eine Uhrzeit und nicht das Datum eingetragen. Da in der Inputbox keine Zeit eingegeben wird, setzt Access die Zeit automatisch auf =00:00:00 (Als Date deklariert ist langes Datumsformat mit Uhrzeit). Wie ist denn nun der FelddatenTyp des Feldes "BEITRITT" in der Tabelle Mitglieder1, etwa "Zeit"? Sonst kann ich mir das nicht erklären.
Was genau steht den in der Variable dtDate zum Zeitpunkt des Updates wirklich drin (setze einen Haltepunkt an die runsql-Anweisung im Code und schau nach. Es könnt sein, dass dtDate nicht initialisiert ist (leer). Das müsste zwar einen Fehler ergeben, aber wer weiß.

Eine weitere Möglichkeit wäre noch das neue Datum aus der Inputbox in eine Datumsvariable zu schreiben und den inhalt der Datumsvariable explizit auf das in der Datenbank (nicht in das der Tabelle eingestellte) verwendete Datumsformat zu formatieren. Ich hab zwar 'ne deutsche AccXP Version und die eingestellten Datumsformate sind alle deutsch aber die DB verwendet intern das amerikanische Format! Das Umformatieren ginge dann so:

Dim dtDate as Date
Dim Msg
dtDate = Inputbox("Neues Datum")
Msg = Format(CDate(dtDate)), "\#mm\/dd\/yyyy\#")
MsgBox Msg ' zeigt den formatierten Inhalt von dtDate = z.B. #12/31/3000#
'Formatierten Wert an SQL übergeben:

... SET Mitglieder1.BEITRITT = " & Msg & " where...

Versuchs 'mal, aber wichtiger finde ich herauszufinden, was denn tatsächlich an den SQL übergeben wird oder ob's an der Einstellung des Formates des Tabellenfeldes liegen kann.

@Forum: hat nicht noch jemand anderes eine Idee?

Gruß,
DatenKay

Hi DatenKay,

alle Felder die das´Beitrittsdatum betreffen sind Datums formatiert.
Das mit dem Breakpoint habe ich schon getestet. Es wird auch das richtige datum ausgegeben (keine zeit)
Es muss an der variable liegen, die nicht vernünftig den inhalt an die tabelle übergibt.

gruss
und auf jeden fall thx

Christian

Hi Christian,

keine Ahnung woran das jetzt liegen könnte. Haste 'mal die 2. Variante aus Antwort 6 mit Übergabe der StringVariable dtDate oder als explizit formatiertes Datum aus einer Stringvariable (Antwort 8) probiert?
Langsam fällt mir nichts mehr ein, denn alle vorgeschlagenen Varianten tun's bei mir.

Gruß,
DatenKay

Hi DatenKay,
vielen dank für deine Mühen,

nein das habe ich noch nicht probiert, noch nicht zu gekommen.

Chef etage möchte noch andere funktionen drin haben und am besten alles zu vorgestern :-( daher hier etwas im stress.

teste ich aber gleich mal

gruss
Christian

Access verlangt bei SQL-Kommandos das Datum im amerkianischem Format also müsste das so aussehen "#mm/dd/yy#".

Hi,

@Smigel:

schau 'mal genau hin, das Datum wird im amerikanischen Format übergeben, allerdings im Langformat! Und das schluckt Access-SQL auf jeden Fall bei mir (AccXP, deutsch)ohne Probs.

Gruß,
DatenKay

@DatenKay

ooops,
guten morgen........
Ich sollte die Augen auf machen, ist genau das was ich meinte.

Unter Access 2000 musste ich das Datum als String übergeben alles andere ging in die Hose.

• unterformular datensatz anzeigen
• Neuer Datensatz anlegen
• Wie kann ich den Inhalt eines Feldes vom nächsten Datensatz in den nächsten Datensatz übernehmen und zwar solange, bis ein neuer Inhalt des Datenfeld
• Standardwert aus vorherigem Datensatz ???
• Excel Datensatz in Access importieren