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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • 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
  • Einladung zum 30. Access-Stammtisch Hannover am 21...
  • KlausWerther19.02.18 12:59
  • Access 97 Datenbank in Access 2016 öffnen
  • svru25.12.16 02:58
       └ RE: Access 97 Datenbank in Access 2016 öffnen PeterDoering29.12.16 02:40
          └ RE: Access 97 Datenbank in Access 2016 öffnen svru07.01.17 03:29
             └ RE: Access 97 Datenbank in Access 2016 öffnen PeterDoering07.01.17 21:06
                └ RE: Access 97 Datenbank in Access 2016 öffnen svru17.02.18 01:24
  • Access Stammtisch München am 08.02.2018 (Do)
  • StefanWirrer06.02.18 14:56
  • Temporäre Tabelle für Bericht löschen --> Laufz...
  • Bronimus01.02.18 11:50
       └ RE: Temporäre Tabelle für Bericht löschen -->... Karl Donaubauer01.02.18 17:18
          └ RE: Temporäre Tabelle für Bericht löschen --&g... Bronimus04.02.18 09:26
       └ RE: Temporäre Tabelle für Bericht löschen -->... PeterDoering04.02.18 01:31
  • Spaltenbreite zweier Datenblattansichten synchroni...
  • Macs25.01.18 14:37
       └ RE: Spaltenbreite zweier Datenblattansichten syn... Macs26.01.18 09:58
  • .ACCDE mit Office356 Access erstellt lässt sich ni...
  • tim16.01.18 12:44
       └ RE: .ACCDE mit Office356 Access erstellt lässt s... Karl Donaubauer16.01.18 13:29
          └ RE: .ACCDE mit Office356 Access erstellt lässt... tim22.01.18 13:29
    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: < 3 4 5 6 7 8 ... 9 10 11 12 13 14 15 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)