Checkliste mit Access 2003
mat65
Gesendet: 15.11.12 20:43
Betreff: RE: Checkliste mit Access 2003


Hallo Stefan,

habe jetzt einen Ansatz gefunden, ist zwar eine Speisenauswahl, aber das kann ich verstehen und als Transferleistung übertragen.

Das ist der Code für die Auswahl, jetzt fehlt nur noch das Speichern der gezeigten Werte.

Hier wäre Hilfe nötig.

Danke vorab
Mathias



Option Compare Database
Option Explicit

Private Sub Befehl4_Click()
DoCmd.Close
End Sub


Private Sub Es_Art_AfterUpdate()
Me!Es_Einzel.Enabled = True
Me!Es_Einzel.RowSource = "SELECT tblSpeisen.SpeiseId, tblSpeisen.ArtBeschreib " _
& "FROM tblSpeisen " _
& "WHERE (((tblSpeisen.ArtId) = " & Me.ActiveControl & "));"
Me!Es_Einzel.Requery
End Sub


Private Sub Es_Einzel_AfterUpdate()

If Me!Es_Einzel = 1 Then
Me!Kombinationsfeld5.Enabled = True
Me!Kombinationsfeld5.Visible = True
Me!Kombinationsfeld5.RowSource = "SELECT tblSpeisen.SpeiseId, tblSpeisen.ArtBeschreib " _
& "FROM tblSpeisen " _
& "WHERE (((tblSpeisen.ArtId) = 5 ));"
Me!Kombinationsfeld5.Requery
End If
End Sub


!!! Und in Tabelle speichern !!!



Anhänge
----------------
Anhänge Mappe1.pdf (7KB - 1 downloads)
Top of the page Bottom of the page