Neueste Beiträge

#51

Formular / Re: Kombination von Standardwe...

Letzter Beitrag von Knobbi38 - November 04, 2025, 18:44:20

Hallo Rene,

was verstehst du unter "[Feld1] ist der Value einer Mehrfachauswahl" ?

#52

Formular / Re: Kombination von Standardwe...

Letzter Beitrag von rene.hundert - November 04, 2025, 18:09:08

Aber ich habe nun folgendes Problem:

[Feld1] ist der Value einer Mehrfachauswahl und ich will für jeden Wert die entsprechende Anzeige haben. Leider zeigt er mir jedoch nur den Wert und nicht den Text an.

Code [Auswählen] Erweitern

="ÜBUNG" & " " & [Absender.Value] & " " & [Injectname]
Danke nochmals und Grüße

#53

Formular / Re: Kombination von Standardwe...

Letzter Beitrag von rene.hundert - November 04, 2025, 18:06:33

Servus,

erstmal danke für die schnelle Antwort. Ich habe das Problem mit

Code [Auswählen] Erweitern

="Achtung" & " " & [Feld1] & " " [Feld2]gelöst

#54

Formular / Re: Tabelle füllen und Bericht...

Letzter Beitrag von Kutsche - November 04, 2025, 17:17:17

Hallo Holger,

ich habe deinen Code angepasst (s. Anlage).

Nun funktioniert es. Danke für deine Hilfe.

LG Jens

#55

Formular / Re: Tabelle füllen und Bericht...

Letzter Beitrag von Kutsche - November 04, 2025, 16:25:20

Hallo Holger,

du hast Recht, unter access sind Makro und VBA etwas anderes. Ich arbeite viel mit Word, da ist es eigentlich das gleiche.

Deinen Code  habe ich jetzt eingebaut. Beim Test  läuft der Code hier auf einen Laufzeitfehler 91 bei rst.Close:

Code [Auswählen] Erweitern

Private Sub Patronenwechsel_AfterUpdate()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
   
        If blnInitialLoad = False Then
            If Me.Patronenwechsel.Value = True Then
                If Me.Patronenwechsel = True Then


                    Set db = CurrentDb()

       
                    Set rst = db.OpenRecordset("tbl_Patrone", dbOpenDynaset)
                    rst.AddNew
                    rst!Wechseldatum = Me.FuellungAm  ' Feld-Namen ggf. anpassen!
       
                    rst.Update


                End If
            End If
        End If
   
    rst.Close
    Set rst = Nothing
    Set db = Nothing
End Sub

Hast du noch eine Idee?

#56

Formular / Re: Tabelle füllen und Bericht...

Letzter Beitrag von Debus - November 04, 2025, 07:20:08

In der txt Datei ist nun der gesamte Code aus deinem Formular
Schau es Dir einfach einmal an und füge es dort hinzu.

Holger

#57

Formular / Re: Tabelle füllen und Bericht...

Letzter Beitrag von MzKlMu - November 03, 2025, 23:25:47

Hallo,

Hatte Teil 1 und 2 direkt in das Makro für das Formular kopiert

Was für ein Makro ?
Man kann kein VBA Code in ein Makro kopieren. Makro und VBA Code sind bei Access 2 verschiedene Dinge und haben nichts miteinander zu tun.
Makros sind bei Access eher zu meiden.

#58

Formular / Re: Tabelle füllen und Bericht...

Letzter Beitrag von Debus - November 03, 2025, 22:39:31

Rechner sind aus. Sorry. Wenn keiner mehr was schreibt kann ich es morgen gerne mal was hochladen

Holger

#59

Formular / Re: Tabelle füllen und Bericht...

Letzter Beitrag von Kutsche - November 03, 2025, 22:33:45

irgendwas habe ich jetzt falsch gemacht. Hatte Teil 1 und 2 direkt in das Makro für das Formular kopiert und bekomme nun beim Aufruf die Fehlermeldung im Anhang.

#60

Formular / Re: Tabelle füllen und Bericht...

Letzter Beitrag von Debus - November 03, 2025, 22:18:38

Schau mal das sind drei Teile
1. Form_Load
2. Form_Current

Beide einfach in den Code der Form kopieren und das andere zur Chechbox wieder nach_Aktualisierung