I have several queries as a source for the final query. There are 2 types of record data in one table with an identifier('A' or 'P') for ea. which I combine into one record (2 queries on the same table with a where criteria on the identifier). In each query I rename to identify and transform for...
...the query to deal with null values not all fields have data and further calculations were required.
just a note i have resolved the issue with a *1 as originally suggested by Skip.
But would be interested to know if something specifically is causing the issue other then what I should of...
Cool thanks PHV ... never even thought of using Val. Just goes to show you when your so fixed on the why(tunnel vision) the most obvious is not so obvious :)
HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>
grrr :) thanks Skip ... never had any issues in all of the db's ive every created before
HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>
Just curious anyone else run into this problem with Access 2010. I have a query that has several calculated fields and 2010 insists on concatenating the fields instead of adding them. funny thing is not all of the calculated fields only some of them and concatenates them with the + . Ive...
try
"C:\Msaccess.exe" "S:\DATA\AcsData.mdb" /x MasterAccessToImport
also check your Access location typically access is stored in another directory not just in the root something like
C:\Program Files\Microsoft Office\Office11 or a variation of
should work fine with the adjustments i update...
how about
strtime = Now()
strSQL = "INSERT INTO tblTime ( ClientID, ClientName, RptProcStart ) " _
& "SELECT " & strUCI & ", " & strCompany & ", " & strtime & ";"
HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>
Sorry posted the wrong first query
SELECT tblProduct.Group, Min(tblProduct.Product) AS Test, Max(tblProduct.Product) AS Test2
FROM tblProduct
GROUP BY tblProduct.Group
HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>
There may be an easier way but 2 queries
SELECT tblProduct.Group, Min(IIf([Product]="HMO",IIf([Product]="PMO","Both",[Product]),[Product])) AS Test, Max(IIf([Product]="HMO",IIf([Product]="PMO","Both",[Product]),[Product])) AS Test2
FROM tblProduct
GROUP BY tblProduct.Group;
and the second...
how about using the FileDateTime() function that is built into access?
HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>
Do you mean this URL? https://www.wvuc.org/wvweb/PNewClaim/NewClaim.aspx
HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>
ohh btw add this code to the excel sheet and make sure in the vbe editor you have referenced the Microsoft Outlook library
HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>
Here is a starting point this code will create a distribution list from an excel sheet. It assumes you have First and last names on the sheet in columns A and B. they must match your contacts or an error will occur and the individual isn't added.
The code is a little clunky because it has to...
built into accees is the ability to document the db ..... so the question is why?
HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>
The short answer is yes but we require additional information how is this data stored? is it in a database or an excel sheet. how do you want your list organized? by manger , group?
HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>
You may find this code useful i was able to achieve the results you are looking for with it on a continuous form
Continous form formatting current record - Link
HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>
...As String
Dim intFileCount As Integer
Dim intFile As Integer
DoCmd.SetWarnings False
CurrentProject.Connection.Execute "delete * from tblSN137"
MyFile = "C:\Users\Import.txt"
intFile = fIsFileDIR(strMyFile)
If intFile = 0 Then
MsgBox ("No...
take a look at TheAceMans solution here http://www.tek-tips.com/viewthread.cfm?qid=1678873
HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>
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.