Recent content by Sumitdev

Could try: UPDATE Table1 Set Field1 = iif(IsNumeric(Left(Field1, 2)), Mid(Field1, 3), Field1)

Have you tried using DBEngine.CompactDatabase? You will need Microsoft DAO 3.6 Object Library selected as a reference.

You may need to refresh the JET cache using the JRO.JetEngine Object (Microsoft Jet and Replication Objects 2.6 Library) Dim pJE As New JRO.JetEngine pJE.RefreshCache cnn Set pJE = Nothing

You could try the DateDiff function: SELECT X.Date, 'Week ' & ( DateDiff('ww', datevalue('02/01/06'), X.Date) + 1) AS WeekNo FROM X

Not sure about the case as I have never used it before! But could adding an additional iif to check if Value is 0 work? iif(Value (GBP) = 0 AND Cost Of Sale > 0, -100, iif(Value (GBP) = 0 AND Cost Of Sale < 0, 0, iif(Value (GBP) = 0, 0...

You could try using an iif statement: iif(Value (GBP) = 0 AND Cost Of Sale > 0, -100, iif(Value (GBP) = 0 AND Cost Of Sale < 0, 0, (Value (GBP) - Cost Of Sale)/Value (GBP)) * 100 ) ) AS Margin

In Where clause len(Field) = 8 AND not isnumeric(mid(Field,1,2)) AND isnumeric(mid(Field,3))

Think you might have your > and < the wrong way round. Should it be: SELECT AssetCenterImport.[Remarks (Problem)], AssetCenterImport.[Notified On] FROM AssetCenterImport INNER JOIN T_InventoryBilling ON AssetCenterImport.SerialNo = T_InventoryBilling.IB_SerialNumber WHERE (((...

Is there a reason the check is in the LostFocus event? Could you not set the flag in the Change event of the text box ?

Public Sub PrintTableNames() Dim t As DAO.TableDef For Each t In dbCurrent.TableDefs debug.print t.Name Next t Set t = Nothing End Sub Where dbCurrent is your database.

Does using a >= <= rather than Between work? sqlInsurer = "SELECT * FROM Renewals_Extract WHERE PolicyEndDate >= #" & SearchD & "# AND PolicyEndDate <= #" & searchE & "#" or using the DateValue function sqlInsurer = "SELECT * FROM Renewals_Extract WHERE PolicyEndDate BETWEEN DateValue('" &...

Have you tried formatting it 'mm-dd-yyyy'? We have to convert our UK string dates to their US equivalents.

If you do a MoveLast it will populate the recordset and give you the number of records. You will need a check to make sure records exist first (not BOF or EOF).

You would need to put each one in a container i.e. a frame or use the cursor keys to move up and down them rather than tab. Not sure if you can cause them to tab between each other.

Think the sub items start from 1. Does : ClassDesc = lstHist.ListItems(1).Text return what you need?