Search results

Hi, I need some help in refering a subform control in a parent form. I have below line in Parent form which is called as "frm_edit_front_end", Subform is called as "sub_frm_appeal". **** Call load_appeal_data("frm_edit_front_end", "sub_frm_appeal") **** I have below code in the Module...

What is an easy way of saving all the items selected in a multi-select list box, especially so that I can revisit that form to see what I had selected earlier. I have been searching for code in google and got no luck. I would appreciate it if anyone can provide me the VBA code. When I create...

Hi, Below is the code for after update event of a list box. Private Sub multiple_AfterUpdate() If multiple = "Declining values exist and are not explained" Then Form("pt" & 20).value = "10" End If End Sub The above code doesn't work. When I try to step into the code the value for...

Hi, I am planning to take VBA classes for redesigning couple of databases. I have basic knowledge in VBA. But I am looking for Advanced VBA coaching. Can anyone suggest me some good VBA trainers around Chicago area. Thanks in advance.

Hi, I was trying to add new controls on a form and I am getting a message saying that "Access can not create any more controls on this form. Please rename the form to add more controls". I get this message always and then I was able to add new controls by importing the form to a new database...

Hi, I have the below code in my form load. If scorecard = "Appraiser" Then Call Project_Type_AfterUpdate End If **************************************************** Private Sub Project_Type_AfterUpdate() If Not IsNull(Project_Type) Then If Project_Type = "disputes" Then...

I have a form with 9 tabs. Each tab has a multiple questions and drop downs. I was trying to add new questions to a tab. Below is the code for it. code: For x = 1 To TotQues Form("Drop" & x).Visible = False Form("Drop" & x).TabStop = False Form("Q" & x).value = Null Form("Pt" &...

I have the following code in aform, Private Sub Sales_App_Value_AfterUpdate() Dim X As double X = (me.comp1_AdjPrice + me.comp2_AdjPrice + me.comp3_AdjPrice + me.comp4_AdjPrice + me.comp5_AdjPrice + me.comp6_AdjPrice) / 6.0 If me.Sales_App_Value >= 2 * X / 3 And me.Sales_App_Value <= X Then...