Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Daten erfassen durch mehrere Mitarbeiter
zurück: Unterformular aus Makro heraus durchsuchen weiter: mehrere Felder aktualisieren 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
ohsieli
Anfänger


Verfasst am:
07. Jun 2007, 09:20
Rufname: Otmar
Wohnort: Linz

Daten erfassen durch mehrere Mitarbeiter - Daten erfassen durch mehrere Mitarbeiter

Nach oben
       Version: Office 2k (2000)

In meiner Access Anwendung erzeuge für das Erfassen der Daten den Primärschlüssel mit
Code:
=DomMax("[id_rep_nr]";"[tab_reparaturverwaltung]")+1
Ich möchte erreichen, dass 2 oder mehrere Benutzer gleichzeitig Daten erfassen können. Das speichern des Datensatzes erfolgt, wenn alle 5 Pflichtfelder erfasst wurden, durch einen Button der den Datensatz speichert und einen Bericht druckt. Dadurch erhält ein zweiter Benutzer denselben Primärschlüssel und ein speichern ist nicht möglich.

Ist es möglich, und wie ist es realisierbar, dass beim SPEICHERN/DRUCKEN die [id_rep_nr] noch mal überprüft wird und bei Bedarf, also wenn beim Öffnen des Formulars einem anderen Benutzer der selbe Primärschlüssel erteilt wurde diesem überprüft und ihn wieder erhöht?

Oder gibt es andere Ansätze für eine Lösung? Den Schlüssel sofort zu speichern und damit einen leeren Datensatz zu provozieren möchte ich verhindern. Deshalb gibt es im Formular insgesamt 5 Pflichtfelder die beim Verlassen des Feldes abgefragt werden.

Liebe Grüße Otmar
jens05
Moderator


Verfasst am:
07. Jun 2007, 13:03
Rufname:
Wohnort: ~~~~~


AW: Daten erfassen durch mehrere Mitarbeiter - AW: Daten erfassen durch mehrere Mitarbeiter

Nach oben
       Version: Office 2k (2000)

Hallo,
du kannst im Ereignis "Vor Aktualisierung" den Wert mit den Tabellenwerten vergleichen. Falls ein Treffer vorhanden mit 1 addieren. (mittels Schleife solange durchführen bis eindeutig)
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
    Do While Not Me!id_rep_nr > DMax("id_rep_nr", "tab_reparaturverwaltung")
        Me!id_rep_nr = Me!id_rep_nr + 1
    Loop
End Sub

_________________
mfg jens05 Wink
ohsieli
Anfänger


Verfasst am:
16. Jun 2007, 08:08
Rufname: Otmar
Wohnort: Linz

AW: Daten erfassen durch mehrere Mitarbeiter - AW: Daten erfassen durch mehrere Mitarbeiter

Nach oben
       Version: Office 2k (2000)

ohsieli am 07. Jun 2007 um 17:39 hat folgendes geschrieben:
Danke Jens für deinen Rat. Liebe Grüße Otmar

Der obige Code funktioniert exakt bei der Eingabe der Datensätze in der Reparaturverwaltung. Herzlichen Dank.

Im selben Formular wird aber nach Fertigstellung der Reparatur das Ausgangsdatum erfasst.
Jetzt wird natürlich bei der Aktualisierung wieder abgefragt und dem Datensatz eine wieder eine neue Nummer
[id_rep_nr] vergeben.
Dasselbe passiert auch natürlich auch bei Änderungen (Korrekturen) im Datensatz.

Ist es möglich, dass Ereignis so zu steuern, dass es nur bei der Erfassung eines neuen Datensatzes aktiv wird,
dass also Änderungen nicht davon betroffen sind?

Grüße Otmar
Willi Wipp
Moderator


Verfasst am:
16. Jun 2007, 13:51
Rufname:
Wohnort: Raum Wiesbaden

Re: Daten erfassen durch mehrere Mitarbeiter - Re: Daten erfassen durch mehrere Mitarbeiter

Nach oben
       Version: Office 2k (2000)

Hi ohsieli,

das koennte man ueber die Formular-Eigenschaft NewRecord abfangen,
oder man verwendet eine Modul-Variable z.B. mblnNeu die man Vor Eingabe (BeforeInsert) auf True
und Beim Anzeigen (Current) dann wieder auf False setzt.
Die prueft man bevor man die Aktion ausfuehrt

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
ohsieli
Anfänger


Verfasst am:
16. Jun 2007, 17:43
Rufname: Otmar
Wohnort: Linz

AW: Daten erfassen durch mehrere Mitarbeiter - AW: Daten erfassen durch mehrere Mitarbeiter

Nach oben
       Version: Office 2k (2000)

Danke für deine Antwort Willi, komme aber auf keinen grünen Zweig. Könntest du mir den Code näher erläutern?
Grüße Otmar
Willi Wipp
Moderator


Verfasst am:
16. Jun 2007, 17:51
Rufname:
Wohnort: Raum Wiesbaden

Re: Daten erfassen durch mehrere Mitarbeiter (II) - Re: Daten erfassen durch mehrere Mitarbeiter (II)

Nach oben
       Version: Office 2k (2000)

Hi ohsieli,

kommst Du so auf einen Baum?
Code:
Option Compare Database
Option Explicit
Private mblnNeu As Boolean

Private Sub Form_BeforeInsert(Cancel As Integer)
    mblnNeu = True
End Sub

Private Sub Form_Current()
    mblnNeu = False
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
    'falls eine Doppelte spaeter noch geaendert werden darf
'    If mblnNeu Or DCount("*", "tab_reparaturverwaltung", _
'                         "id_rep_nr = " & Me!id_rep_nr) > 1 Then
    If mblnNeu Then
        Do While Not Me!id_rep_nr > DMax("id_rep_nr", "tab_reparaturverwaltung")
            Me!id_rep_nr = Me!id_rep_nr + 1
        Loop
    End If
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
ohsieli
Anfänger


Verfasst am:
16. Jun 2007, 18:53
Rufname: Otmar
Wohnort: Linz


AW: Daten erfassen durch mehrere Mitarbeiter - AW: Daten erfassen durch mehrere Mitarbeiter

Nach oben
       Version: Office 2k (2000)

So komm´ ich auf den Baum. Ich habe den Code eingebaut und probiert soweit es mit einem Rechner zum Durchspielen geht.
Im laufe der nächsten Woche werde ich es im Netz prüfen.

Herzlichen Dank für deine Mühe und liebe Grüße
Otmar
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: Z.K. Daten auslesen und in Var speichern 2 @c1d 932 09. Mai 2005, 15:35
@c1d Z.K. Daten auslesen und in Var speichern
Keine neuen Beiträge Access Tabellen & Abfragen: Überschreiben von Daten 2 Raphael 937 18. Apr 2005, 22:53
Raphael Überschreiben von Daten
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus Spalte 2 an erste Zeile anhängen in neuen Feldern 0 katz 931 24. März 2005, 11:52
katz Daten aus Spalte 2 an erste Zeile anhängen in neuen Feldern
Keine neuen Beiträge Access Tabellen & Abfragen: Daten auf Tabellen aufteilen 2 mightymagic 869 08. März 2005, 16:56
Gast Daten auf Tabellen aufteilen
Keine neuen Beiträge Access Tabellen & Abfragen: Vergleich neue Daten mit alten Daten! 28 Sebowsky 3164 29. Jan 2005, 11:38
Sebowsky Vergleich neue Daten mit alten Daten!
Keine neuen Beiträge Access Tabellen & Abfragen: errechnete daten beim klick in excel anzeigen 1 gast234 634 19. Jan 2005, 08:44
lothi errechnete daten beim klick in excel anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus Abfrage automatisch in Tabelle aktualisieren 4 Christian22 4080 15. Jan 2005, 13:13
Christian22 Daten aus Abfrage automatisch in Tabelle aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: Finde doppelte Daten 2 abu 861 03. Dez 2004, 18:34
abu Finde doppelte Daten
Keine neuen Beiträge Access Tabellen & Abfragen: Importieren von bestimmten Excel Daten 63 umbroboy 11978 25. Nov 2004, 12:07
umbroboy Importieren von bestimmten Excel Daten
Keine neuen Beiträge Access Tabellen & Abfragen: Rechnung erstellen wenn alle Daten vorhanden 6 Freddy 1909 25. Nov 2004, 11:03
Freddy Rechnung erstellen wenn alle Daten vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: Berechnen von 2 Daten in einem neuen Feld (berechnetes Feld) 4 Gast 1167 03. Nov 2004, 15:33
Gast Berechnen von 2 Daten in einem neuen Feld (berechnetes Feld)
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage aus 2 gleichen Tabellen mit unterschiedlichen Daten 1 DOG13 727 10. Sep 2004, 14:56
Skogafoss Abfrage aus 2 gleichen Tabellen mit unterschiedlichen Daten
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP JavaScript