change backcolor field on opening forrm

Hello,

In my form there is a textfield. In the property control source the next line:

=DSum("Bedrag";"tblWareHouse1"). Its a textfield, but it gives me the correct amount I need to see.
What I would like to know, if I open my form, and the field shows me a positive amount, the backcolor of the field must be green. For a negative amount, the color red.
The name of the field is txtSaldoWH1.

I’ve tried to convert the textfield into a several functions as such as: Val() and CDbl() , but nothing seems to work.

my code until now,

Code:

---

Private Sub Form_Open(Cancel As Integer)
     
        If Me.txtSaldoWH1.value >= 0 Then
        Me.txtSaldoWH1.BackColor = RGB(0, 255, 0)
        Else
        Me.txtSaldoWH1.BackColor = RGB(255, 0, 0)
        End If
 
End sub

---

Any help please.
TonC

.

Code:

---

Option Explicit




Sub TextBox1_Change()
    On Error Resume Next
    Select Case TextBox1.Value
        Case Is > 0:
            TextBox1.BackColor = vbGreen
        Case Is < 0:
            TextBox1.BackColor = vbRed
    End Select
End Sub

---

Hello Logit,:rofl:

I tried your partial solution, It gave an error message: Variabel not defined!
questions, what is the color of the textbox, when I open the form? Where is "Öption Compare Database"?
"On Error Resume Next" Next to what? Sorry I'am a novice for VBA code, but I'am certain you will come up with a simple solution.

Try this.

Okay, you send, I Learned.
You brought me a idea to solve this problem I saw there was a button in the excel sheet. It was working real fine, but not mend for me. So, I did the following in my Access 2016.

I created another textbox, (like a dummy textbox) with the name (which you choose) I've called my textbox "txtTarget"
In the properties of that textbox under the tab Data, I put the following.
Recordsource =0
Locked = true
enabled = true

The properties for the new textbox must be the same as first textbox. (see tab formatting)

Code:

---

Private Sub Form_Open(Cancel As Integer)

        Me.txtTarget.Visible = False
       
        If Me.txtSaldoWH1.Value >= Me.txtTarget.Value Then
            Me.txtSaldoWH1.BackColor = RGB(0, 255, 0)
        Else
            Me.txtSaldoWH1.BackColor = RGB(255, 0, 0)
        End If

---

It works like a charm, because you set me on the right track to solve this problem.
Many thanks,

.
Glad you got it solved.

I apologize for not noticing you were working with Access. Sometimes it makes a difference when it comes to the code you use.