Search results

I'm trying to update two fields (NewJF and NewDe) of all records in a subform based on two comboboxes (cmbSenior and cmbDe) Works fine with one field but I cant seem to get the syntax right for the second one. Private Sub UPdate_Click() Dim rst As DAO.Recordset Set rst =...

That thread already had indication. Should every post include indication?

I'm sorry to be so thick. Ok, I think there is still something wrong with my loop. This returns only returns the last item selection of each list Dim i As Variant Dim x As Variant Dim ParkValue As String, ConceptValue As String Dim sqlApprove As String With...

(Updated Example attached) I think I'm getting close but I'm not there yet. If I select 4 values in each of the listboxes, I expect to have 12 new records in my table. This will create 12 records that are empty except for the autonumber. If I comment out the sql statement the Debug statement...

Hi Paul, Thanks for your response. I modified the code as follows but it only tries to insert one record and that record is empty except for the Autonumber. Dim i As Variant Dim x As Variant Dim sqlApprove As String For Each i In Me.ConceptList.ItemsSelected i =...

Yes.. Exactly. 4 records would be created. All combinations

The attached samples is is a modified version of what i found here. I need to create new records into TblFinal that will will include IDs from selections in both listboxes for everything selected If I select "Park 1", Park 3, Concept 1 tblFinal will have 2 new records FinalID= 1 ParkID= 1...

Ah.. Thanks. I didn't know that Works great

I can run this without a problem as a query SELECT tbl_SampleType.SampleTypeID, tbl_SampleType.SampleTypeCode, tbl_SampleType.SampleTypeName, tbl_SampleType.SampleTypeInactive FROM tbl_SampleType WHERE (((tbl_SampleType.SampleTypeInactive)=False) AND ((tbl_SampleType.LoginType) Like "*" &...

I [think] I know option groups cannot be multi-select. I need a way to select 1 to 10 values from another table My plan is to use a multi-select listbox with the Record Source pointing to the other table and concatenating those record IDs into a bound field on my form. So a record on my form...

Paul and Mark. Thank you for your help with this. Because of the Debug.Print statement, I was able to see that I was trying to match the LEFT 6 of the form value against the entire 10 character of the table value instead of the LEFT 6. Thank you again for your help and suggestions Here is the...

Thanks Paul, Do you see anything in my now concatenated form reference that is preventing the LEFT 6 function from working?

Ok I would have never found that. Thanks Paul Things seem to run on one record but I get a Run-Time error: '3021': no current record here intDailyCount = rs!CountOfGroupID If I comment out 'Set rs = Nothing it will run on all records. Is it required? I need to revisit the SQL. It only works...

Ok.. that makes sense. CountofGoupID doesn't need to exist on form does it? (easy to add if it does) Also I think my syntax is still off. I am getting a Run-Time error '3061': Too few parameters. Expected 1 on set rs Set rs = db.OpenRecordset(sqlRoot)

I am trying to count the occurrences of the LEFT 6 characters on my form field. This code throws a "Compile Error: Type mismatch" on intDailyCount =rs I cant seem to figure it out Private Sub Command79_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim intDailyCount As Integer Dim...

Thanks Mark Would the DCount (based on a saved query be more efficient (run faster) than the SQL statement?

I am trying to determine if a DCount function would be more efficient than a query to return the count the items in a table. I got the SQL to work but I am struggling with the correct syntax for the DCount statement because of the joined table. I am able to get this simple function to work but...

I am trying to import an OpenOffice Calc spreadsheet into an MS Access Form The code below works with an MSWord Form I've created. I could use some help converting this to work with .ods files Dim appWord As Object Dim doc As Object Dim strDocName As String Dim blnQuitWord As Boolean Dim...

Thanks Cronk That worked but now each record is replicated many (14) times in the table. Am I using 'Next' incorrectly?

I think I'm close The text I want to process is pasted into me.ctlDropBox For testing purposes I am pasting this into me.ctlDropBox Code is failing at Const strDelimiter as String = me.ctlDropBox (Compile Error: Constant Expression required) Private Sub btnParse_Click() Const strDelimiter As...