ciao people
i've been looking around for days, hope u can solve my problem!
my form is made up of several combo boxes
i wanna write a code which after a selection in any combo box sets the properties of the latter as follow: enabled NO and locked YES (just the opposite of the default value)
can u please help me?
ciao people
i've been looking around for days, hope u can solve my problem!
my form is made up of several combo boxes
i wanna write a code which after a selection in any combo box sets the properties of the latter as follow: enabled NO and locked YES (just the opposite of the default value)
can u please help me?
I created some forms in datasheet view. Now I want to change the datasheet properties (background color, text color...): the problem is that the forms I create with the new properties are displayed as I want, but the old forms are displayed with the old properties.
Does it exist a command to open the old forms/subforms with the new properties or do I have to re-create all the old forms?
I have a standard form but i would like it so that when a user clicks on the button from the main menu to open the form it changes the default view which i have set to data entry and change it to not data entry. Also another button to change its record source to a different query. Rather than make lots of different forms that have the same thing but for just different purposes.
I hope that makes sense?
Thanks
VBA syntax for changing various "Field Properties" on an EXISTING table. Specifically, the field properties I'm trying to change are:
Field Size (I want to make this 'Double')
Format (I want this to be 'Standard') and
Decimal (I want this to be '2')
The Data Type is already set as 'Number'.
In this query I have setup I need to get my Dates field into short date format and another field needs to be with 0 decimal points. I take it there is code I have to enter but I cannot find it anywhere.
View 4 Replies View RelatedHi
I have a table that when imported from an external program (sage) has a number based property.
To achieve linkage with other tables, I have to manually change the field fom a number to text.
Is this possible to achieve programmatically.
Much appreciated on any advise.
Regards
Paul
Hi All,
If it is possible to change the format properties of a menu/toolbar could someone please point me in the direction of some guidance/ let me know how to go about it I would appreciate it.
Specifically I'm trying to change the menu bar's /database window's property to match my forms (and company branding).
I've Googled various phrases in both UK and US spellings (to be on the safe side) and searched a few forums (this one included) and cannot find much beyond creating customised menu/tool bars.
Many thanks
I have a field (AR#) that has an "on change" event. This is supposed to check through the database and see if that number has been here before (it's like a job # / serial #). It had always worked fine - now suddenly this field, and this field only, reacts VERY, VERY slowly when you type a number in. You can type the number and wait about 5 seconds for it to show up. When I removed the event - it acted normally so I think it has to do with that. Here's the vb for the event:
Private Sub AR__Change()
Dim db As Database
Dim Rst As DAO.Recordset
Dim strAR As String
Set db = CurrentDb()
strAR = Me.AR_.Text
Set Rst = db.OpenRecordset("repairs", dbOpenDynaset)
Rst.FindFirst "[AR#] = '" & strAR & "'"
If Rst.NoMatch Then
Else
MsgBox ("This value it is already in the system !")
End If
End Sub
Any ideas why it's reacting so slow or what I should look for?
In a nutshell...I want to have a form open with the "form" properties set to "NO" on "AllowEdits","Allowdelete" and "AllowAdditions" and then those same properties set to "Yes" depending on who you are when you open the form.
I think I got a handle on the "who you are" part, I am just not sure about the form properties stuff.
Thank you
Hello, how can I change the "default" textbox properites.
When ever I place a new textbox on the form it has certain properties which I must always change.
For example I want all my textboxes to be flat not sunken and to have a solid border style. Currently the default is sunken and transparent border so I must always change it.
I know how to do it via VBA... just want to do it immediately using default.
I am assuming it's somewhere in Windows Registry?
Thanks
Hi, I would like to change the properties of either the column heads in a combo-box or the column names for tables. I don't think there's any way to adjust the column head properties, and I'm doubtful there's a way to change the column caption properties.
Some of my column titles are long, and I'd like to be able to word wrap them essentially. Anyone know if this is possible? Thanks.
I am using an active x control that when you right click on it, it automatically pops up an "About" box showing information about the control. I wouldn't object to this, but I need to use the right mouse down event for another purpose in my program. So far I have discovered that the code I put in the the event works, but only after the "About" box pops up. Is there anyway to cancel or prevent the popup? The reason that I need the right mouse down event is because is that I am already using the left mouse double click event, and I can't use the left mouse down event because then it always fires before the left mouse double click event. This control doesn't have any single click events. Ideas?
View 2 Replies View RelatedI am developing a form whereby the user types a single character or a sequence of characters into textbox and a query WHERE clause is compiled upon each character being entered.
The query is the Row Source of a listbox which I requery upon each change in the text box contents.
In the Change event I cannot access the new contents of the textbox until focus moves to another control and then back to the textbox. This is not how I expect this event to work.
Currently I have an issue where on of the fields in a userForm will not update. I have tracked down the problem to an update Event procedure
Code:
Private Sub txtRate_Change()
Me.txtSales = Me.txtRate * Me.txtPages
Me.txtGST = Me.txtSales * 0.1
Me.txtTotal_Inv = Me.txtSales + Me.txtGST
End Sub
The idea being, when you update the rate, the Sales/Revenue figure will update based on that rate. For a while this seemed to work fine. but recently , it just will not allow me to update the field txtRate, I cannot understand why. I have now replaced the _Change() event for a _LostFocus() event. but I am not sure that is as reliable, and I am still puzzled / worried as to why the _Change event will not work.I'm on Access 2013, win 7 , using a front end db connected to the back end using linked tables.
I'm working on a bit of code that before a combobox is changed checks with the user to confirm that they want the change to go ahead, if yes a recorded is added to a table
This all work fine apart from if no is selected - I am trying to get the combobox to undo the change however when you select no the msgbox pops up fine but the combobox does not undo
Can't see where I'm going wrong I thought undo worked for comboboxes
Code:
' Displays a message box with the yes and no options.
Response = MsgBox(prompt:="Do you wish to change the status of this Job? 'Yes' or 'No'.", Buttons:=vbYesNo)
' If Yes button selected
If Response = vbYes Then
[Code] .....
I have a combo box with three columns, the first one is the bound one, the second is text in English, and the third is text in Spanish. Currently when the form is open, both the English and Spanish texts columns are visible. What I would like to do is set up a command button on a different form that will open the form with just the English showing in the combo boxes, and another button for Spanish. I've tried the following code which opens the form, but the combo box is disabled altogether.
DoCmd.OpenForm "frmEditar", acNormal, "", "", , acNormal
DoCmd.SetProperty "niv_gest", acPropertyColumnWidths, "0;1;1"
What am I missing?
when the Form Property "selectionchange" kicks in?I am trying to use this to run an event procedure. I have a sub form datasheet which contains a date, and when the selection is changed from one record to another in the sub form, I would like to run an event procedure that updates certain fields on the main form, according to the date.I have put msgbox in the event procedure, but it doesn't trigger when the selection is changed? or am I misunderstanding the property?I have also tried got focus, lostfocus, beforeupdate, but they only trigger when the record is changed, not just when the selection is changed.
View 4 Replies View RelatedI currently use code in a module and code on each form in the on_load event to change the icon of the form.. the code i use is as follows..
in a module:
Code:
Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const WM_SETICON = &H80
Private Const IMAGE_ICON = 1
Private Const LR_LOADFROMFILE = &H10
Private Const SM_CXSMICON As Long = 49
Private Const SM_CYSMICON As Long = 50
[Code] ....
And on each form on load:
Code:
SetFormIcon Me.hWnd, "k: est directoryhsicon.ico"
What I am wondering is would it be possible to store the .ico file within the DB file itself (i know access can store bitmaps) and reference the .ico in the form load event code?
Overtime the db file will probably move to its own dedicated storage so using a direct reference to the file wont work..
I have tried the following but get an error (it tries to reference the .ico file as to being in the root directory of the db file)
Code:
SetFormIcon Me.hWnd, Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name))) & "hsicon.ico"
Had a combobox so the user could choose between two data entry formats.They don't want the combobox, they want the user to enter data into one or the other textbox - and that choice to trigger the format.Two groups of text box - group 1 has a single text box - group 2 has three text box. When the user selects a text box and types the first character into it. This triggers locking out the other group choice and enables the <Validate and Edit> command button.
If the user backs out (deletes) the text in a text box.It basically makes both groups available again and it disables the <Validate and Edit> command button.Basically, if the text box Change event counts a character, it changes the text box Tag to "Bust". Then it calls a common routine that checks both text boxes.The choice won't take place if the textbox gets focus. It changes if a text box has 1 or more character typed in.
Code:
Sub WhosOnFirst()
' two groups of Required field - if one textbox in a group has a character entered first
' that group becomes the Format - enables the <Validate and Accept> button that will take the next setp
[code]...
I made an On Change Procedure on a textbox, so everytime I input a character, it will trigger the Me.Requery.
However, after that the event, the mouse cursor moved to the beginning of other field. I want it to stay at the end of the textbox so I can enter a full word, how do I do that?
Code:
Private Sub Text73_Change()
ProjectSearch = Me.Text73
Me.Filter = "[Project Name] Like " & Chr(34) & ProjectSearch & "*" & Chr(34)
Me.FilterOn=True
Me.Requery
End Sub
I am trying to write a code that will execute at the change even of the combobox/Listbox and when a character is typed in it then all the data from "DocumentType" field whose first character matches with the first character typed in Combo/Listbox will be stored in it.
The following code doesn't work:
Private Sub ComboBox4_Change()
Dim strText, strFind As String
strText = Me.ComboBox4.Text
If Len(Trim(strText)) > 0 Then
strFind = "BarcodeRef like '" & strText & "*'"
End If
[Code] .....
I am using a continuous form and would like my users to be able to change a field background color to a light red by double-clicking. The user would also be able to change it back to white by double-clicking again.
The code I am using (below) changes the field background color for all records. I need my code to only change the field color of the current record and cannot seem to find how to do that. The field name is [System_CurrentStatus].
Private Sub System_CurrentStatus_DblClick(Cancel As Integer)
If Me.System_CurrentStatus.Backcolor = vbWhite Then
Me.System_CurrentStatus.Backcolor = RGB(234, 154, 160)
ElseIf Me.System_CurrentStatus.Backcolor = RGB(234, 154, 160) Then
Me.System_CurrentStatus.Backcolor = vbwhite
End If
End Sub
I have a tabbed form in a navigation form with a chart on it. The records source of the chart is a query. The query runs when you click the tab and takes a long time. I changed the Row Source of chart to "" and that eliminates the query running on form load. I've read many posts on changing that row source when a command button is clicked. I tried
Code:
Me!Suspend_Trending_Dashboard![chart].RecordSource = suspend_trend_CHART
in the onclick event of the command button. This doesn't work. I've tried many variations of the syntax. I don't know if I have to tell the query to run after the row source is changed.
On a side note, the query criteria is based on beginning and end dates entered into text boxes on the form. This all works if the query loads when the form is opened.
I have an invoice program that allows users to select a shipping cost option as a toggle in a frame object. When selected "On_Click", the percentage is used to calculate the shipping of the items ordered. Occasionally users will then add additional items, re-click the toggle, but nothing happens. If they click another shipping percentage (there are 3) it calculates. If they click the original percentage now,(essentially CHANGING the frame.value) the calculation occurs fine. It almost seems that the On_Click event toggle in the frame is acting like an On_Change or AfterUpdate.
I have tried the mouse-down event, but this doesn't change the percentage.
I know I could add a separate "Calculate" button after the user makes the shipping selection, but someone is bound to forget to hit it.
Any ideas on how to make the frame On_Click work if the value doesn't change in doing so?
I have a database with two forms. The Products form with the account line item subform embedded in it.
In the Accounts Credited field of the Products form, I have a VB statement (below) under the "on change" event. It forces two fields in the accounts table to be changed. The Accounts Credited field is a combo box with a value list of "savings"; "Checking"; "PayPal"; etc. Every time you change that value, it should force a change in the AccountName field's text property to match it, and it should also change the AccountID field's value to the corresponding number.
The AccountName and AccountID fields are a part of the Accounts Table. AccountID links the Accounts Table and the AccountLineItem table. However I can't get the VB Code to run when the different "accounts credited" options are selected. It should change the account ID value in the subform.
It's a class project and the professor has told us that everyone in the class receive an "incomplete" for the course unless the database works by wednesday. She has not given us the tools to do what we need to do though, any help would be greatly appreciated.
Thanks!
code for "on Change" event:
Private Sub AccountCredited_Change()
If (Field_Accounts!AccountName.Text = "Savings") Then
Field_Accounts!AccountID.Value = 1
End If
If (Field_AccountName.Text = "Checking") Then
Field_AccountID.Value = 2
End If
If (Field_AccountName.Text = "PayPal") Then
Field_AccountID.Value = 3
End If
If (Field_AccountName.Text = "Building") Then
Field_AccountID.Value = 4
End If
If (Field_AccountName.Text = "Animal Control") Then
Field_AccountID.Value = 5
End If
End Sub