I'm using a label as a button so it looks nicer, but if I press it without officially exiting the last text field I was in, then that text field doesn't update, so the vba believes it's blank or whatever it was.
I could manually setfocus to a couple different fields or have a teeny field thats hard to see to set focus to, but these both seem roundabout.
Is it possible to use a toggle button to change the colour of a label?
I assume the code should be something like this:
Code:
If Me.ToggleButton = 1 Then
Label.BackColor = RGB(0, 255, 0)
ElseIf Me.ToggleButton = 0 Then
Label.BackColor = RGB(255, 255, 255)
End If
But I've tried it in the "On Click" sections and it doesn't work.
How to Change focus to another form and show only certain records...
View 1 Replies View RelatedI tried this code to change the label to display the full name of the state on the form. Is there a shorter way than putting 49 more states after the if?
[CODE]Private Sub cmdStates_Click()
DoCmd.OpenForm "frmChurchesAll"
DoCmd.ApplyFilter "qryFindState"
lblTxtSt = txtState
If txtState = "FL" Then
lblTxtSt = "Florida"
End If
lblTxtSt.BackColor = 15658720
lblTxtSt.Visible = True
lblStatesof.Visible = True
lbAllChurches.Visible = False
End Sub /CODE]
D7
In Access 2007, I'm using labels as buttons because they can be made pretty. Since labels can't have focus, the focus is not shifted from whatever textbox users are in on button press. The value in that textbox is not considered updated when the macro runs, and things get messy from there.
I had been using a setfocus between two textboxes to work around this, but that seems like a copout. I now have a simple form with just a textbox and a button, so this seems like a good time to learn the right way to do this.
I have n horizontal labels named Label_1 to Label_n. I'd like to assign values to the label captions by using a loop.
Something like:
For i = 1 To n
Set Label_i.Caption = i
End
However, this doesn't work. Message "Object required".
Any suggestions?
In the Main Form , I have few buttons and I am writing the following code to open the right form when a button is clicked but unfortunately the code isn't doing anything. No form is opening. I am using MS office 2010.
Code:
Private Sub BtnOption_Click()
DoCmd.OpenForm "Form1", acNormal, , , acFormAdd, acDialog
End Sub
Private Sub Form_Load()
'Me!Label1.Caption = "Welcome " & Environ("username") & "!"
[code]....
I am trying to change form backcolor with a cmd button via VBA.
View 6 Replies View RelatedI would like to change color of border button on mouseover event. How it to do?
View 4 Replies View RelatedHi, I have got a small problem and maybe someone could advise me.
I am creating a customised command button from a label button. The new button works fine but I can't apply the 'requery' function to it, if i do an error occures and i am being prompt to save the data first???? :confused: :
Private Sub Labelsearch_Click()
Me!itemquery.Requery
End Sub
Private Sub Labelsearch_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Labelsearch.SpecialEffect = 2
Me.Labelsearch.BackColor = 255
Me.Labelsearch.ForeColor = 10092543
Me.Labelsearch.FontItalic = True
Me.Labelsearch.FontBold = True
End Sub
Private Sub Labelsearch_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Labelsearch.ForeColor = 255
Me.Labelsearch.FontItalic = False
Me.Labelsearch.FontBold = True
End Sub
Private Sub Labelsearch_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Come back to initial state when button release'
Me.Labelsearch.SpecialEffect = 1
Me.Labelsearch.BackColor = 16373685
Me.Labelsearch.ForeColor = 8388608
Me.Labelsearch.FontItalic = False
Me.Labelsearch.FontBold = True
End
If I create a command button with the wizard and assign the code :
me!itemquery.Requeryto the on_click event my form is working fine.
Why is his code is not working if I assign it to a label? :o
I have a form with 2 tabs and a sub form on each of those tabs. form1, subformA, subformB on tab control - tabctrl - pageA, pageB. How can i set focus from one tab to another without actually clicking the tab?
I tried this:
TabCtl.Pages("page2").SetFocus
It's comming up with an error - "object required"
I also tried:
page.2.setfocus and that's comming up with an error that it's wrong syntax.
I also tried:
formMyForm.page2.setfocus and that says object required as well.
Ok what I would like to do is have a switchboard with a number of command buttons on, each button opens to a form with a few fields within them.
Is it possible for the initial switchboard labels to be 'red', then as the related form is opened and populated the switchboard label turns 'amber' and once the form is complete the switchboard label is 'green'. See example piccie attached, to get a better understanding!
This is to enable multiple users to see at a glance the status of various jobs.
If anyone knows how I can go about this or suggest any alternatives, I'm open to suggestion.
Thanks in advance
http://img101.imageshack.us/img101/223/switchsamplert7.jpg
Is it possible for an image control to change to a different picture on a form when focus changes to a different record on a subform? I am developing a simple database to record my ever growing collection of TV shows. The form that I use to view my TV show records has an image control on it, I previously had a single image for the entire series (box art for first season). I now want that image control to change to a different picture when the focus changes to a different record on the subform. i.e. when the focus changes from the first season on the subform to the second season; the picture on the main form changes with it.
View 7 Replies View RelatedHow to change size of Label and field with out both at once, default. Access 7
View 1 Replies View Relatedno problem about setting a different border color for a single textbox (or combobox or listbox) which has focus. How about to change, with a small and fast VBA code avoiding to write code for each textbox, the border color (ora other textbox properties) for a many controls in a form?
I tried using 'For each ctrl in Form....', but I got only bad results. All my control are within differente pages in TAB control.
Right I have Windows 7 Ultimate because I am learning Russian and I have created an English Russian dictionary.
Now using Ultimate to go between English Latin alphabet and the Cyrillic alphabet you have to press ALT + SHIFT.
Its awkward and it often doesn't register first time.
Certain fields in my database use the latin alphabet while other fields use the cyrillic alphabet.
Is there a way that on focus of a field I can get the keyboard mapping to ensure that it is correct either English or Cyrillics?
I have an option group with 3 options. The labels are black. I would like to change the label to red for the given option that was choosen.
Option group name: OptionCarrier
Options: Option1, Option2 and Option3
Labels:Land, Sea and Air
Thanks for the help - John
I have several forms that each has a dozen or more checkboxes, true/false. I want to be able to change the background color of the label of each checkbox depending on if the checkbox is true or false. I have used the following code which works great:
If Me.A = True Then
Me.lblA.BackColor = vbYellow
Me.lblA.BackStyle = 1
Me.lblA.ForeColor = vbRed
Else
Me.lblA.BackColor = vbWhite
Me.lblA.ForeColor = vbBlack
End If
Me.A refers to T/F checkbox A and Me.lblA refers to its label. This is repeated for each of the checkbox controls. If the control is [B], then its label is lblB. I have used this in the form OnCurrent event and the checkbox control OnUpdate event. I was wondering if I could use the tag property to this, saving me writing countless lines of code and having the OnCurrent event of each of the forms so long and cumbersome. And I do know that I can use conditional formatting to do this, but I would prefer not to use that method. Is there any way to do this using the tag property and not so many lines of code?
I have a Menu form that has 5 cmdbuttons that opens the same main forms but with 5 different filters. I want a label or text box to change to the name of the filter. I am using VBA to open the form. I can't code a form that's not open yet. Is there any way to accomplished the above?
View 14 Replies View RelatedHello. I've searched and read a few threads concerning image controls on forms and haven't been able to find a solution to my problem (yet). Anyway, I have a form with two image controls (imgOK1 & imgOK2). The previous and current setting of the "Picture" property for both images is set to "C:MOMGraphicsfilename.bmp". The location of my images has changed and will change for each user which is "C:Documents and Settingsuser.nameMOMGraphicsfilename.bmp". I'm using the following code to set the .Picture property on form load:
Dim ImgPath
ImgPath = "C:Documents and Settings" & Environ("username") & "My DocumentsMOMGraphics"
Me.imgOK1.Picture = ImgPath & "imgButton-OK1_25%.bmp"
Me.imgOK2.Picture = ImgPath & "imgButton-OK2_25%.bmp"
When the form is opened, an error stating that the image located at "C:MOMGraphicsfilename.bmp" cannot be found; once for each image control. Then the form loads and .Picture properties appear to be set correctly as they are displayed fine. I've tried to clear the .Picture properties for both image controls using the properties editor but the original path returns as soon as the property loses focus. Is there a way to programatically set this property and make it stick so the errors are not displayed?
Currently we have a web based order taking/inventory system. Every night they export a .db to an FTP server and every morning I download it (I automated this part, it replaces the older file). I link to this database (using SQLlite3 to ODBC driver) from an Access database for specifically this purpose.
When I originally created it I had to go through every table and create a unique identifier. Unfortunately I chose poorly in some cases. I can't figure out how to get those primary keys changed to the correct ones. I've tried recreating the ODBC connection, tried a new database and new ODBC connection, tried killing the connection waiting a day (for the new .db to download) and recreating the connection and trying it in a new database.I know access doesn't allow you the change the primary key in a linked table.
I've got a report that spits out a barcoded label for items on my inventory. What I'd like to know, is if there is a way in 2010 to allow the user to select where on the page for the label to print.
I found a way that looks like it worked for 2007, but it required enabling ADO, which I am not able to do on my work computer.
I am creating a form and I have some fields I don't want people being able to change so I selected to disable them in the datasheet but now the labels have a strange double text, it looks different than all the other labels and is driving me nuts. when I enable it the font on the label goes back to what the others are but once I change it to disabled it goes funky again. how do I fix this?
View 4 Replies View RelatedI have an unbound form with a combobox which needs to be validated before the control is updated.In the Before Update event I check that the value is valid and need to reset the value back to the previous value if not valid and then change focus to another control.I thought that the following code would work but the selected value remains in the control and I cannot move the focus to another control.
Code:
Private Sub cboYears_BeforeUpdate(Cancel As Integer)
Dim dteNewDate As Date
dteNewDate = DateSerial(Val(Me.cboYears), Month(Me.txtCalendarHeading), 1)
[code]....
Users are viewing a record on a form that gets it's data from a query. I want to make it so that if they edit that record from that form, a last updated field will timestamp the date/time that the record was edited. I added a lastupdated to the source table which of course adds it to the query and so it's on the form.
But whenever i access the form and change something, the lastupdated only shows the time the record was created (which is from a different form based directly on the table). Whenever I edit any other field data in that query based form it changes in the table. Why not the Lastupdated?
I have a button on a form that is hidden, the button has a label over it, both are normally hidden.
When the user presses another button on the form I need these to appear but however I do it, the label appears behing the button.
Ive sent the button to the back and brought the label to the front, both by default are not visable
when the user clicks the button I run the following psuedo code
me.button.visible = true
me.buttonlabel.visible = true
any ideas?
regards
Andy