I am dynamically trying to set a control default value. I have the code below in the On Load event of the form. I get an error msg that says "Run-time error '2467': The expression you entered refers to an object that is closed or doesn't exist."
Forms(mainform)("Dyn_" & Trim(str(Project_ID)) & "_SubFrmTab03" & PT_Suffix & "_Approval").Controls("Groupid").DefaultValue = "=Forms!" & mainform & ".ClaimInfoGroupID"
I 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"
Okay, me again, on my DAP (Data Access Page) I have a piece of JavaScript that tells my page onload compare 2 dates. It's straight forward and all and my code works. That's actually where the problem is... When access loads my DAP up it builds the page, executes the javascript and THEN populates my fields with all the records. So my comparison javascript will always execute BEFORE the data loads into my DAP...
<body language=”javascript” onload=”colorBox();”>
<SCRIPT LANGUAGE=”javascript”>
Function colorBox(){
If (Quarter1DueDateP1 >= Quarter1CompleteddateP1){
Box3.{background-color:Green;}
}
Elseif (Quarter1CompleteddateP1>=Quarter1DueDateP1){
Box3.{background-color:Red;}
}
Else {
Box3.{background-color:Yellow;}
}
}
I have a form with an onload event that apparently only runs when it wants to. I've checked the onload property on the form and it is set to event procedure. Went through the code on the event and everything looks good. When i mark it in break mode and step through it it runs fine. When I take the marks off it sometimes works and sometimes doesn't.
View 6 Replies View RelatedThis behavior is driving me crazy!
I have a data access page with an onload event for the window. All I want to do is go to a new record, update a date field with today's date and save the record. Here is the code:
<SCRIPT language=vbscript event=onload for=window>
<!--
window.MSODSC.CurrentSection.DataPage.NewRecord
request_date.value=DateValue(Now)
MSODSC.DataPages(0).Save()
-->
</SCRIPT>
When I load the page, I can see the date pop into the request_date field, but then it disappears. I made sure the value update code works by putting it on a different object's click event. The problem is when it's in the onload event for the window.
Is there something I'm missing about this event that prevents this from working? Thanks!
The image below describes the scope of the issue.
The function is called upon in the onLoad event of frmMain.
I have some code on a button that opens a form and changes the caption of a label:
Code:
DoCmd.OpenForm "frmRepair", , , , , , "CancelNo"
Forms![frmRepair].Form.[lblmain].Caption = "Missing Parts"
This code works well and frmRepair opens with the updated label caption. The original value was "Return/repair Information"
A few other things need to change on frmRepair depending on this caption as well as the values of some other fields, so I use the following code in the onload event (although I later tried the onopen even)
Code:
'Disable labels button if there is no RMA and the item is a repair
MsgBox Me.lblmain.Caption
If Me.lblmain.Caption = "Return/Repair Information" Then
Me.txtRMA.SetFocus
MsgBox Me.txtRMA.Text
[Code] ....
However, I cannot get this to work as the "if" statement always returns "Return/Repair information" and not the modified caption. The message box confirms that this is the case.
I suspect that this has to do with the point in time that the frmRepair loads or opens and when my code enters the modified values.
code doesn't wants to set the control default value
View 5 Replies View RelatedHow I might use a value selected by a user on a database opening menu (which remains open), as a default value for records created programmatically in other tables?
I wonder if I need to write a function to repeat the value - but I cannot see how to use a form value outside of the form's own code. Some of my existing code inserts values into tables using SQL converted into VBA and I do not really want to start fiddling with that - I would rather for now use the default value of the table for the field.
My variable which will change depending upon which set of records a user is working on is a string "FullAccession".
When a user creates records in a table called tblGroups, I need the string "FullAccession" to be the default value in the tblGroups.FullAccession field. A unique integer in the tblGroups is "GroupNo". "GroupNo" and "FullAccession" are joined in a unique index for tblGroups. There is a separate PK autonumber.
I am having an issue setting an instantiated forms' control. I am having RemDate ("Date") and RemTime ("Time") TextBox; so far the date textbox shows 1/1/1988 12:00 AM (the visible value is the time only) and the Time textbox doesn't show anything.
Code:
Set frm = New Form_ReminderAssigneesFrm
frm.RecordSource = "Select * from ReminderAssignees Where RemID = " & Parent.RemID
frm.RemID.DefaultValue = Parent.RemID
With SetRS(frm.RecordSource)
If Not .EOF Then
frm.RemDate.DefaultValue = FormatDateTime(.Fields("RemDate"), vbShortDate)
[Code] ....
Visual Studio IDE environment and I have been working with Access VBA for almost a year now.
I am very used to generating my form controls in runtime and being able to create some cool user interface interactions by being able to say btnExample.OnClick += MyDynamicClickFunction
MyDynamicClickFunction(Object sender, EventArgs e).... code
Any way to assign functions to the events of already made controls on a form. Probably during the load event?
Now I have found that there are many ways to replicate Visual Studio's features by accessing User32 and replicating them
I am updating a value in an unbound control on an unbound form. When the value in the control is changed I want a sequence of code to execute. Specifically changing the record source of a subform and refreshing it.
The problem I have is that when the value of the unbound text box is control is changed (I am using a button to change the value as a test) the after update event on the text box does not do anything.
I did a simple test using a button to change the value in the text box and in the afterupdate event of the text box asked it to output the value of the textbox to a message box as shown below.
The problem is this does not work, nothing happens. If I tab out of the text box or change the value with the keyboard however the msgbox appears. Just not via a vba change.
Code:
Private Sub Prod_ID_AfterUpdate()
Dim pid As String
pid = Me.Prod_ID
MsgBox pid
End Sub
Private Sub Button_Test_Click()
Me.Prod_ID.SetFocus
Me.Prod_ID = "TEST"
End Sub
Access 2007
In a table I have 2 fields:
D1 , Date/Time , DefaultValue: Date()
D2 , Date/Time , DefaultValue: Date()+1
In a form (bounded to this table) I have, of course, 2 controls bounded to this fields:
txtD1 and txtD2
If the user change the value in txtD1 (using the Date picker) I like to change the DefaultValue for txtD1 to the new date and the DefaultValue for txtD2 to the new date + 1 day. Something like this:
Code:
Private Sub txtD1_AfterUpdate()
Me.txtD1.DefaultValue = Me.txtD1
Me.txtD2.DefaultValue = Me.txtD1 + 1 day
End Sub
I tried whatever crossed my mind... with the same "result" : #Name?
My Regional settings:
Short date format: dd.MM.yyyy
Date separator: Dot
Simple: 05.12.2013
We have an ActiveX grid control, 10Tec iGrid, written in VB6. One of its method, Group, used to group rows, raises the AfterAutoGroupRowCreated event so the developer can adjust the look and contents of every group row created during the automatic process of grouping.
When our ActiveX grid is hosted on an MS Access form and we call the Group method while populating the grid in the form's Open event, the AfterAutoGroupRowCreated event isn't triggered. But this event definitely works as expected in other development environments, and even in MS Access if we call Group from the form's Load event.
Is it a well know issue of MS Access, when any events of ActiveX controls aren't triggered while "executing" the Open event
On my form i have a control called WeekDate (this is always the start of the week (monday), below i have a subform (sbfrmWorksheetDetails) contained in a tab control (tabWeek) with 5 pages for each day of the week, i have written a select case statement in the onchange event for tabWeek which selects records based on the day of the week (so = WeekDate for Monday, +1 for Tuesday, +2 for Wednesday etc), this works great, i have also put a bit of code in the same onchange event that makes the default value for a new record for the field WorkDayDate in the subform +1 and +2 etc. this works great for existing records, each new line in the subform puts the right date in, however this seems to cock up when clicking on a new tab that doesn't have a record in..Here's the code.
Private Sub tabWeek_Change()
Select Case tabWeek
Case 0 'Monday
Forms!WeeklyWorksheet!sbfrmWorksheetDetails.Form.R ecordSource = "SELECT * FROM tblWorksheetDetails WHERE (((tblWorksheetDetails.WorkDayDate) = [Forms]![WeeklyWorksheet]![WorksheetDate]))"
Forms!WeeklyWorksheet!sbfrmWorksheetDetails.Form!W orkDayDate.DefaultValue = SQLDate(Me.WorksheetDate)
Case 1 'Tuesday
Same as above but WorksheetDate+ 1 for both select and default value.
Case 2 'Wednesday
Same but +2 etc.
End Select
End Sub
the SQLDate is some code that converts the american US date formatting to UK formatting. i'm not sure if that's the problem, but i'll post that anyway:
Function SQLDate(vDate As Variant) As String
If IsDate(vDate) Then
SQLDate = "#" & Format$(vDate, "dd/mm/yyyy") & "#"
End If
End Function
I can't quite work out what screwing this up upon adding a new record.
I have a few forms in my database that I used the wizard to design. They work as intended however the default control that access uses is horrible. Is there a way to modify the control of these forms without building them from scratch? I'm afraid I wouldn't be able to build it from scratch and have it function as it does now.
View 6 Replies View RelatedI have an inventory entry form with 3 controls on it. One is the area counted, the second is an item number, and the third is the amount counted. When the form is opened it prompts for the area counted which then changes the default value so you don't have to enter it again. The problem is that it works for a number but not alpha-numberic or alpha.
The table is set as text and I've tried setting the inputbox to string and still can't seem to avoid the #Name? error.
Any direction would be appreciated. I tried looking up a past thread but couldn't find anything this specific.
hello all! I use this site very frequently when I run into issues and I can always find an answer... until today, hehe.
anyway, here is my problem. in my application, on the main form if you will, are 4 tab/page controls. when the user uses the navigation buttons on the bottom (these are access' form navigation buttons), regardless of which tab they were on, i want it to automatticly display the first tab, first. i have figured out that it is on the form_onactivate event that i must do this, however i cannot seem to get that one tab to the be the default. i have tried using the page index, set focus, i have tried calling a control on that tab/page, refreshing the form, simulating a user "click"... needless to say i am fresh out of ideas. :confused:
any suggestions would be greatly appreciated. thank you for all the help you have given in the past too :)
Hi All,
I created an Event Procedure on the After Update event for a control in a continuous form. Basically, if certain conditions are met, I want it to disable another control. It works perfectly, except it is disabling the controls for all the records instead of just that record.
Does anyone know how to get it to just update that record? I've been researching and cannot figure it out!
Thanks in advance for any and all help :)
Krysti
On a form I have a pair of controls, Price and PriceInUSD. If the user enters a new value into the Price field, then its AfterUpdate event fires, which looks up the relevant exchange rate and updates the PriceInUSD control accordingly. That all works fine.
Now in some circumstances (if a checkbox elsewhere on the form is checked), I generate a modal dialog box asking the user to confirm that the Price value is correct, or enter a new value.
That modal dialogue box's Enter button's On Click event then updates the Price control before closing the dialog. That bit works fine, too - but I had thought that this update of the Price control would fire its AfterUpdate event - but it doesn't.
So, my basic question is : do Control events only fire in response to user input, and not to programmed changes ?
I have a date control and on the Click event I run the following code. Trouble is the Date Control stops working, ie you can't change the date after one click ?
CODE.
Private Sub Calendar7_Click()
weekofyeartxt.Value = DatePart("ww", Calendar7.Value)
End Sub
Table1 has field (% Completed this Period) that may contain a value, or may be NULL for each entry, depending on how much work was performed that period. The records are sorted by date.
Form1 has a textbox that basically keeps a running tally of "% Completed to Date" by summing the "% Completed this Period" for the current period and all previous periods. So, my Control Source for the textbox is the DSum(...) function.
The problem is this: If I am looking at the first record and there is a 0 (null) value for "% Completed this Period," (i.e. No work was completed that period), I want to display 0 on Form1. However, Access just displays nothing - a blank textbox. I tried making a default value, but nothing will show up since I already have a Control Source set for that field. If I take the DSum function out of the Control Source, then the 0 will show up. But, obviously that defeats the whole purpose of the textbox. I guess I'm trying to figure out how to display the DSum value IF it is something other than 0, BUT IF IT IS 0, then I want 0 to be displayed. Any help would be appreciated.
I would like to be able to put an if expression in the default control of a tx box.
I would like to say
if txtA = 0 then [Forms]![frmNewAppointment]![OrderTime] else [Forms]![frmAppointmentTreatmentItems]![TextA]+[Forms]![frmNewAppointment]![OrderTime]
Is it possible and am i close to doing it mysel?
I have 3 tables, tblClients, tblClientDetails, and tblSchedulingDetails.
I have a field in tblClientDetails to contain the client number from tblClients, and I have two fields in tblSchedulingDetails to contain the client number and the client details number.
I then created a form that holds most of the fields for all of the tables mentioned above to enter new client names, new client address info, and basic client scheduling info.
Now, I have set the default values using the property sheet in design view for the following:
ClientNum > ClientNum_tblClientDetails and
ClientNum > ClientNum_tblSchedulingDetails and
ClientDetailsNum > ClientDetailsNum_tblSchedulingDetails
I promise this is not a riddle...
Here's the quandary - ClientNum_tblClientDetails is autofilling from tblClients, and ClientDetailsNum_tblSchedulingDetails is autofilling from tblClientDetails, but ClientNum_tblSchedulingDetails is not autofilling in spite of the fact that the default value is set with =[ClientNum].
I then created a modal dialogue form with the fields from tblClients and tblClientDetails with a command button that opens another modal that contains the fields from tblSchedulingDetails, set the appropriate default values, and the ClientNum_tblSchedulingDetails autofills as needed.
The question at hand is, why do I have to use modal dialogue forms to perform this action and cannot do it in one single form?
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 have validation on a checkbox on a sub form and after the validation fails and the cancel = true is executed in the before update event, I am unable to select the checkbox on the form. Access will not allow the selection. my subform is called frmContactType so hopefully I am referencing it correctly:
Me.frmContactType.Form.chkAssociate