Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
automatisches ausfüllen eines Textfeldes
zurück: Registersteuerelement im Registersteuerelement weiter: Unterformluar nachträglich ändern 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
Rennsteig00
Gast


Verfasst am:
12. Apr 2006, 14:24
Rufname:

automatisches ausfüllen eines Textfeldes - automatisches ausfüllen eines Textfeldes

Nach oben
       

Hallo,

ich möchte ein Testfeld in einem Formular automatisch ausfüllen. Dazu folgender Sachverhalt:
In einem Formular trage ich Kalenderwochen ein. Aus einer Kalenderwoche soll der Mittwoch als Datum ermittelt werden und dieses Datum in ein Textfeld eingetragen und damit die dazugehörige Tabelle aktualisiert werden. Der Code soll nach dem verlassen des Textfeldes ausgeführt werden.

Das ermitteln des Datums funktioniert, aber beim editieren des Textfeldes (.Edit) und damit der Tabelle erhalte ich folgende Fehlermeldung:
Zitat:
Laufzeitfehler 3197

Das Microsoft Jet-Datenbankmodul hat den Vorgang angehalten, da sie und ein weiterer Benutzer gleichzeitig versuchen, dieselben Daten zu verändern.
Die DB liegt auf einem Server aber ich bin der einzige der an den Daten Veränderungen vornehmen kann.

Ich verwende folgenden Code:
Code:
Option Compare Database

Private Sub Text18_AfterUpdate()
    Call WTag
End Sub

Function WTag()
    Dim cw, Jahr, Tag, skriterium As String
    Dim Datum As Date
    Dim Woche As Integer
    Dim Tage As Integer
    Dim db As DAO.Database
    Dim rst As DAO.Recordset

    'Text aus Textbox "Woche" und "Jahr" auslesen
    cw = Forms![Labeltermin]![Woche]
    Jahr = Forms![Labeltermin]![Jahr]
    If cw <> "" Then
        Datum = DateSerial(Jahr, 1, 1)
        'Woche = Format(Datum, "cw")
        Tage = (cw) * 7
        Datum = DateAdd("d", Tage, Datum)
        WTag = Format(Datum - WeekDay(Datum, 0) + 3, "dd\.mm\.yyyy")
        'das Datum in die "Labeltermin" Tabelle eintragen
        Set db = CurrentDb
        Set rst = db.OpenRecordset("Labeltermin", dbOpenDynaset)
        With rst
            Tag = Nz(Forms![Labeltermin]![MiDatum], "")
            skriterium = "MiDatum = ' " & Tag & "'"
            rst.FindFirst skriterium
            If rst.NoMatch Then
                .Edit
                !MiDatum = "" & WTag
                .Update
            End If
            Set rst = Nothing
            Set db = Nothing
        End With
    End If
End Function
Rennsteig00
Gast


Verfasst am:
12. Apr 2006, 17:26
Rufname:


AW: automatisches ausfüllen eines Textfeldes - AW: automatisches ausfüllen eines Textfeldes

Nach oben
       

Ok, habe es geschafft. Der Fehler war dass ich keine Ereignisprozedure zugewiesen habe und dann einfach das Textfeld über
Code:
        Me!Textfeld = "" & WTag
ausfüllen.
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: Felder automatisch ausfüllen mit Werten aus einer anderen Ta 1 ERICRoedan 108 07. Okt 2013, 09:47
Gast Felder automatisch ausfüllen mit Werten aus einer anderen Ta
Keine neuen Beiträge Access Tabellen & Abfragen: Access-Felder automatisch ausfüllen 6 Sachse17 2224 12. Okt 2012, 09:47
MissPh! Access-Felder automatisch ausfüllen
Keine neuen Beiträge Access Tabellen & Abfragen: Automatisches Füllen von Feldern 1 Ghost93 206 12. Sep 2012, 18:06
MiLie Automatisches Füllen von Feldern
Keine neuen Beiträge Access Tabellen & Abfragen: automatisches Anpassen des Primäschlüssels verhindern 2 michidd 204 09. Sep 2011, 12:36
michidd automatisches Anpassen des Primäschlüssels verhindern
Keine neuen Beiträge Access Tabellen & Abfragen: Automatisches zuordnen von Bildern 27 basti2010 1025 02. Jan 2011, 15:06
derArb Automatisches zuordnen von Bildern
Keine neuen Beiträge Access Tabellen & Abfragen: Automatisches löschen von verknüpften Datensätzen 1 Gast 282 22. Feb 2010, 11:11
KlausMz Automatisches löschen von verknüpften Datensätzen
Keine neuen Beiträge Access Tabellen & Abfragen: Knifflige Abfrage- Neugliederung eines Textfeldes in Sp 2 Gast 282 05. Mai 2009, 14:33
barongsay Knifflige Abfrage- Neugliederung eines Textfeldes in  Sp
Keine neuen Beiträge Access Tabellen & Abfragen: Access Wenn, dann sonst - auto ausfüllen 10 nachtheuel 5217 19. Feb 2009, 18:31
freewilly Access Wenn, dann sonst - auto ausfüllen
Keine neuen Beiträge Access Tabellen & Abfragen: automatisches einfügen von werten aus anderen tabellen 7 markus.hofer 496 10. Aug 2008, 22:17
KlausMz automatisches einfügen von werten aus anderen tabellen
Keine neuen Beiträge Access Tabellen & Abfragen: Formular automatisch ausfüllen 19 Saranger 4699 22. März 2007, 23:02
Thomas2007 Formular automatisch ausfüllen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage / Feldinhalte eines Textfeldes zusammenfassen 4 Accessman 607 21. März 2007, 02:26
Willi Wipp Abfrage / Feldinhalte eines Textfeldes zusammenfassen
Keine neuen Beiträge Access Tabellen & Abfragen: automatisches Ergänzen 1 Michael12353 600 26. Sep 2005, 14:31
Dalmatinchen automatisches Ergänzen
 

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