Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Max-Wert
  • BamBam13.04.18 09:04
       └ RE: Max-Wert PeterDoering13.04.18 22:29
          └ RE: Max-Wert BamBam16.04.18 07:11
             └ RE: Max-Wert PeterDoering16.04.18 21:18
                └ RE: Max-Wert BamBam17.04.18 11:01
                   └ RE: Max-Wert PeterDoering17.04.18 14:29
                      └ RE: Max-Wert BamBam17.04.18 16:35
                         └ RE: Max-Wert PeterDoering18.04.18 17:22
                            └ RE: Max-Wert BamBam19.04.18 11:12
                               └ RE: Max-Wert PeterDoering19.04.18 17:28
  • Tabellen in Beziehungen-Fenster per VBA positionie...
  • Lorenz17.04.18 13:14
  • Wenn dann in einer Abfrage
  • HQbauer13.04.18 10:02
       └ RE: Wenn dann in einer Abfrage Karl Donaubauer13.04.18 16:15
          └ RE: Wenn dann in einer Abfrage HQbauer16.04.18 19:45
  • Datenbank Crashs
  • Greiff12.04.18 22:55
       └ RE: Datenbank Crashs Karl Donaubauer13.04.18 16:49
          └ RE: Datenbank Crashs Greiff13.04.18 18:50
             └ RE: Datenbank Crashs Karl Donaubauer13.04.18 21:55
                └ RE: Datenbank Crashs Greiff16.04.18 12:59
  • Access Stammtisch München am 12.04.2018 (Do)
  • StefanWirrer11.04.18 12:13
  • Access 2003 - "Sie haben als Einstellung ...&...
  • Bronimus29.03.18 13:11
       └ RE: Access 2003 - "Sie haben als Einstellun... Marzer31.03.18 12:12
          └ RE: Access 2003 - "Sie haben als Einstell... Bronimus01.04.18 11:28
             └ RE: Access 2003 - "Sie haben als Einste... PeterDoering03.04.18 18:33
                └ RE: Access 2003 - "Sie haben als Eins... Bronimus04.04.18 08:53
                   └ RE: Access 2003 - "Sie haben als Ei... PeterDoering04.04.18 16:37
                      └ RE: Access 2003 - "Sie haben als ... Bronimus04.04.18 17:09
                         └ RE: Access 2003 - "Sie haben al... Bronimus08.04.18 10:03
                            └ RE: Access 2003 - "Sie haben ... Greiff09.04.18 19:06
                         └ RE: Access 2003 - "Sie haben al... PeterDoering09.04.18 21:56
                            └ RE: Access 2003 - "Sie haben ... Bronimus10.04.18 09:44
                               └ RE: Access 2003 - "Sie habe... Karl Donaubauer10.04.18 16:47
                                  └ RE: Access 2003 - "Sie ha... Bronimus11.04.18 09:39
  • kann keinen Datensatz mit passenden Schlüsselfelde...
  • Greiff09.04.18 18:53
       └ RE: kann keinen Datensatz mit passenden Schlüsse... PeterDoering09.04.18 22:24
       └ gelöst: Datensatz mit passenden Schlüsselfeldern... Greiff09.04.18 22:33
  • FYI Neue Referenzseite für Microsoft Access
  • Karl Donaubauer03.04.18 15:42
  • Datenbank mit mehreren Mitarbeitern
  • oschi21.03.18 12:24
       └ RE: Datenbank mit mehreren Mitarbeitern StefanWirrer23.03.18 11:05
       └ RE: Datenbank mit mehreren Mitarbeitern Karl Donaubauer23.03.18 11:10
  • Login für Schreibende und für Lesende User
  • Sandra14.03.18 12:31
       └ RE: Login für Schreibende und für Lesende User wilo15.03.18 17:27
  • ControlTipText (Tooltip) wird nicht angezeigt
  • wilo15.03.18 14:42
  • Geteiltes Formular
  • Marzer11.03.18 10:10
  • Access Stammtisch München am 08.03.2018 (Do)
  • StefanWirrer07.03.18 15:35
  • Berarbeitung von Daten im Haupt/Unterformular
  • Olaf28.02.18 09:06
  • Tabellenerstellung/Datenmodell neue DB
  • Olaf12.02.18 17:20
       └ RE: Tabellenerstellung/Datenmodell neue DB StefanWirrer19.02.18 16:09
          └ RE: Tabellenerstellung/Datenmodell neue DB Olaf23.02.18 07:33
             └ RE: Tabellenerstellung/Datenmodell neue DB StefanWirrer26.02.18 13:33
                └ RE: Tabellenerstellung/Datenmodell neue DB Olaf28.02.18 08:45
    Olaf
    Gesendet: 28.02.18 09:06
    Betreff: Berarbeitung von Daten im Haupt/Unterformular


    New user

    Beiträge: 4

    Hallo an Forum

    Neue Frage neues Glück ;-)

    Ich habe ein gebundenes Hauptformular mit einem Unterformular (Endlos) mit den Daten aus der gleichen Tabelle zur

     

    Übersicht /Auswahl der Daten die ich im Hauptformular eingeben/bearbiten kann.

    Vorm Speichern der Daten (über Button) mache ich diverse Abfragen ob alle wichtigen Felder ausgefüllt wurden und ob die Daten
    schon in der Tabelle vorhanden sind (hier Telfonnummern).

    Unterscheidung ob neuer Datensatz oder Bearbeitung erfolgt über Me.NewRecord und Me.Dirty.

    Mein Problem tritt auf wenn ich einen neuen DS anlege/eingebe oder einen DS bearbeite und währen dessen per Maus
    in das Unterformular klicke. Dann wechselt (wie ja auch gewollt) der DS im Hauptformular und ich zerlege meine Eingabe.

    Wie kann ich nun während der Bearbeitung/Neueingabe eines DS im Hauptformular das Unterformular so sperren,
    dass der Benutzer keinen Schaden anrichten kann.

     

    Heir mal mein Code:

    Private Sub cmd_Übernehmen_Click()
    Dim msgString As String, msgTitel As String
    Dim intnewrec As Integer
    Dim strSQL As String
    Dim iAntw As Integer

    If errorhandling Then On Error GoTo Err_cmd_Übernehmen_Click

        'Wenn Felder außer der Ausnahme nicht befüllt wurdden wird die Bearbeitung abgebrochen
        If fctControlAusgefüllt(Me, "txt_Nebenstelle" ) = False Then
            Exit Sub
        End If
        
        'Auslesen ob der aktuelle Datensat ein neuer Datensatz ist
        intnewrec = Me.NewRecord
        
        strSQL = "[K_Vorwahl]= '" & Me!txt_Vorwahl & "'" & _
                    " AND [K_Nummer] = '" & Me!txt_Nummer & "'" & _
                    " AND [K_Nebenstelle] = '" & Me!txt_Nebenstelle & "'"
                    
        If DSVorhanden("tbl_Kontakt", strSQL) = False Then
            iAntw = MsgBox("Der Kontakt der angelegt werden soll existiert bereits!" & vbCr & _
                    "Bitte ändern Sie die Kontaktnummer oder brechen Sie die Bearbeitung ab!", vbCritical + vbOKCancel, "Titel eingeben" )
                
            If iAntw = vbCancel Then
                Me.Undo
            Else
                Exit Sub
            End If
            
        End If
            
        'Meldung Neuen Datensatz übernehmen
        If intnewrec = True Then
            msgString = "Wollen Sie die die neue Kontaktnummer übernehmen?"
            msgTitel = "Neuen Datensatz anlegen"
        'Meldung  bearbeitetn Datensatz übernehmen
        Else
            msgString = "Wollen Sie die Änderungen an der Kontaktnummer übernehmen?"
            msgTitel = "Datensatzbearbeitung übernehmen"
        End If
        
        'Übername bestätigen
        If MsgBox(msgString, vbQuestion + vbYesNo, msgTitel) = vbNo Then
            'Änderung abbrechen
            Me.Undo
        Else
            'Datensatz speichern
            Me.Dirty = False
        End If
            
        'Aktuallisierung des Endlosformulas UfrmKontaktAnlegen" nach Datenänderung
        Forms!frm_KontakteAnlegen!ufrm_KontaktAnlegen.Form.Requery
        
    Err_Exit:

        Me!cmd_Übernehmen.Enabled = False
        Me!cmd_Neu.Enabled = True
        Me!lbl_Titel.Caption = "Kontakt bearbeiten"
        'Sperre nur neuen Datensatz im Hauptformular und so Sperre Unterformular aufheben
        'Me.DataEntry = False
        'Aktuallisierung des Endlosformulas UfrmKontaktAnlegen" nach Datenänderung
        Me!ufrm_KontaktAnlegen.Form.Requery

    Exit Sub

        
    Err_cmd_Übernehmen_Click:

    Fehlerbearbeitung Me.Name & " - Sub_cmd_Übernehmen_Click", Err.Description, Err.Number, Erl
    Resume Err_Exit

    End Sub



    Private Sub Form_Click()
        
        'Hauptformular mit Unterformular syncronisieren
    If errorhandling Then On Error GoTo Err_Form_Click

        If Me.Parent.Form.Dirty = False And Me.Parent.Form.NewRecord = False Then
            Forms!frm_KontakteAnlegen.Recordset.FindFirst "ID_Kontakt = " & Me.ID_Kontakt
        End If
        
    Err_Exit:

    Exit Sub

        
    Err_Form_Click:


     Gruß Olaf

    Top of the page Bottom of the page


    Seite: < 1 2 3 4 5 6 7 8 9 10 11 12 13 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)