Recent content by tamus121

Well I got this to work, used vbCrlf between the fields, set the number of columns to 4 and adjusted the size of the columns by setting the cell sizes seem to have got the errors out and it does what I want Dim rs As DAO.Recordset Dim txt As String Dim new_range As Range Dim oRow As Row...

I am exporting data from Access (2010) to Word and at the end of the Word document I use the following code segment to place records from a table WarePlantNonCom. The records are placed in Word but I can't find a way to line up the data from the 4 fields under their headings. If a value has...

The table along with the rest of the tables forms etc are supposed to be in a designated secure location. I could place and link the table in the way you suggest but it will not meet company policy. If I go down the route of asking for permissions for this exception I would probably ask to move...

Have been thinking about this but still haven't a clue how to do it so can't show any progress. I have a database (database 1) which isn't always accessable to users who need excess to the data in one of the tables so a link to the table isn't possible. I can store a copy of the required table...

but you are so right Ace Man the parentheses for the WHERE clause were wrong for 1st and 2nd SQL. the simple one worked and then I fixed the parentheses for the 1st and both it and the simple one were working. So had another look at the parentheses for the 2nd and came up with this strSQL =...

Ok thanks for your posts I changed the report name to PH4Part1Rpt - yes I misseed that having the table and report with the same name, but it doesn't make any difference to trying to update the SQL of the query. The user selects one option button (from two) inside the frame. I used message box...

I want to change the SQL of my query depending on the users choice but this isn't happening. From what I read qdf.SQL = strSQL should be doing this. Any help to get me over this would be welcome. tamus121 Dim stDocName As String stDocName = "PH4Part1" 'Check to see that Ending Date is...

Still not getting this to work Is there anthing wrong with this in the query for DateInsp =IIf([Forms]![PH4Part1Report]![Option31]=True,>=[Forms]![PH4Part1Report]![FirstDateTxt] And <=[Forms]![PH4Part1Report]![LastDateTxt],<[Forms]![PH4Part1Report]![FirstDateTxt] And...

I change the Me.Visisble = False and store the name of the form in a Global variable and then change it back to True when I close Stplabels. I have five of these commands on "CustomerRecords" all operating in the same way and having the same problem. Private Sub LabelCmd_Click() On Error GoTo...

I have a form which when opened has two text boxes populated from the previous form, e.g =[Forms]![CustomerRecords]![RegNo] and =DLookUp("FullName","LoginDetailsQuery") The form has a few other text boxes for data entry by the user and a date picker. If the user enters the date first the...

ok I am thinking maybe I have got it with this SELECT CustomerRecordsQuery.Name, CustomerRecordsQuery.RegNo, CustomerRecordsQuery.AreaCode, CustomerRecordsQuery.Address1, CustomerRecordsQuery.Address2, CustomerRecordsQuery.Address3, CustomerRecordsQuery.Town, CustomerRecordsQuery.County...

First, sorry for the mistake in my first line, it should be I have a table of clients and a table of their inspetion details. I will check inspections details for clients between two selected dates with the report based on this query. Now first the SQL of the query (the left side is a query on...

I have a table of clients and a table of their inspetion details. I check inspections details between two select details with the report based on a query. I want to allow users to select an option button and the query to list of clients who haven't been inspected during the selected dates. I'm...

Thanks PH Works as I wanted

[Type] is the name of the field in CertificateDetails So I have tried ShareType = "O" or other depending on option selected by user s = DLookup("[ShareNumbersTo]", "CertificateDetails", "[ShareNumbersTo]=(Select Max([ShareNumbersTo]) from [CertificateDetails] WHERE [Type] = 'ShareType')")...