Het feit dat je je nog te weinig kennis en ervaring hebt zal natuurlijk niemand tegen je gebruiken
Maar toch:
Dat ik de data via omwegen laat zien en veldnamen benoem die helemaal niks zeggen dat zou goed kunnen.... Voor mij betekend het wel dat ik als leek het grootste gedeelte zelfstandig kan doen.
Als je een nieuwe tabel maakt, is het geen enkele moeite om de velden [Voornaam], [Achternaam] een [Adres] te noemen i.p.v. [Text1], [Text2] en [Text3]. En door goede namen te gebruiken kun je later veel beter zien wat je aan het doen bent. Dus je maakt het jezelf moeilijker in plaats van makkelijker...
En deze opmerking:
Michel, wel gekoppeld in de zin dat dit formulier zijn data haalt uit alleen de tabel Vendor. Niet gekoppeld in de zin van bound/unbound wat dan jou vraag moet zijn geweest.
Maakt de verwarring er ook niet minder op
. Een formulier is gebonden, of niet-gebonden. In het eerste geval heb je er een query of tabel aan gekoppeld, in het tweede niet. Jouw formulier is dus gekoppeld aan de tabel [Vendor], en derhalve een gekoppeld formulier. Uit je plaatje maak ik op dat de keuzelijst met invoervak <Vendor> inderdaad gebruikt wordt om een vendor op te zoeken, dus dat is verder OK. Maar dan:
Links staan 9 labels met de service
Labels? Geen tekstvakken? Of zeg je 'labels' maar bedoel je tekstak?
Maar goed, als ik het een beetje snap, dan wil je dat op basis van de waarden in de bij de labels behorende velden het tekstveld <Details> gevuld wordt. En dat moet dan met de knoppen gebeuren.
Wat de knoppen betreft: je kunt net zo goed een CLICK event op de labels gebruiken; dan kunnen de knoppen weg. Blijft de skyline van Rotterdam wat beter in beeld
Verder kan het een heel stuk simpeler, als je alle (tabel)tekstvelden gewoon op je formulier zet, en dezelfde grootte en plek geeft als het huidige tekstvak. Je zet ze dus in beginsel allemaal boven elkaar. Je kunt er uiteraard maar één zien, maar dat boeit niet, want je moet ze ook nog eens onzichtbaar maken (nog meer Rotterdam in beeld
)
Door op de labels te klikken, maak je het bijbehorende tekstvak dan zichtbaar. De labels zelf kun je ofwel vet opmaken om ze te onderscheiden, ofwel onzichtbaar. In beginsel kun je een label niet uitschakelen, dus als een tekstvak leeg is, en het label is zichtbaar kun je er op klikken en verschijnt het lege tekstvak. Ik denk dan: nou en? Dan zie ik maar een leeg tekstvak. Bij een vet label (indicatie van een gevuld tekstvak) zie je het tekstvak met de inhoud.
In code ziet dat er zo uit:
Code:
Private Sub Form_Current()
With Me
If .Naam & "" <> "" Then .Naam_Bijschrift.Visible = True Else: .Naam_Bijschrift.Visible = False
If .Achternaam & "" <> "" Then .Achternaam_Bijschrift.FontBold = True Else: .Achternaam_Bijschrift.FontBold = False
If .Merk & "" <> "" Then .Merk_Bijschrift.FontBold = True Else: .Merk_Bijschrift.FontBold = False
End With
End Sub
Code:
Private Sub Achternaam_Bijschrift_Click()
With Me
.Merk.Visible = False
.Achternaam.Visible = True
.Naam.Visible = False
End With
End Sub
Code:
Private Sub Merk_Bijschrift_Click()
With Me
.Merk.Visible = True
.Achternaam.Visible = False
.Naam.Visible = False
End With
End Sub
Code:
Private Sub Naam_Bijschrift_Click()
With Me
.Merk.Visible = False
.Achternaam.Visible = False
.Naam.Visible = True
End With
End Sub
In de Form_Current heb ik twee varianten: één die het label verbergt (kan je er niet op klikken) en één die labels vet maakt. De 3 subroutine's er onder maken dus het eigen tekstvak zichtbaar, en de rest onzichtbaar.
