I am very lost on this topic, so please excuse the beginner questions.
I have successfully installed an SLL certificate on the server, and everything is fine for http://site, http://www.site and https://site, however, I cannot get https://www.site to work. I would be very grateful for any...
I would love to do this, that is, page lists etc, but cannot even find the right search terms, does anyone have any idea? Sorry about the beginners question.
http://lessthandot.com
Adding WHERE may suit:
UPDATE [PRODUCTREGISTER SCP] SET [PRODUCTREGISTER SCP].Manufacturer_Part_Number = Left([PRODUCTREGISTER SCP].[Manufacturer_Part_Number],InStr([manufacturer_part_number],"-")-1)
WHERE InStr([manufacturer_part_number],"-") > 0
Or using WHERE with LIKE
WHERE...
Not ideal, but this may suit:
UPDATE calc_Compare SET AcctName = DLookUp("PatName","dbo_rpt_dat_ARDetail","slid = " & calc_Compare.SLID & " AND eid = " & calc_Compare.EncID & " AND aid = " & calc_Compare.AID)
WHERE AID=267658
Assuming that all fields are numeric.
http://lessthandot.com
Just as a matter of interest, when I added your ribbon to a form by setting the ribbon name property manually, your function ran.
http://lessthandot.com
Some notes.
Dim qdf As QueryDef
Dim tdf As TableDef
Dim db As Database
Set db = CurrentDb
Set tdf = db.TableDefs("Table1")
sSQL = "SELECT * FROM [" & tdf.Name & "]"
If DLookup("Name", "MSysObjects", "Name='TempQry'") = Null Then
CurrentDb.CreateQueryDef "TempQry", sSQL
Else...
Good. It might be safest to add ORDER BY to the inner query:
SELECT t.ID, t.Field1, t.Field2,
(SELECT TOP 1 Field2 FROM Imp q WHERE Field1="Record" AND q.ID>t.ID ORDER BY q.ID) AS Expr1
FROM Imp AS t
WHERE (((t.Field1)<>"Record"));
http://lessthandot.com
You can try:
SELECT t.ID, t.Field1, t.Field2,
(SELECT TOP 1 Field2 FROM Imp q WHERE Field1="Record" AND q.ID>t.ID) AS Expr1
FROM Imp AS t
WHERE (((t.Field1)<>"Record"));
http://lessthandot.com
What does strQueryName contain? You can set a breakpoint and check, or you can use debug.print, which means you can paste into the query window to see what is wrong. Note the addition of square brackets, it is safer when you do not know the query name.
strSQL = "SELECT Count([Employee ID]) AS...
As far as I can see, you have set strFilename to storeID.
This is not enough. You need a proper file name and path for your export.
http://lessthandot.com
You are exporting the query, if the query has not been created, then there is nothing to export. The code I suggested creates a query. If the query does not exist, then there is some other problem. You can set a breakpoint with F9 and when the code stops, use F8 to step through the code. The...
I think you are more likely looking for a way to add your sql to a query:
qname = "MyQuery"
If IsNull(DLookup("Name", "MSysObjects", "Type=5 And Name='" & qname & "'")) Then
CurrentDb.CreateQueryDef qname, ssql2
Else
CurrentDb.QueryDefs(qname).sql = ssql2
End If
strFileName =...
You cannot use TransferSpreadsheet with an SQL string. You can set the sql of a querydef to that string and then export the query, or you can create a recordset and use automation with Excel to copy the recordset to a location in a spreadsheet:
Worksheets("Sheet3").Cells(2, 1).CopyFromRecordset...
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.