Recent content by philben

One another text ZoomBox (bound field or not, rich text or not) : resizable zoomable characters left / No. of characters read only or read/write regards, Philippe

I added queries to your database. See attached. Philippe

it's possible to improve the performance of the first query (qroverlapping) : SELECT T.Id, T.surName, T.commDate, T.ceaseDate FROM overlapping AS T, overlapping AS T2 WHERE (T.commDate<=[t2].[ceaseDate] AND T.ceaseDate>=[t2].[commdate] AND T.ID<>[T2].[ID]) GROUP BY T.Id, T.surName...

Hi, Overlapping query (qrOverlapping) : SELECT DISTINCT T.* FROM overlapping AS T, overlapping AS T2 WHERE (T.commDate<=t2.commdate And T.ceaseDate>=t2.commdate And T.ID<>T2.ID) Or (T.commDate Between t2.commdate And t2.ceaseDate And T.ID<>T2.ID) Or (T.ceaseDate Between...

Hi, Thanks for your kind message. This need references to this links because they are doctype declarations. You will find an explanation here (http://www.w3.org/QA/2002/04/valid-dtd-list.html) hope this helps. Best regards, Philippe

Hi, Two solutions out of others. First : Pivot query TRANSFORM Count(*) AS ProjRisk SELECT MonthName(Month([ScopeReviewDate]),True) AS ProjMonth FROM ProjEvalTrackingScoreCheck AS T WHERE Year([ScopeReviewDate])=2011 GROUP BY MonthName(Month([ScopeReviewDate]),True)...

Hi, please see attached a quick example of how to display the geocoding result on a map. Philippe

Hi, No problem, we've had the same idea :) According to the fastest VBA function, the winner seems to be DCrake. Regards, Philippe

A small correction in above code : Public Function StripChars(AnyString As String) As String '/Read the incoming string from right to left 1 character at a time '/If it comes accross a number it knows to exit the loop '/It then returns the numeric part of the string. Dim x As Long For x =...

Hi, I have a solution but it's complex, slow and not conventional... In one word it's DIY ! Add this function in a VBA Module: Public Function TheRange(ByVal dDate As Date, ByVal lValue As Long) As Long On Error GoTo ErrTag Dim oDb As DAO.Database Dim oRs As DAO.Recordset...

Hi, In fact, it's the problem with geocoding. First level of verification : - If accuracy is not good ie "GEOMETRIC_CENTER" or "APPROXIMATE" then it's necessary to go one step further in the verification. - But remember that a good accuracy is not synonymous of a good geocoding... Second...

Hi, VBA function : Option Compare Database Option Explicit 'Public Type containing the geocoding of the postal address Public Type tGeocodeResult dLatitude As Double dLongitude As Double sRetAddress As String sAccuracy As String sStatus As String End Type...

Hello, Maybe, one another solution : SELECT T1.CprNr, T1.InstId, T1.IndmDato, T2.UdmDato FROM MyTable T1 INNER JOIN MyTable T2 ON T1.InstId = T2.InstId AND T1.CprNr = T2.CprNr WHERE Int(T2.IndmDato-T1.UdmDato)=1 AND T1.Id<>T2.Id; I assumed that the name of the...

Hello, One solution is : Add this function in a VBA module : Public Function GetField(ByVal Data As Variant, ByVal FieldNumber As Integer) As String On Error Resume Next GetField = Split(Data, "*")(FieldNumber - 1) End Function The query : SELECT GetField([data],1) AS...

Unless I'm wrong, this query should help you : SELECT T3.PLATE, Count(*)/2 AS MATCHES FROM ( SELECT T1.PLATE FROM Target AS T1 INNER JOIN Target AS T2 ON T1.PLATE = T2.PLATE WHERE T1.COLOR<>T2.COLOR AND T1.UTENSIL<>T2.UTENSIL GROUP BY T1.PLATE, T1.COLOR, T1.UTENSIL )...