Access Prüfprotokoll erstellen

Computer: Software & Programmierung Microsoft Access
#1

Hallo Leute,
Ich habe vor, ein Formular zu erstellen, auf dem der Mitarbeiter der Quallitätskontrolle sein Prüfungsergebnis per Klick auf commandbutten dokumentiert.
Das habe ich mir wie folgt vorgestellt.
Auf meinem Formular „Prüfschama“ sind die CommandButten21 bis 30 eingebaut.
Diese Ändern durch Klick ihre Hintergrundfarbe und Beschriftung. Erst wenn alle auf grün stehen, kann die Prüfung als beendet abgespeichert werden.
Hat jemand eine Idee für die Schleife ?

#2

Moin,

ich sehe da keine Schleife:

  if  cb21.Color = grün
  and cb22.Color = grün
  and ...
  then 
     ebbs
  else
     ebbs_anderes
  end if

Für Color musst Du Dir das passendde suchen - Text, Hintergrund zB.

Gruß Ralf

#3

Hallo,
ja, …

aber die bessere Idee wäre, die Db db-technisch sauber zu entwerfen und keine solchen Klimmzüge mit Schaltflächen-Farben zu Grunde zu legen. Zudem wird eine DB-Anwendungserstellung IMMER erst bei der Tabellen-Konstruktion (nach einer Datenanalyse und Klärung der Datenbeziehungen) begonnen. Formulare und visueller Schnickschnack liegen zu diesem Zeitpunkt noch in weiter Ferne…

Gruß
Franz, DF6GL

#4

Danke Franz, für´s Kopf waschen. Hast ja Recht. Aber rauskommen musst Du da selbst. :wink:
Also zurück an das Zeichenbrett…

Haupttabelle =>„Kampagnen“
Untertabelle =>„Vertrienbsweg“
Beziehung: 1:n hergestellt über Spalte „Kampagnennummer“
Bleibt also für die Quallitätskotrolle die Möglichkeit das Ergebnis ebenfalls in der Untertabelle mit fest zu halten, oder für die Qullitätskontrolle eine neue Tabelle anzulegen mit einer 1:1 Beziehung.
Was würdest Du machen ?
Gruß
Christian

#5

… Danke Ralf,

und was meint ebbs ?

Christian

#6

schwäbisch für etwas. „Ebbs Guats isch nia schlächt“.

Gruß Ralf

#7

…riiiiieeeesen Brüller… ;-)))

Christian

#8

Hallo Ralf,

Ich stelle das Formular Prüfschema erst zusammen, wenn es aufgerufen wird. Das versuche ich über die folgende Case Funktion.
Sub Prüfung()
Dim Vertriebskanal As String

Select Case Vertriebskanal_UF1

    Case "Zentrales Mailing"
    
        Label27.Visible = True
        Commandbutton21.Visible = True
    Case "Berater"
    
        Label27.Visible = False
        Commandbutton21.Visible = False
End Select

End Sub

Leider funktioniert das noch nicht richtig. Ich erhalte keinen Wert, wenn ich das Feld „Vertriebskanal_UF1“ auslese.
Wie kann ich das Feld des Unterformulares denn sonst ansprechen ?
Christian

#9

http://access.mvps.org/access/forms/frm0031.htm

Gruß Ralf

#10

Hallo Franz,

ich bin dabei die Datenbank neu auf zu setzen. Würdest Du mir behilflich sein ?

Gruß Christian

#11

Hallo,

am Besten schickst Du mir eine EMail an de ef sechs ge el ät ge em ix punkt de ee.

Dann sehen wir weiter…

Gruß
Franz, DF6GL

#12

Hab ich gemacht - angekommen ?

Gruß Christian