update control

[tmarsh]

I have a form with a subform that displays equipment inventory and loan details. On the main form I have a yes/no combo box indicating if the item is on loan. The subform has a loan date and return date. How can I make it automatically change to yes if the latest detail in the subform has a loan date but a blank return date?

 

[boblarson]

In the ON CURRENT event of the subform, put

If IsNull(Me.YourReturnDateTextBoxNameHere) or Me.YourReturnDateTextBoxNameHere = "" Then
     Forms!YourCheckBoxNameHere = True
Else
     Forms!YourCheckBoxNameHere = False
End If

 

[tmarsh]

In the ON CURRENT event of the subform, put

If IsNull(Me.YourReturnDateTextBoxNameHere) or Me.YourReturnDateTextBoxNameHere = "" Then
     Forms!YourCheckBoxNameHere = True
Else
     Forms!YourCheckBoxNameHere = False
End If

Doesn't seem to work. Would it be because YourCheckBoxNameHere is a combo box?

 

[boblarson]

Yep, missed that. So replace

If IsNull(Me.YourReturnDateTextBoxNameHere) or Me.YourReturnDateTextBoxNameHere = "" Then
     Forms!YourCheckBoxNameHere = True
Else
     Forms!YourCheckBoxNameHere = False
End If

with

If IsNull(Me.YourReturnDateTextBoxNameHere) or Me.YourReturnDateTextBoxNameHere = "" Then
     Forms!YourComboBoxNameHere = "Yes"
Else
     Forms!YourComboBoxNameHere = "No"
End If

 

[tmarsh]

Yep, missed that. So replace

If IsNull(Me.YourReturnDateTextBoxNameHere) or Me.YourReturnDateTextBoxNameHere = "" Then
     Forms!YourCheckBoxNameHere = True
Else
     Forms!YourCheckBoxNameHere = False
End If

with

If IsNull(Me.YourReturnDateTextBoxNameHere) or Me.YourReturnDateTextBoxNameHere = "" Then
     Forms!YourComboBoxNameHere = "Yes"
Else
     Forms!YourComboBoxNameHere = "No"
End If

Thanks for that. I'm getting an invalid use of property on my como box.

 

[boblarson]

Oops, boy I can't see well in the morning (also at other times) because you shouldn't have

Forms!YourComboBoxName

it should be

Me.YourComboBoxName

if being referenced from code on the same form and

Forms!YourFormNameHere.YourComboBoxNameHere

if being referenced from code not on that actual form.