Search results

How can I add a new record on a subform? I use the code: Forms!Customer!NotesQuery!Customer = Forms!Customer!NAME but this just overrights the customer field on the notesQuery form Thank you in advance Mike

Thank you Dave, I have now found a solution, simply rem the line: myemail.Send and add the line: myemail.Display in the same section. Just a note for anybody else that wants to do the same thing. Kind regards Mike

Thank you Dave but that only displays the Report, after this the Report is converted into a PDF with acrobat Distiller then attached to an email. But I want the email box to preview before it just sends it so I can enter a Subject title before it sends also I can check the attachment just to be...

I am having problems with my code to send emails, the code works fine but I want to be able to edit the email before it sends but I cannot see how to do it :( here is a copy of my code: 'DoCmd.Save acForm, "Quotation" DoCmd.OpenReport "QuotationEmail", acNormal, "", "

I seem to have made a big mistake when designing my database, I have a stock file which I set an index on which was autonumber but when I updated the stock from an excel import the key field used to reference the table updated via auto number. I should of used partnum :( So now I altered the...

Haha thank you Col yes that works fine :) but now I seem to have a problem with the import code :( DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel7, _ "StockImport", "g:\Database\part number details.xls", True worked the first time but now I get an error :( The file...

Thank you Col, now I need to delete all the data in a table but not the whole table. 'DoCmd.DeleteObject acTable, "StockImport" How can I do that? Thank you in advance Mike

I have imported data to a new table now I want to export all the records to another table with different field names. How can I do this in code without having to design a form that will copy all records over using a query? Thank you very much Mike

Thank you Dave that worked :)

Can anyone tell me a way to trace a varible while I use Access? this database is so big and I just can't see where the value to this field is being input from :( Kind regards Mike

Thank you Rich, So I added: DoCmd.RunSQL "UPDATE CustomerExport" & _ "SET CustomerExport.NewCustomer = TRUE" & _ "WHERE CustomerExport.NewCustomer = FALSE;" but I now get a syntax error in UPDATE statement Run time error 3144 :( what have I done wrong? Regards Mike

Using the DoCmd.OpenQuery command how can I now select each record in turn and set the value of [NewCustomer] to True? Kind regards Mike

Can anyone help me, I want to copy a set of records and put it in a query and before that I want to set a status copied bit to true. Kind regards Mike

Thank you very much :) Thank you Fizzio that works 100% perfect. your one cool programmer :) Thank you again Mike My final code for reference: Private Sub Check22_AfterUpdate() Dim x, y As Boolean Dim rst As DAO.Recordset 'DAO must be referenced in Tools/References in code window...

It would be nice to auto close when all records are complete yes :) To close the work order I just set the field in the main form called "Complete" to true. The only problem I have is when I run this branch of if statements above they only check the current subform record selected and not all...

I have a problem. I have a main form for a work order database then a sub form with trays that are filled and going out to outworkers. I want to close the job when all the trays have a complete date but I do not know how to select the next record on the subform to check until end of records...

Thank you Thank you Jerry That worked 100% fine thanks very much Mike

I have a problem, hope someone can help. I have the following code: If Forms![stores].RecordCount = 0 Then MsgBox "There are no Jobs to complete yet", vbOKOnly Else If Me!Printme = "PRINTED" Then Me!Box38.BackColor = 255 ' Otherwise, display as a green...

Record Count on a Form Create a text box and enter this as the value: =[CurrentRecord] & " of " & Count(*) That should do the trick for you Mike

Fixed it Ok everyone I done it :) If anyone else wants to use this idea please feel free the trick was a Do..While Dim x, p, q As Integer Dim trays As Integer x = 0 trays = Forms!workorderdetails!NumberofTrays Forms!workorderdetails!TrayDetails1.SetFocus...