Office: Verzwickte Aufgabe

muss ich mein Problem doch mal etwas ausführlicher schildern und was ich möchte.

also ich möchte ein Formular mit 50 Feldern die durchnummeriert sind z.b. x1.......x50

In einer anderen Tabelle trage ich Nachname, Vorname, feld, zustand

habe ich nun diese eintragung gemacht Beispiel :Rüdiger, Hoffman, 23, A

dann soll im ersten Formular das Feld x23 rot erscheinen
Beispiel :Rüdiger, Hoffman, 23, B
dann soll das Feld x23 Blau erscheinen.

Die Frage ist wie ich nun aus der 2ten Tabelle die Eintragungen im ersten Formular sichtbar mache weil da sollen ja schon die Felder von 1-50 bestehen nur die Farbe soll sich wenn ein Feld vergeben ist ändern

Ich hoffe aus dem Kauderwelsch wird jemand schlau

Access 2003
Windoof XP


Zusatz : Erklärung des gesamt Problemes

Also das soll ein kleines Abrechnungsproramm für einen Campingplatz werden. (grundgerüst hab ich dank Access Hilfe und einiger Testdatenbanken auch schon hinbekommen)

Nun hat der Campingplatz 50 Stellplätze

Ich möchte nun ein Startformular haben welches 50 Felder zeigt (sollen die stellplätze darstellen)

Wenn nun ein Kunde für stellplatz 12 eingetragen wird soll das Feld 12 im Startformular den Status besetzt anzeigen
Ist der Kunde ein Dauercamper dann soll dieses Feld in Blau antelle von Rot angezeigt werden.

Somit hätte ich sofort im Blick welcher Stellplatz noch frei ist.

Sinn dieses Formulars ist aber auch noch ein anderer.

Beim Klick auf ein "Weisses" Feld soll die Kundeneingabe aufgehen und nach eingabe des Stellplatzes das Feld in Formular 1 beim nächsten öffen das Feld als besetzt markieren (Rot)

Beim Klick auf ein Rotes Feld soll die vorhandene Kundeneintragung mit dem Stellplatz aufgehen zur erstellung der Rechnung
Beim Klick aufs Blaue Feld soll die Kundeneingabe mit dem Stellplatz zur erstellung einer Jahresrechnung aufgehen.

Im Prinzip soll das Formular als Übersicht und Schaltzentrale fungieren.

Hoffentlich verstehste nu was ich machen möchte Smiley) ist manchmal sehr schweer das in Worte zu fassen wenn man nen eigenes Bild vor Augen hat



Gruß Diskus

 

Ich auch, aber was mich betrifft: Nicht so ganz wirklich

Hermeneutik:

A=rot=voll?
B=leer=blau?
C=halbvoll=halbleer=weißnichtwas?

oder wie?

Wie ich derzeit vermute, führest Du ("führest" ist 2.P.Sg. Konjunktiv Präsens von "fahren") mit einer einzigen Tabelle besser, aber warten wir mal ab...

 

Für die jenigen die es interessiert hier mal die Lösung vom User DF6GL der mir freundlicherweise zur seite gestanden hat.

Zum Einfärben:

im Formular "Startformular" :

Code:

Public Sub Form_Load()   ' Achtung: PUBLIC, nicht Private 

Dim lngFeld as Long 
Dim strFarbe as String 

For lngFeld =1 to 50 
strFarbe=nz(Dlookup("[Zustand]","Tabelle2","[Feld]=" & lngFeld),"") 
Select Case strFarbe 
Case "A" 
Me("x" & lngFeld).BackColor=vbRed 
Case "B"  
Me("x" & lngFeld).BackColor=vbBlue 
Case Else 
Me("x" & lngFeld).BackColor=vbWhite 
 
End Select 
Next 

End Sub 

Zum Öffnen der anderen Forms

in einem allgemeinen Modul:

Code:

Public Sub OpenForms(ctl as Control) 
On error Resume next 
Select Case  ctl.Backcolor 
Case vbyellow 
Docmd.Openform "Kundeneingabe"  , , , , acFormAdd, acDialog 
Forms!Startformular.Form_Load  
Case vbRed 
Docmd.Openform "Rechnungerstellen" 
Case vbBlue 
Docmd.Openform "JahresRechnungerstellen" 
Case else 
End Select 
End Sub 

und jeweils hinter jedem Feld in "Startformular":

Code:

Sub X1_Click() 
OpenForms Me!X1 
End Sub 
  
 
Sub X2_Click() 
OpenForms Me!X2 
End Sub 
 
 
Sub X3_Click() 
OpenForms Me!X3 
End Sub 
.

weiter so für jedes Feld