Kemi fomular mangler felt til subscripts

Indsæt flg. kode i feltets BeforeUpdate event:

Private Sub felt1_BeforeUpdate(Cancel As Integer)
If Me.felt1 = "h2o" Then
Me.felt1.FontBold = True
Else: Me.gelt1.FontBold = False
End If
End Sub

Jeg vil anbefale, at du også indsætter koden i formularens OnCurrent event således, at formularen måler på felt1 og giver en fed skrift hvis betingelsen er opfyldt.

Kommer med et forslag til farveskift om lidt.

Else: Me.gelt1.FontBold = False > gelt1 = felt1

Dim lngRed As Long, lngYellow As Long, lngBlack As Long, lngWhite As Long
lngRed = RGB(255, 0, 0)
lngYellow = RGB(255, 255, 0)
lngBlack = RGB(0, 0, 0)
lngWhite = RGB(255, 255, 255)
If Felt1 = "h2o" Then
felt1.ForeColor = lngRed
felt1.BackColor = lngWhite
felt1.FontBold = True
Else
felt1.ForeColor = lngYellow
felt1.BackColor = lngBlack
felt1.FontBold = False
End If
Me.Refresh

Her er farven på felt1 sat til rød hvis betingelsen er opfyldt. Du kan justere farvens intensitet, ved at rette på tallet i parantesen, 255 er max.

Me.Refresh er indsat hvia du ændrer på en post, hvis du tilføjer nye poster, skal du benytte Me.Requery, idet Me.Refresh ikke tilføjer nye poster.

Jeg har rodet lidt videre, og fonten ændrer du således:

If Me.felt1 = "h2o" Then
Me.felt1.FontName = "Courier"
Me.felt1.FontBold = True
Else
Me.felt1.FontName = "TimesNewRoman"
Me.felt1.FontBold = False
End If

Hvis jeg forstår dig ret, så ønsker du at bruge Small Fonts, når der står tal i feltet og Arial, når der er er tekst i feltet!?

Du kan IKKE have mere end én skrifttype i en tekstboks! Dvs at når du skrive H2O2, så er du nødt til at vælge om den skal bruge den ene eller den anden skrifttype!?

Som din kode ser ud nu, vil jeg tro, at H2O2 og andre kombinationer af tal og bogstaver bliver skrevet med Arial, ikke sandt?

Hvis du ønsker at blande tekster, kan du bruge en RichText-tekstboks. Denne er ikke en del af standard-access.

/Thomas

mugs du have tak for din hjælp men det som thomas kom med kan jeg bedre bruge.

malm > Når jeg læser Thomas svar, kan jeg godt se, at jeg har misforstået dit spørgsmål :o)