Tabstop van tekstvak aan/uit zetten met Wisselknop

[diablo668]

Beste,

Voor onze audit van de CMDB heb ik een Access 2003 formulier gemaakt met een aantal tekstvakken: Lokatie, Ruimte, PC, Monitor 1, Monitor 2 & voip. Hierbij geldt dat alle vakken bij het scannen doorlopen moeten worden behalve Monitor 2 omdat dit geen standaard item is, dit kan natuurlijk makkelijk door de tabstop hiervan uit te zetten.

Echter hebben wij enkele afdelingen waar het vrij standaard is om wel een 2e monitor te hebben en wou ik via een Wisselknop het mogelijk maken om de tabstop voor dit tekst vak aan te zetten (dit moet dan ook overgenomen worden naar de niweu records tot dit weer wordt uitgezet), helaas nog zonder succes.

Ik heb de volgende code gevonden om de tabstop via VBA te manipuleren, maar dit werkt niet volledig:

Private Sub Wissel_Monitor2_KeyDown(KeyCode As Integer, Shift As Integer)

Forms("Scantabel").Controls("Monitor 2").TabStop = True

End Sub

Private Sub Wissel_Monitor2_KeyUp(KeyCode As Integer, Shift As Integer)

Forms("Scantabel").Controls("Monitor 2").TabStop = False

End Sub

Het gevolg is dat de tabstop wel aan gaat, maar bij het deactiveren van de wisselknop niet meer uit gaat.

Alvast bedankt.

Bjorn Clysters

 

[OctaFish]

De code kan een stuk simpeler, en werkend

Private Sub Wissel_Monitor2_Click()
    If Me.Wissel_Monitor2 = vbTrue Then
        Me.Monitor_2.TabStop = False
    Else
        Me.Monitor_2.TabStop = True
    End If
End Sub

 

[diablo668]

Dat was ie! Super bedankt!!