Form VBA w/A2013

Don't know as I have never eaten @ a Chinese Buffet in London, but I have eaten in Chinese Buffets in 33 states in US. In fact I can't even remember much of what I ate in UK. Of course I was only 19, so all I remember that a young woman took me drinking and she ordered us a pims #1 or 2. Or something like that.
I'm sure that you've had your fair share of partying when you were in your teens :D But it sounds like you may have found a goldmine.

Yes, sometimes I look for churches by state. In fact I just had to send a associate a list of all the churches I had for AZ. So is it possible to have my label show what state I enter in?
I would normally say that you should create a form for this but I'll keep it simple for you.

  1. Paste this code in a module:
    Code:
    Private strParamVal As Variant
    
    Public Function SetStateParam(TheValue As Variant) As Variant
        strParamVal = TheValue
    End Function
    
    Public Function GetStateParam() As Variant
        GetParam = strParamVal
    End Function
  2. In a column in your query, enter this:
    Code:
    SetStateParam([COLOR="blue"][Enter State][/COLOR])
    ... it needs to be the same text as the parameter.
  3. To get the value use the GetStateParam() function:
    Code:
    Forms("frmChurchesAllDick").Controls("[COLOR="Blue"]LabelName[/COLOR]").Caption = GetStateParam()

BTY:
I have ask this before, but nobody seems to know what happened to John Big booty. He invites me to Aussie country.
No idea where he is either. jdraw also mentioned the same thing.
 
I'm sure that you've had your fair share of partying when you were in your teens :D But it sounds like you may have found a goldmine.

I would normally say that you should create a form for this but I'll keep it simple for you.

  1. Paste this code in a module:
    Code:
    Private strParamVal As Variant
    
    Public Function SetStateParam(TheValue As Variant) As Variant
        strParamVal = TheValue
    End Function
    
    Public Function GetStateParam() As Variant
        GetParam = strParamVal
    End Function
  2. In a column in your query, enter this:
    Code:
    SetStateParam([COLOR=blue][Enter State][/COLOR])
    ... it needs to be the same text as the parameter.
  3. To get the value use the GetStateParam() function:
    Code:
    Forms("frmChurchesAllDick").Controls("[COLOR=Blue]LabelName[/COLOR]").Caption = GetStateParam()

No idea where he is either. jdraw also mentioned the same thing.

Thanks. Two reasons I am revamping. No. 1 To learn to code better. No. 2 This coding I am eliminating lots of forms and lots of macros.I just checked the original db. It has 42 form.
 
I see. A form would offer you more flexibility but you can look into this at your convenience.
 
I see. A form would offer you more flexibility but you can look into this at your convenience.

BTW: Did you like my green buttons. My wife doesn't. Once I finish revamping my end I will duplicate the same thing, except with her colors and her placement of text, and cmd's. Got to keep mamma happy. I made her a db that she has 40,000 recipes in . I keep telling her garbage in garbage out. Now she's not happy she can't sort on a memo file.
 
Yes I remember your recipes db.

The attached is what I see at the moment. Honestly, it's erm ok but I'm with your wife on this one... it's not the best looking menu, and your buttons are all over the place.
 

Attachments

  • Dicks menu.png
    Dicks menu.png
    10.5 KB · Views: 131
After a quick re-jig, attached is a bit of inspiration for you.
 

Attachments

  • Dicks new menu.png
    Dicks new menu.png
    18.9 KB · Views: 137
Here is one that my wife said I had to get rid of, that is was grounds for divorce.
Now I know it's not very professional looking, and I don't sent any db's out like that, but those are for my private collection.
 

Attachments

Here is one that my wife said I had to get rid of, that is was grounds for divorce.
Now I know it's not very professional looking, and I don't sent any db's out like that, but those are for my private collection.

BTW: that was before Access let me pick colors for cmd's. I downloaded a little apps that let me make covers for the cmd's
 
It looks like a Princess' menu board. :D


I think we have a cultural innuendo problem. What is a princess menu board?

Did you make that menu form with a option group control?

If you don't here from me much after today, it is because I finish up my work here (MS) tomorow and travel Sunday and Monday back to FL. Then I have to take my wife's new compute and see what HP repair has done to it. The WiFi router at the rehab hospital she is in blocks her backup server so I am going to set it up with and external hard drive as a back up.
 
Just making reference to the pink ;)

Yes it was an Option Group control. Drop it and immediately Cancel. You can also use a Rectangle and a Label.

Is she an employee at the hospital? I would have thought that their IT dept would have sorted it out for her.
 
Just making reference to the pink ;)

Yes it was an Option Group control. Drop it and immediately Cancel. You can also use a Rectangle and a Label.

Is she an employee at the hospital? I would have thought that their IT dept would have sorted it out for her.

No she is a patient. She had a leg amputated 2 years ago, and she has ms in the other leg. They have tried fitting her with a prosthesis but without much luck. Up until that time we traveled together in an RV.
There IT dept is off site, and they claim that it is not block in their cable network, and it must be the location router. The local router is under the supversion of the maintenance/janitor who know only where the reset button is. I have had a supervisor contact IT many times without success. I have brought my WiFi router from home and set it up it contacts the backup server (carbonite) and then switch to the in house router right in from of that supervisor, and it is blocked. All he says I will contact IT again. Just before I left FL out of 5 computers my faithful "Dell: was the only one working properly. Hopefully HP repair will have her new one properly fixed.
 
Oh, I hope both of you are managing that well.

It's really pointless having an offsite IT department especially for hardware support. Not unless their a few blocks away and their response time is second to none. Good luck with that!
 
Ah, you have put the public function inside a private function, therefore it is not visible to the calling procedure. Make it a separate procedure within your forms module and I suspect it will work.
 

Users who are viewing this thread

Back
Top Bottom