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...
[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')")...
Hi
I am lookoing up a record in a table with
s = DLookup("[ShareNumbersTo]", "CertificateDetails", "[ShareNumbersTo]=(Select Max([ShareNumbersTo]) from [CertificateDetails])")
and this works ok to a point but I want the largest share number for only the selected type of share. So If I have...
I recently decided to use input masks on postcode and telephone fields to reduce errors in the data entered. I entered the smae mask in the table field and the form text box. For the postcode I used ">LL09\ 0LL" without the quotes and it works well. I have looked at the tables and everything is...
The user may select one or more values from the list and supply extra information in a notes field. When they move unto a new client all the list is needed again in the combo box. I thought some method of requery would do this but from reading and experimenting I beleive that this is not...
I have a combo box (with value list) on a subform which limits users entering data following an inspection to a list of 8 different types. When a selection is made, the value is removed from the combo box list so that it can't be entered twice at any one inspection. When the user moves on to a...
ok I can. I have been working on a second one today and gave up on getting the subquery to work - I just couldn't get it. I have it also working but it would be useful to see how it is done
InspectionsTestQuery
SELECT Inspections.ApairyNo, Max(Inspections.[Inspection Date]) AS [MaxOfInspection...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.