Search results

D'oh and was going in the wrng place Function English(ByVal N As Currency) As String Const Thousand = 1000@ Const Million = Thousand * Thousand Const Billion = Thousand * Million Const Trillion = Thousand * Billion If (N = 0@) Then English = "zero": Exit Function Dim Buf As String: If (N < 0@)...

forgot to fix the cent, here you go Function English(ByVal N As Currency) As String Const Thousand = 1000@ Const Million = Thousand * Thousand Const Billion = Thousand * Million Const Trillion = Thousand * Billion If (N = 0@) Then English = "zero": Exit Function Dim Buf As String: If (N < 0@)...

try this Function English(ByVal N As Currency) As String Const Thousand = 1000@ Const Million = Thousand * Thousand Const Billion = Thousand * Million Const Trillion = Thousand * Billion If (N = 0@) Then English = "zero": Exit Function Dim Buf As String: If (N < 0@) Then Buf = "negative "...

You can open another program and send key strokes to that program, but I belive MS has stopped "sendkeys" function in 2007+. I used Excel 2003 to post jnls to another program.

Use the Debug.Print option to review your output In VBA code - clt + G (opens Imeddiate window) Change this line strInsertStatements(whileCounter) = insertString & s.Fields("CommunityName") & insertString2 & "80000001-1354637734" & insertString2 & "Charge for unit #" & r.Fields("LotUnit...

Hi, Try this Sub test2() Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("Select * from BarCode where ref_no = 10000000 ") If rs.EOF And rs.BOF Then MsgBox "Not On Table" Else MsgBox "Record on Table" End If rs.Close End Sub

Thanks for the quick responce, but it didn't resolve it. It seems to be this line that's the issue With Forms![Input_Form].[PivotChart].PivotTable.activeview I got the standalone pivotTable to work, but it's having the subform seems to be the issue. Thanks Denis

Hi, I'm trying to set the fields on a pivotchart view embedded on a tab form, but I just can't get the code right. Form Name : [Input_Form] Tab Name: [Reports] Chart Name: [PivotChart] Any help will be appreciated. Denis :banghead: Sub Test() Dim fset1, fset2, fset3 As Object...