Unbound controls (textboxes, specifically)

[Pwyd]

Is there a default behaviour to set somewhere so that unbound controls with
no row source will clear upon moving the view to a different record?

If thats something that should be set on a control-by-control basis, in
which manner would you do so? (programattically or otherwise)

 

[CompGeek78]

Is there a default behaviour to set somewhere so that unbound controls with
no row source will clear upon moving the view to a different record?

If thats something that should be set on a control-by-control basis, in
which manner would you do so? (programattically or otherwise)

There is nothing you can set on the control, but on the OnCurrent
event of your form you can reset the TextBox value.

Private Sub Form_Current()
If Me.Text2.ControlSource = "" Then
Me.Text2 = ""
End If
End Sub

Keven Denen

 

[Clifford Bass]

Hi,

To do all unbound text boxes:

Private Sub Form_Current()

Dim ctrl As Control

For Each ctrl In Controls
If ctrl.ControlType = acTextBox Then
If ctrl.ControlSource = "" Then
ctrl.Value = Null
End If
End If
Next ctrl

End Sub


Clifford Bass

 

[Pwyd]

Great, thank you both.

Hi,

To do all unbound text boxes:

Private Sub Form_Current()

Dim ctrl As Control

For Each ctrl In Controls
If ctrl.ControlType = acTextBox Then
If ctrl.ControlSource = "" Then
ctrl.Value = Null
End If
End If
Next ctrl

End Sub


Clifford Bass

 

[Clifford Bass]

Hi,

Glad to help and you are welcome.

Clifford Bass