Change the value of a text field with an If Clause.

[Akchayan]

Hello everyone,


I have this code here:


If IsNull(Forms!foPayroll!ExpenseText) Then
Me!ExpenseText.Visible = False
Else
Me!ExpenseText.Visible = True
End If

If IsNull(Forms!foPayroll!ExpenseAmount) Then
Me!Expenses.Visible = False
Else
Me!Expenses.Visible = True
End If


But I want that when this if clause is enforced not the visibility is changed but that another value becomes visible.


Thanks for the help!

[ranman256]

hide the boxes in 1 sub, then call the sub when needed:

sub Form_Load()
   EnableMyBoxes
end if


sub Expenses_AfterUpdate()
   EnableMyBoxes
end sub


sub EnableMyBoxes()
  Me!ExpenseText.Visible = not IsNull(Forms!foPayroll!ExpenseText)
  Me!Expenses.Visible = not IsNull(Forms!foPayroll!ExpenseAmount) 
end sub

[Akchayan]

Is there no way to rewrite my If clause?
If IsNull(Forms!foPayroll!ExpenseText) Then
Me!ExpenseText.Visible = False
End If

I just want to display a specified text when the If clause here applies. So a text like "Expenses".


Is there a way to do this?

[Micron]

Maybe
Me.Expenses = Nz(Forms!foPayroll.ExpenseAmount,0)
where 0 is your "other amount". The IF blocks are probably not needed at all.

EDIT -possibly a string is needed, not zero.
Me.Expenses = Nz(Forms!foPayroll.ExpenseAmount,"my string")