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...

Hi Moniker, I got an issue with the list box I created by using your code. The database I am working is an audit database. The audits are entered through entry form and can be edited through edit form. I have created the list box in the entry form and entered an audit (say audit1) by...

Thank you so much for all your help. This is what exactly what I want. I have been searching for solution to this for long time. I was looking at google for the solution and I got confused by looking at the code as I have very basci VBA knowledge. But the above listbox example was simple to...

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.

I did repair my database and then imported the form into a new datasbase and then back again. But it still it doesn't work. :(

How do I find the count of controls in a form? I tried giving this in immediate window but it didn't work. ?Forms("Formname").Controls Is there any other to find the number of controls?

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...

Actually if you observe the screen shots you will see questions and default values in the drop downs in "site" tab. But if you look at the "improvements" tab (second scree shot) you don't see any questions. The questions in that tab starts from i=33. As the questions in site tab starts from i=24...

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" &...

Can I store the auto computed field "Value_Range" in a table and populate it in another form. Is this against to any rules?

Awesome! It perfectly works now. I have been going mad with this issue since long time. Do you know why this happened? I have one more question. Earlier to see the backend database I hold the shift key and double click it. But for the new database I just created opens directly without holding...

Hi, My problem is not resolved yet. I thought it would be solved with the mofidied code you gave me but it didn't. Again I am kicked out of the database. May be we can't make a field auto compute in the curent form. Do you have any other suggestions. Thanks,

Thanks for all your help.

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...