Hallo Gemeinde,
nach etlichen Versuche, Recherchen und Kopfzerbrechen hoffe ich, ihr könnt mir weiterhelfen... Ich habe vor sehr sehr langer Zeit mal gelernt zu programmieren - anscheinend zu lange her - ich komme einfach nicht weiter, hoffentlich könnt ihr mir helfen
Ich habe folgendes "Problem":
Ich möchte ein Formular in Access programmieren und komme an einer Stelle nicht weiter. Das Formular "PM" enthät 24 Bezecihnungsfelder mit den Namen bit1, bit2, bit3, bit4,...bit24
In der mit dem Formular verknüpften Tabelle "P-Modus" gibt es eine Spalte mit dem Namen "bit_NR" in dem je nach Datensatz eine Zahl zwischen 1 und 24 steht...
Jetzt zum eigentlichen Problem:
Ich würde gerne abhängig von der in der Zelle stehenden Zahl (z.B. 12) das Bezeichnungsfeld bit12 farblich markieren. Mehr nicht...
Einer meiner fehlgeschlagenen Versuche sieht so aus:
Dim i As Integer
Dim i_bit As Integer
Dim name_feld As String
Dim bit As Integer
bit = Me("Bit_NR")
For i = 1 To 24
If bit = i Then
name_feld = "bit" & "i"
Me.name_feld.FontBold = True
Else
End If
Next i
Ich bekomme es einfach nicht hin - wäre supi wenn ihr mir helfen könntet... die Variante mit 24 If-Abfragen find ich doof - das ginge sicherlich auch...
Grüße,
fke
===============================
Edit:
so funktioniert es auch... allerdings würde ich es gerne "schöner" lösen als mit 24 if-Abfragen:
bit = Me("Bit_NR")
If bit = 1 Then
Me.bit1.FontBold = True
Me.bit1.ForeColor = vbRed
Else
Me.bit1.FontBold = False
Me.bit1.ForeColor = 8355711
End If
If bit = 2 Then
Me.bit2.FontBold = True
Me.bit2.ForeColor = vbRed
Else
Me.bit2.FontBold = False
Me.bit2.ForeColor = 8355711
End If
If bit = 3 Then
Me.bit3.FontBold = True
Me.bit3.ForeColor = vbRed
Else
Me.bit3.FontBold = False
Me.bit3.ForeColor = 8355711
End If
......
nach etlichen Versuche, Recherchen und Kopfzerbrechen hoffe ich, ihr könnt mir weiterhelfen... Ich habe vor sehr sehr langer Zeit mal gelernt zu programmieren - anscheinend zu lange her - ich komme einfach nicht weiter, hoffentlich könnt ihr mir helfen
Ich habe folgendes "Problem":
Ich möchte ein Formular in Access programmieren und komme an einer Stelle nicht weiter. Das Formular "PM" enthät 24 Bezecihnungsfelder mit den Namen bit1, bit2, bit3, bit4,...bit24
In der mit dem Formular verknüpften Tabelle "P-Modus" gibt es eine Spalte mit dem Namen "bit_NR" in dem je nach Datensatz eine Zahl zwischen 1 und 24 steht...
Jetzt zum eigentlichen Problem:
Ich würde gerne abhängig von der in der Zelle stehenden Zahl (z.B. 12) das Bezeichnungsfeld bit12 farblich markieren. Mehr nicht...
Einer meiner fehlgeschlagenen Versuche sieht so aus:
Dim i As Integer
Dim i_bit As Integer
Dim name_feld As String
Dim bit As Integer
bit = Me("Bit_NR")
For i = 1 To 24
If bit = i Then
name_feld = "bit" & "i"
Me.name_feld.FontBold = True
Else
End If
Next i
Ich bekomme es einfach nicht hin - wäre supi wenn ihr mir helfen könntet... die Variante mit 24 If-Abfragen find ich doof - das ginge sicherlich auch...
Grüße,
fke
===============================
Edit:
so funktioniert es auch... allerdings würde ich es gerne "schöner" lösen als mit 24 if-Abfragen:
bit = Me("Bit_NR")
If bit = 1 Then
Me.bit1.FontBold = True
Me.bit1.ForeColor = vbRed
Else
Me.bit1.FontBold = False
Me.bit1.ForeColor = 8355711
End If
If bit = 2 Then
Me.bit2.FontBold = True
Me.bit2.ForeColor = vbRed
Else
Me.bit2.FontBold = False
Me.bit2.ForeColor = 8355711
End If
If bit = 3 Then
Me.bit3.FontBold = True
Me.bit3.ForeColor = vbRed
Else
Me.bit3.FontBold = False
Me.bit3.ForeColor = 8355711
End If
......
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „fke“ ()