Search results for query: *

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?

You could add a module and declare your class as a global variable or set it as Public in frmMain referencing it from frmNames as frmMain.Human. Both ways should mean you wouldn't need to use the HandTo procedure.

Is it the .TextRTF or the .Text you are setting?

You could use the LCase function Do Until rs.EOF Combo1.AddItem lcase(rs!TEST) rs.MoveNext Loop

Add a timer control to your form and set its enabled property to False or it will always flash. You will need to set the timer interval too. In the Timer event of the control put your flash code: Private Sub Timer1_Timer() Static blnFlash As Boolean If blnFlash Then...

Have you tried adding brackets around your first join select E.CTRL_DIRECT, MI.DESC as MI_DESC, FC.DESC as FC_DESC from ( table_E e left outer join table_MI MI on E.MOT_INC_MENU = MI.CODE ) left outer join table_FC FC on E.FREC_CTRL = FC.CODE where CUE = 'XXX'