Search results

Move the tables to the Backend and then link to them using the External data tab

You could use the After Update Event on the Password text box to call the macro

Unfortunately its fixed. I am trying to import historical forms into a new database so have got about 500 of these to do, hence the desire to automate it as much as possible. I think the issue will only apply to table 1 which has one cell in column 1 with 4 cells in column 2. All other...

Thanks Anarkadian I have come up with the following code to try this out before I embark on the full project. Public Function ExtractWordData() Dim appWord As Word.Application Dim doc As Word.Document Dim fd As FileDialog Dim strDocName As String Dim blnQuitWord As...

Hi All Not sure if this is possible but I am trying to extract data from a word document to set up a database. Basically I am trying to capture data from completed forms, similar to the sample attached, the actual blank form is 20 pages long and once completed can be as many as 30 pages, or...

Hi All Not sure if this is possible but I am trying to extract data from a word document to set up a database. Basically I am trying to capture data from completed forms, similar to the sample attached, the actual blank form is 20 pages long and once completed can be as many as 30 pages, or...

I've added an extra step to say if the Department Name already exists, otherwise this seems to work fine:- Private Sub Command7_Click() txtnewdept.SetFocus If txtnewdept.Text = "" Then Err = Err + 1 MsgBox "Please Enter a Department", vbOKOnly, "Error"...

Sorry - my fault If DCount("[Department]", "tblDepartments", "[Department] = '" & txtnewdept & "'") = 0 Then strSQL = "INSERT INTO tblDepartments (Department) VALUES(txtnewdept)" End If

If DCount("[Department]", "tblDepartments", "'" & txtnewdept & "'") = 0 Then strSQL = "INSERT INTO tblDepartments (Department) VALUES(txtnewdept)" End If

You said you want a button on your form which you want to send the e-mail The call function (see post #4) should be put in the 'On Click' Sub of this button. The module (see post #2) needs to be set up as a separate VBA module. In the VBA window, click the Tools Tab and References. This...

You will also need to make sure that the Microsoft Outlook 14.0 Object Library is checked in the Tools/References section of the VBA Window.

You will need to call the function and pass the necessary variables to it, such as: SendEMail pvTo, Null, Null, pvSubj, pvBody, fromText, pvFile All variables need to be passed hence the 'Null' for CC and BCC, replace from text with your details if you want to sign off the e-mail...

This function will do this:- Public Function SendEMail(ToAddress, CCAddress, BCCAddress, Subject, Message, From, Attach) 'open Outlook, attach zip folder or file, send e-mail Dim appOutLook As Outlook.Application Dim MailOutLook As Outlook.MailItem Set appOutLook =...

Change the Query type to "Select" and go to Datasheet View. Does it show any records - If Yes then you must have some locks or data conflicts which prevent you from appending records to the table. If No - remove the 'Is Null' criteria and view in Datasheet view again. If all records from Table...

Your Append Query needs to have the two tables reference ("DiveCrew" and "Order"). Set the Query as an AppendQuery to add the records to the "DiveCrew" Table. Your Query will need to have the following fields from table "Order": InvoiceNumber, CustomerName, FishName, Quantity These are to...

If you are using Access 2007 or later there is a built in pop-up calendar which you can call if the control is formatted as a date. In the propert sheet under Format Tab set <format> to a date format and <Show Date Picker> to "For dates". Dave

Set up your query with linked tables "DiveCrew" and "Order" linked by "InvoiceNumber" and set the join parameter to All records in "Order" Only Matched Records in "DiveCrew".Then set criteria for [DiveCrew].[InvoiceNumber] Is NullThat should do it.Dave

I am not sure what you are trying to achieve. What is the Criteria [I #] you input into the query, I assume this is the Invoice ID fromthe form, in which case you would be better constructibng the query SQL code within a VBA procedure and using the Invoice ID from the form as criteria for the...

I assume the RePaint command in your Macro refers to a form called 'Audit fees main form'. From your description I think you need to ReQuery / Refresh the form where your text box 'WorkLoad' is located. This form should be open. How do you invoke the Macro to carry out this function, if it...

Try adding a ReQuery to the macro to refresh the data after you have updated it