Search results

Set qdf = db.QueryDefs("Get_Distinct_Shippers") qdf.Parameters(0) = [Forms]![Form1]![Text3] Set ds = qdf.OpenRecordset ds.MoveLast myarray = ds.GetRows(ds.RecordCount)

Hi Guys I need to read the stuff from the recordet into array. I have tried using GetRows method but it only reads one record. Here is how I am doing Dim myarray As Variant Dim ds As Dao.Recordset Set db = CurrentDb Set qdf = db.QueryDefs("Get_Distinct_Shippers")...

Hey Bob Thanks for the illustration and that's how I created the option box using the wizard. But I did not know how to use the frame control. Initialy the frame Default Value, I set that to -1, that should have been set to the index values that I created earlier. Secondly, I treated the...

Hello Bob I am using 2 option buttons. and I don't see an index property for option button. When I was creating the option box I remeber setting the index but I don't know how to access that value. In the curent sample code above, I don't know how will I associate the values of the option...

Hello Fellowes I have created an option group box with 2 options and in the VBA code I have an if statement if one of the option box is sekected or not like so If Me.optSoft.Value = True Then some thing else nothing end if I am getting this error message: you entered an...

Hello Paul Thanks for the sample code. I added a list box to your code and it displays the cities whenever the cboState1 value changes. This is the best forum ever.

Hi Guys I have a combo box and a list box on my form. Combo Box values are populated form a table and list box values are popluated with the folowing query SELECT Actions.Customer_Scenarios, Reasons.Reason FROM Actions INNER JOIN Reasons ON Actions.Action_ID = Reasons.Reason_ID WHERE...

I am getting the error msg: "You cannot hide the control that has focus" Private Sub Cust_Scen_AfterUpdate() If Me![Cust_Scen] = "3" Then r = ShowHideControls(Me, "lbl15") End If End Sub [Cust_Scen] is the combobox that has 5 options and I have set the label15.tag = lbl15. I want...

Hi Bob In post #3 I don't understand the following highligheted section in the following line If I have 5 controls with a tag of 1 and then I have 3 controls each with tag of 2 and 3 with a tag of 3 and 2 of them are for both 2 and 3 then I can use 23 in that tag. What does 2 & 3...

I have 5 items in a combo box placed on my form. When the user selects diffrerent items, I want to dislplay different controls, like. text boxes and one command button. I want to combine these controls in one group. So I can have 5 groups for 5 different items in a combo box. I tried to put...

My form is uneditable because the query is using Max(). Thanks for the tip, Bob.

I have created a form in design view, the Record Source is based on a query and Data Entry property is set to Yes. I am not able to edit the fields. I am opening the form from the Forms screen. I am using Access 2003 in Citrix enviornment. The query is in parameterized form, the parameters...

Hi Guys I am using Access2003 and trying to import a text file having 14,693,802 records. and I am getting a "Propert Not Found" error message. I check the file and all the data is in the right format and also performed the Repair and compact. Do you guys think by reading the file into a...

Thanks for all the help. I was able to run the above code after modifying the query based on the infomration on the following link http://allenbrowne.com/ser-61.html

I moved the statement as following and the program works fine. DoCmd.RunCommand acCmdSaveRecord DoCmd.OpenQuery ("Qry_Update_E-Mail_Shippers_Ma") Now I am going to improve my sql and use the following code: Set rs = CurrentDb.OpenRecordset(strSql) ', dbOpenDynaset) rs.MoveFirst Do While Not...

Hi I have the code as follow: DoCmd.OpenQuery ("Qry_Update_E-Mail_Shippers_Ma") DoCmd.RunCommand acCmdSaveRecord and it is prompting me to click on the options on Write Conflict Wndow. I started out by updating the field from the form wiht in the code. but it is only doing it for one record.

Thanks for the help guys I used a different solution, I wrote the update query and ran the query as DoCmd.OpenQuery ("My_Qry") After running this query, I refresh the form and get a Write Conflict Box, stating This record has been changed by another user since you started editing it...

Here's how I am doing it Dim rs As recordSet strSql = "SOME SQL" Set rs = CurrentDb.OpenRecordset(strSql) ', dbOpenDynaset) rs.MoveFirst Do While Not rs.EOF If rs!E_Mail_Sent = 0 Then Call FnTestSafeSendEmail() rs.Edit rs!E_Mail_Sent = -1...

I am trying to update a check box on the form from VBA code and it is not happennig. The code is as follows: DoCmd.RunCommand acCmdRefresh DoCmd.SetWarnings False Dim rs As New ADODB.recordSet Dim strSql As String Dim cmd As ADODB.Command Dim Userid As String Dim NewUser As String Dim count As...

Hi Guys I like to know if functions in visual basic in MS Access is similar to VB.Net I am new to MS Access and writing lot of procedural code in VB and like to find out about the difference between VB in MS Access and VB.Net Thanks