Search results

  1. P

    New ZoomBox

    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
  2. P

    Overlapping and NonOverlapping dates..

    I added queries to your database. See attached. Philippe
  3. P

    Overlapping and NonOverlapping dates..

    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...
  4. P

    Overlapping and NonOverlapping dates..

    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...
  5. P

    How to geocode an address ?

    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
  6. P

    Counting by range, and grouping by month

    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)...
  7. P

    How to geocode an address ?

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

    Field with mixed text and numbers, need to omit text data

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

    Field with mixed text and numbers, need to omit text data

    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 =...
  10. P

    qry that group dates

    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...
  11. P

    How to geocode an address ?

    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...
  12. P

    How to geocode an address ?

    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...
  13. P

    Comparing data in different rows AND columns?

    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...
  14. P

    parsing out a string using a special character

    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...
  15. P

    Conditional Query To Show Count Of Correct Matches In Data

    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 )...
  16. P

    VBA - SQL Help required

    Hi, could you try this (without simple quote !): asql = "UPDATE TblEmpSch INNER JOIN tnassign ON TblEmpSch.EMPNO = tnassign.token SET TblEmpSch." & week & " = TNASSIGN." & wk asql = asql + " WHERE (((Tnassign." & wk & ")!= 'na' ));" Philippe
  17. P

    Query to exclude returned items?

    Hello, Could you please try this query : SELECT T1.ItemId, T1.Direction, T1.ClientName, T1.DateOfProcess FROM MyTable AS T1 INNER JOIN (SELECT ItemId, Max(DateOfProcess) AS MaxDate FROM MyTable GROUP BY ItemId) AS tMax ON (T1.DateOfProcess = tMax.MaxDate) AND (T1.ItemId...
  18. P

    Towns in a perimeter

    Hi guys, Choose a PostCode and a radius (in km) to display all towns located in this perimeter. The query calculates dynamically the orthodromic distance of each town. See attachment for an example with an extract of UK Postcodes. Enjoy, Philippe
  19. P

    How to add sparklines on an Access report

    Hello, In Access 2007/2010 the sparkline appears only in the print preview mode (format events are firing). Sorry, I don't know the reason why this error occurs. Could you please press on "Compact and Repair" button in Access. Regards, Philippe
  20. P

    Hello All !

    I'm new from France and my name is Philippe. I wrote some applications with Ms Access. I hope to obtain more experiences here because I like Ms Access :). Regards, Philippe
Top Bottom