Grey-out/Disable Textfields by checking a textbox

[danskieness]

[SOLVED]Grey-out/Disable Textfields by checking a textbox

hi im quite new to access and i wonder how can i disable a textfield or two in a form when the textbox is unchecked

also how do i add a default value for it while the textbox itself is disabled, can i get away with it by adding a default value on the textbox?

 

[pr2-eugin]

Hello danskieness, Welcome to AWF.

You can make use of the Form Current method.. Default Value only works for New records.. Try something along the lines of..

Private Sub Form_Current()
    If Me.[COLOR=Blue]yourCheckBoxName [/COLOR]Then
        Me.[COLOR=Blue]yourTextBoxName[/COLOR].Enabled = False
        Me.[COLOR=Blue]yourTextBoxName [/COLOR]= "Something here?"
    Else
        Me.[COLOR=Blue]yourTextBoxName[/COLOR].Enabled = True
    End If
End Sub

Change the blue bits..

 

[danskieness]

thanks you pr2, but can you enlighten me about the "Something here?"

what should it contain?

        Me.[COLOR=Blue]yourTextBoxName [/COLOR]= "Something here?"

 

[pr2-eugin]

thanks you pr2, but can you enlighten me about the "Something here?"

Well in your original post you said..

also how do i add a default value for it while the textbox itself is disabled, can i get away with it by adding a default value on the textbox?

You can add whatever you want using VBA, if the CheckBox is disabled..

 

[danskieness]

i see now, i'll give it a try and give you a heads up if it works

 

[danskieness]

@paul
it's giving me an invalid null error

 

[danskieness]

@paul
it's giving me an invalid null error

i've gotten a work around by setting a default value of the checkbox, anyways the problem now is the text field itself doesn't refresh whenever i click and unclick :banghead:

 

[pr2-eugin]

Add similar code in the AfterUpdate event of the CheckBox..

 

[danskieness]

fully works now, amazing, thank you Paul

 

[pr2-eugin]

You are most welcome..

There is tow other tricks to escape the Invalid use of Null, (a) using the Nz method OR (b) Checking if the Record is New record before actually testing the condition in Form Current..

Don't worry using Default value as you can see works too..

 

[danskieness]

(b) Checking if the Record is New record before actually testing the condition in Form Current..

i would like to learn this one, can you teach me?

 

[pr2-eugin]

i would like to learn this one, can you teach me?

Sure

Its just adding a Check (If statement) before going into the main If..

Private Sub Form_Current()
    If Not Me.NewRecord Then
        If Me.[COLOR=Blue]yourCheckBoxName [/COLOR]Then
            Me.[COLOR=Blue]yourTextBoxName[/COLOR].Enabled = False
            Me.[COLOR=Blue]yourTextBoxName [/COLOR]= "Something here?"
        Else
            Me.[COLOR=Blue]yourTextBoxName[/COLOR].Enabled = True
        End If
    Else
         Me.[COLOR=Blue]yourTextBoxName[/COLOR].Enabled = True
    End If
End Sub

 

[danskieness]

i love your logic man it's awesome thank you, i would probably use these in my future projects, btw does access code builder uses vb codes?

 

[pr2-eugin]

Or another neat little Trick..

Private Sub Form_Current()
    If [COLOR=Red][B]Nz([/B][/COLOR]Me.[COLOR=Blue]yourCheckBoxName[COLOR=Red][B], False)[/B][/COLOR] [/COLOR]Then
        Me.[COLOR=Blue]yourTextBoxName[/COLOR].Enabled = False
        Me.[COLOR=Blue]yourTextBoxName [/COLOR]= "Something here?"
    Else
        Me.[COLOR=Blue]yourTextBoxName[/COLOR].Enabled = True
    End If
End Sub

Glad to help ! Good Luck !

 

[danskieness]

Or another neat little Trick..

Private Sub Form_Current()
    If [COLOR=Red][B]Nz([/B][/COLOR]Me.[COLOR=Blue]yourCheckBoxName[COLOR=Red][B], False)[/B][/COLOR] [/COLOR]Then
        Me.[COLOR=Blue]yourTextBoxName[/COLOR].Enabled = False
        Me.[COLOR=Blue]yourTextBoxName [/COLOR]= "Something here?"
    Else
        Me.[COLOR=Blue]yourTextBoxName[/COLOR].Enabled = True
    End If
End Sub

Glad to help ! Good Luck !

what does NZ mean?

 

[pr2-eugin]

Nz - is a function in Access VBA (http://www.techonthenet.com/access/functions/advanced/nz.php) that acts like a Simplified If that checks for one condition and only one.. Is Null.. So if the Field Value/Variable you are passing to the function is Null it will return another value..

If IsNull(someVariant) Then
    theTrueValue = anotherValue
Else
    theTrueValue = someVariant
End If

The above code is simple written using Nz as..

theTrueValue = Nz(someVariant, anotherValue)