Need help using variables

[lawdy]

I have a form which has many text fields (may actually be labels). I need to remove the contents in them. Below is the code I have tried.

Public Function modCal_removeJob()
Dim strCell As String
strCell = "wd14115" ' I do have a field (label named wd14115


Forms![frmCalendar].Form![strCell] = Empty
End Function

Thank for your help.

[isladogs]

Data is stored in tables and only displayed / edited in forms.
Either use a delete query to remove the data (if you are sure you want it gone!) or filter the form’s record source to filter out the unwanted data

[lawdy]

This is not data stored in a table. It is called a label on Access's form design. It has no data source.

[Minty]

Just select the label and delete it in design view?
Or select multiple labels and delete them all at once.

Writing code to do this seems incredibly time consuming for a one off exercise?

[Welshgasman]

If it is a label, and you need to be able to tell the difference between those and other types of controls, then you need the Caption property?

ChatGPT

Private Sub ClearLabels()
    Dim ctl As Control
    
    For Each ctl In Me.Controls
        If ctl.ControlType = acLabel Then
            ctl.Caption = ""
        End If
    Next ctl
End Sub

[lawdy]

Welshgasman
, I tried your sub (It would not run as a sub, I had to make it a function). I get an error Invalid use of the Me keyword. See below

Public Function ClearLabels()
Dim ctl As Control

For Each ctl In Me.Controls
If ctl.ControlType = acLabel Then
ctl.Caption = ""
End If
Next ctl
End Function

To Minty; I have a lot of these. I admit I wrote it all wrong. I have to live with it for now.

[Welshgasman]

Put in your form.

If you are going to run it on multiple forms, then do put it in a module and pass in the form object to the sub/function.

I only ever use functions if I want to return something, else I use subs.

[orange]

lawdy,
Can you step back and tell us in plain English what exactly you want to accomplish, and tell us a little about your environment? Is it the label you want removed? Or, only the caption that you may want to change/edit? Are you re-purposing a form? Or extending the application to other users?

Label(captions) often help users to understand the intended purpose/meaning/context of the associated control. My analogy is the label on a soup can --tells you what's inside. So removing label captions may be something to reconsider or, at least, review to ensure that is the "best way" to meet your goals.

Not trying to dissuade you, just suggesting you look at options before pulling the trigger.

[lawdy]

Ok Orange, I will try. I want to remove the caption inside the label, but not the label. I know I set this up wrong and I would not do it that way again. But I need to be able to delete or remove the captions.

[Welshgasman]

Ok Orange, I will try. I want to remove the caption inside the label, but not the label. I know I set this up wrong and I would not do it that way again. But I need to be able to delete or remove the captions.

So now you have code to do exactly that.

[lawdy]

No Welshgasman, I don't. That code does not work
I get an error Invalid use of the Me keyword.

[orange]

lawdy,

All forms or just some forms? All labels or some labels? The answers will help responders with coding suggestions.

To use the Me keyword, the form has to be OPEN --- that may be your issue.

[lawdy]

They are all on the same form. They are quite a few. The form is open. The particular item to be changed is right clicked and a selection is made. Then I get the error.

[lawdy]

I am beginning to think that the problem may be because it uses a function. I use code like the following all time

#Forms![frmCalendar].Controls(strCell).BorderColor = vbBlack#So as my title states, I need help with variables (perhaps). That is what I had in mind. Can this be done using the entire form structure instead of using the me keywork?

[June7]

Me only works if code is behind form or report. Your code should work. Why would this need to be a Function?

What do you mean by "The particular item to be changed is right clicked and a selection is made."? How is this relevant to the code?

If you want to provide db for analysis, follow instructions at bottom of my post.

BTW, use of # character in your post accomplishes nothing. Use # icon on edit toolbar to generate CODE tags.