Search results for query: *

Thanks CognosChicago and JerryKlmns, I shall create query as you both suggest. However I have one question... In the creation of a form based on a query or queries shall I be able to edit all the data from the three tables on the form? I need to be able to update all three tables directly from...

I have three Access 2000 tables linked by one key field named JobNo. In Access I was able to create a form which displayed all the fields from each table and was able to scroll through the records for each JobNo. However I am having difficulty trying doing the same with a form created in VB6. I...

Thanks HarleyQuinn I shall be using variables throughout my project. So what you posted... strsql = "UPDATE QPStatusNEW SET QPStatus.DocPresent = True WHERE QPStatus.JobNo='" & yourVariable & "'" is exactly what I need. I used the hard coding in my initial post just to get started and now I have...

Thanks Chris, Your code was just what I needed. I did have to change it a little as I was getting a "type mismatch" error. So here is the final coding... Private Sub Command4_Click() Dim Conn As ADODB.Connection Dim strsql As String Set Conn = New ADODB.Connection Conn.Open...

Can anyone help me code the following. I have picked up help on various bits of this in other forums but would like to see an example of coding from start through to finish so I am posting on this forum which may be more appropriate since it deals with databases... From a Control Button on a VB6...

Hi Remou and PHV, Remou... The Excel sheet holds data like Job Numbers (in cell J:6 example 222555), Part Numbers (B:4 example P123456) and a object/signature in cell J:48 to say the Test to which this document refers has been completed and is signed off which completes the document. It is this...

...Data Source=C:\000-QControlProgram\JobsFolder\222222-LPI.xls" _ & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";" 'strsql = "SELECT * FROM [sheet1$:6,10]" strsql = "SELECT LPIcomplete FROM [Examination$] Where JobNo=222222" rs.Open strsql, cn Debug.Print rs.Fields(0) End Sub rs.Open...

Remou I had to leave project over the last week however I am back at it. The latest I have now is when connecting to the spreadsheet I get the following error... "No value given for one or more required parameters". Any thoughts? Thanks

Hi Remou, That looks like the answer but as I said earlier it will be a few hours before I can try it. Just one question though... Do I need to insert the cell location 6:10 (F10) into the sheet name like so... [Eamination$, 6:10] Thanks again ( I feel a star coming on)

Hi Remou, Your correct. I didn't realise the excel sheet was named "Examination" and not "Sheet1". I shall rename this but it will be in about 7 hours from now. My project is at home and I am working just now. I am sure I will now be able to connect to sheet and if so would like to move to last...

Sorry Remou I am getting the following errors... strsql = "SELECT * FROM [sheet1$6:10]" this gives error "Too many fields" strsql = "SELECT * FROM [sheet1$:6,10]" this gives error "JET db can't find object '[sheet1$:6,10]' And I am not sure how the following last two lines will place cell...

...Data Source=C:\000-QCProgram\JobsFolder\222222-LPI.xls" _ & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";" strsql = "SELECT * FROM [sheet1$6:10]" It would be great to get this Access to Excel code working first and then to go about reversing it for Excel to Access. I shall need both...

Sorry Remou, Yes it would appear to be best to work from Excel. I wasn't too sure how to go about this initially. Thanks again.

Is it possible to put the above code (corrected) on or behind the excel spreadsheet? I have never programmed using VB Excel.

..._ & "C:\000-QualityControlProgram\QC5.mdb" & "C:\000-QCProgram\JobsFolder\222222-LPI.xls" _ & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";" strsql = "SELECT * FROM [sheet1$:6,10]" rs.Open strsql, cn Debug.Print rs.Fields(0) End Sub Any further help is very much appreciated Thanks again

Can anyone show me how to code the following... I wish to take the value of a cell in an Excel spreadsheet and have it placed in a field of an Access Table? In some instances the cell would hold the word/text "closed" to indicate the excel document was complete. So here I would want this...

Thanks Bob, I shall try RS.Filter when I return to machine which will probably be tomorrow (Saturday). Seasons Greetings to ALL!

Thanks Ron Repp, That's what I was looking for. However now I see the program running I have just hit on another requirement. I need to have the code bound or connected to the data on the form. i.e. when I move from one record with a different customer displayed in the customer field the the...

I wish to populate a ListBox1 with the field values of a Field named "Specification" from an Access Table named "CustomerSpecs". The next part I have already set up and works to transfer selections from ListBox1 over to ListBox2. The last part is, for me more difficult, where I need to create a...

...for that Job Number and a second click on Purchase Order automatically loads up the PO (an adobe file). The line... adobeFile = Dir(Path & "*PO*") 'for any occurence of PO. allows the file to be named in any way as long as it has PO included. This then would load up any file with PO in its...