Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Kopieren/duplizieren von DS funktioniert nicht
zurück: Word / Excel öffnen weiter: Datum eingeben Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Baseman
Office-VBA-Programmierungs-Anfänger


Verfasst am:
24. Mai 2007, 03:43
Rufname:

Kopieren/duplizieren von DS funktioniert nicht - Kopieren/duplizieren von DS funktioniert nicht

Nach oben
       Version: Office 2003

Hallo, ich wollte in ein Formular einen Button einbauen, der den aktuellen Datensatz dubliziert. Der Button wurde mithilfe des Access-Schaltflächen-Assistenten generiert. Leider wird durch einen klick zwar ein neuer Datensatz angelegt, der aber nicht mit den Inhalten des zu dublizierenden DS gefüllt wird.

Ich habe versucht, die Fehlerursache einzugrenzen, und wollte deshalb den Datensatz "von Hand" duplizieren, d.h. Bearbeiten/Datensatz auswählen, Bearbeiten/Kopieren, mithilfe von Navigationsleiste neuen DS anlegen Bearbeiten/Einfügen. Dann kommen allerdings interessante fehlermeldungen wie "Für dieses Feld ist folgende Eingabemaske angegeben: '99/99/00;0' Der von Ihnen eingegebene Wert passt nicht zu der Eingabemaske" (kommt gleich 3 mal), gefolgt von "Sie haben einen Wert eingegeben, der für dieses Feld nicht zulässig ist. Sie haben z.B. text in ein numerisches Feld eingeben, oder sie haben eine Zahl eingegeben, die größer ist, als die Feldgröße-einstellung zulässt, gefolgt von "ungültiger Felddatentyp. Anschließend sehe ich einen leeren Datensatz.

Woher kommen diese fehlermeldungen? Kann es sein, dass Access beim Kopieren in den Feldern verrutscht?
Roemer
Interressierter NOOB


Verfasst am:
24. Mai 2007, 07:43
Rufname: Clemens


AW: Kopieren/duplizieren von DS funktioniert nicht - AW: Kopieren/duplizieren von DS funktioniert nicht

Nach oben
       Version: Office 2003

Hallo,

Ich habe zwar noch nie so versucht einen Datensatz zu kopieren aber es währe eine möglich keit das er da verrutscht.

Setzte doch bitte deinen VBA Code von deinem Duplizier buttom hier rein.

Gruß Roemer
Baseman
Office-VBA-Programmierungs-Anfänger


Verfasst am:
24. Mai 2007, 11:58
Rufname:

AW: Kopieren/duplizieren von DS funktioniert nicht - AW: Kopieren/duplizieren von DS funktioniert nicht

Nach oben
       Version: Office 2003

Der button hat folgenden Code
Code:
Private Sub BtnDublizieren_Click()
On Error GoTo Err_BtnDublizieren_Click
    Dim boolCancel
   
    boolCancel = SpeichernAbfragen
    If boolCancel = False Then
        'es wurde nicht auf abbrechen geklickt
        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
        FelderEntsperren
    End If
Exit_BtnDublizieren_Click:
    Exit Sub
Err_BtnDublizieren_Click:
    MsgBox Err.Description
    Resume Exit_BtnDublizieren_Click
End Sub
Die Funktion SpeichernAbfragen, die aufgerufen wird, hat folgenden code
Code:
Private Function SpeichernAbfragen() As Boolean
' Diese Funktion überprüft, ob der Benutzer bereits beim Sperren des
' Formulars angegeben hat, dass der aktuelle Datensatz gespreichert werden
' soll. Falls dies nicht der Fall ist, wird mittels Messagebox erfragt,
' ob gespeichert wrden soll
' Rückgabewert:
' True  - es wurde auf abbrechen geklickt, kein Datensatz-Wechsel
' False - es wurde nicht auf Abbrechen geklickt, Datensatz kann gewechselt
'         werden
    SpeichernAbfragen = False
    If Me.Dirty Then
        'Der Datensatz wurde geändert
        If mboolSpeichern = True Then
            'Es wurde bereits "speichern" angewiesen, keine Anweisungen
            'notwendig
          Else
            Rückgabe = MsgBox("Änderungen am aktuellen Datensatz " & _
                              "speichern?", vbYesNoCancel, _
                              "Änderungen speichern?")
            If Rückgabe = 6 Then 'vbYes
                'Click auf Ja
                'Es wurde "speichern" angewiesen, keine weiteren Anweisungen
                'notwendig
              ElseIf Rückgabe = 7 Then 'vbNo
                'Click auf Nein
                'Änderungen werden rückgängig gemacht
                Me.Undo
              ElseIf Rückgabe = 2 Then 'vbCancel
                'Click auf abbrechen
                'ändern des Rückgabe-Wertes
                SpeichernAbfragen = True
            End If
        End If
    End If
    'zurücksetzen der Variable, die angibt, ob beim Formular-Sperren
    'die Speicherung der Änderungen angewiesen wurde
    mboolSpeichern = False '
End Function
Und FelderEntsperren hat folgenden code
Code:
Sub FelderEntsperren()
    Dim ctl As Control
   
    'durchlaufe alle Steuerelemente. Wenn es sich um ein Eingabefeld handelt,
    'dann entsperre es
    For Each ctl In Me
        If ctl.ControlType = acTextBox Or ctl.ControlType = acListBox Or _
           ctl.ControlType = acComboBox Then
            ctl.Enabled = True
            ctl.Locked = False
        End If
    Next ctl
    'Sperre die aktuelle Datensatznummer und die Gesamtzahl der Datensätze
    'Auskommentiert zur Fehlersuche beim dublizieren
    'Me!Kontakt_Nr.Enabled = False
    'Me!TxtMaxNr.Enabled = False
    'Me!Kontakt_Nr.Locked = True
    'Me!TxtMaxNr.Locked = True
    'aktualisiere die Schaltflächen
    Me!BtnEntsperren.Caption = "speichern + sperren"
    Me!BtnAbbrechen.Enabled = True
    'aktuellen Benutzer und aktuelles Datum eintragen
    'Auskommentiert zr Fehlersuche
    'Me!lastChangeName = GetCurrentUserName
    'Me!lastChangeDate = Now
End Sub
Roemer
Interressierter NOOB


Verfasst am:
30. Mai 2007, 13:28
Rufname: Clemens


AW: Kopieren/duplizieren von DS funktioniert nicht - AW: Kopieren/duplizieren von DS funktioniert nicht

Nach oben
       Version: Office 2003

Also ich habe mir mit hilfe dieses Forums meinen eigenen Befehl erstellt mit eigener Funktion und allem drum und dran.
Code:
Private Sub BtnDublizieren_Click()
On Error GoTo ende
    Dim DB         As DAO.Database
    Dim rst          As DAO.Recordset
     
    Set DB = CurrentDb   
    Set rst = DB.OpenRecordset("DeineTabelle", dbOpenDynaset)
    rst.AddNew
    rst!zuDuplizierendesfeld1 = Me!zuDuplizierendesfeld1
    rst!zuDuplizierendesfeld2 = Me!zuDuplizierendesfeld2
'... So kannst du das für jedesfeld erweitern
    rstHardware.Update       
ende:
End Sub
das könntest du mal versuchen

gruß Roemer
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: nz funktion funktioniert nicht 7 Sankt 4812 20. Feb 2007, 11:50
Gast nz funktion funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Datensätze kopieren 3 lomax 613 16. Feb 2007, 17:13
Willi Wipp Datensätze kopieren
Keine neuen Beiträge Access Tabellen & Abfragen: Wert kopieren 2 noboc 385 04. Feb 2007, 20:55
Gast Wert kopieren
Keine neuen Beiträge Access Tabellen & Abfragen: SQL In mit mehreren Werten funktioniert nicht 5 lullus 702 30. Jan 2007, 20:53
jens05 SQL In mit mehreren Werten funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Kriterium funktioniert nicht!!! 5 christoph.1982 680 25. Jan 2007, 22:18
Nouba Kriterium funktioniert nicht!!!
Keine neuen Beiträge Access Tabellen & Abfragen: Beziehung mit verknüpfter Tabelle funktioniert nicht 4 Thom@s 680 09. Dez 2006, 16:15
Thom@s Beziehung mit verknüpfter Tabelle funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus txt-Datei in Tabelle kopieren 22 ex87 1814 08. Dez 2006, 02:00
Willi Wipp Daten aus txt-Datei in Tabelle kopieren
Keine neuen Beiträge Access Tabellen & Abfragen: Jeden 500sten Datensatz in einer Tabelle duplizieren 18 dolce237 1725 18. Okt 2006, 09:46
Gast Jeden 500sten Datensatz in einer Tabelle duplizieren
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierungsabfrage funktioniert nicht. 1 Lady_S 622 18. Sep 2006, 19:10
rita2008 Aktualisierungsabfrage funktioniert nicht.
Keine neuen Beiträge Access Tabellen & Abfragen: Kopieren einer Tabelle von Zeilen nach Spalten 2 Andreas_04 678 20. Jul 2006, 12:07
Andreas_04 Kopieren einer Tabelle von Zeilen nach Spalten
Keine neuen Beiträge Access Tabellen & Abfragen: Count() Funktion in Abfrage funktioniert nicht 1 Nike 889 31. Jan 2006, 19:44
jens05 Count() Funktion in Abfrage funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Spalten von anderen Spalten kopieren 2 TheRealKing 724 13. Jan 2006, 19:14
TheRealKing Spalten von anderen Spalten kopieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web