Help in clearing form data!!!

[NeoPa]

Speak for yourself. I always knew everything. I was programmed that way :D

Fair point Mary.

[MMcCarthy]

Fair point Mary.

Don't think I didn't notice the edit. How double damn dare you. :D

[NeoPa]

Don't think I didn't notice the edit. How double damn dare you. :D

Well - it was worth a try :D (I didn't tamper with your post notice).

[Phille]

Hi again

So! I haven't yet receved my book so mean while I'm still stuck knowing a little less than nothing about VBA programming.

Could there be anything done about the code giving an error when there are controlled objects on the form. For the moment I have a textbox that gets data depending of values from other controls. For example just ignoring those objects.

Thanks in advance

[NeoPa]

I've changed the original code somewhat. Considering this is a function to clear unbound controls, it's only right that there should be a check to see if the control is unbound ;)
See if this works better for you.

'ClearUnbound empties all controls on an unbound form.
Public Sub ClearUnbound(frmMe As Form)
    Dim varCtrl As Variant

    For Each varCtrl In frmMe.Controls
        With varCtrl
            Select Case .ControlType
            Case acCheckBox, acComboBox, acListBox, acTextBox
                If IsNull(.ControlSource) Then .Value = Null
            End Select
        End With
    Next varCtrl
End Sub

[Phille]

Thanks for the response but now it dosen't clear anything??
Any other suggestions?

Thanks

[NeoPa]

Sorry. I expect the check of (.ControlSource ) should be for an empty string rather than Null. Try this amended version :

'ClearUnbound empties all controls on an unbound form.
Public Sub ClearUnbound(frmMe As Form)
    Dim varCtrl As Variant

    For Each varCtrl In frmMe.Controls
        With varCtrl
            Select Case .ControlType
            Case acCheckBox, acComboBox, acListBox, acTextBox
                If .ControlSource = "" Then .Value = Null
            End Select
        End With
    Next varCtrl
End Sub

[Phille]

IT WORKS!!!

Thanks a million : )

[NeoPa]

Everyone sounds surprised when my code works! :D

Seriously, I'm pleased it's done the trick.