Search results for query: *

I am trying to Update a table with a user-defined function using this below. DoCmd.RunSQL "UPDATE tblTickler SET tblTickler.DueDate=dhAddWorkDaysA(10,[tblTickler]![SignedForOn],[b]Array(#10/08/2007#,#11/12/2007#))"/b dhAddWorkDaysA is a function taken from MVP/ Access revised from VBA...

I am trying to Update a table with a user-defined function using this below. DoCmd.RunSQL "UPDATE tblTickler SET tblTickler.DueDate=dhAddWorkDaysA(10,[tblTickler]![SignedForOn],Array(#10/08/2007#,#11/12/2007#))" dhAddWorkDaysA is a function taken from MVP/ Access revised from VBA Handbook to...

I was wondering if there is a way of concatenating text at run-time from Data Access Pages. There is not much information on the web on this point. At the controlsource, I have done: 1. Text2: Text1 & Text2 - Errors out 2. Text2: Text1 + Text2 - Errors out as well. Any workarounds other than...

I am trying to retrieve the Tab Color from Excel 2003. I can locate the Tab Color Dialog on Format -> Sheet-> Tab Color...; but when you right click on the tab, the tab color selection does not appear. I have repaired using Detect and Repair, I have reinstalled Office 2003. I do seem to find...

This is what I got so far. Option Explicit Type ProgramData pContract As Long 'pDocumentNumber As Long 'pID As Long 'pName As String 'pCOBJ As Integer 'pCalDRS As Single 'pDRSMatch As Single 'pNHICcert As Single 'pMACMatch As Single End Type Sub WriteShit(iTitle As Integer, iDetail As...

I am trying to error-trap the RefEdit Control so a range must be entered. How do I do that? Thanks!

I have a procedure called Copy Range How it should work is this: On Workbook Close event Call CopyRange and CopyRange2 (Sheet20 & Sheet21 respectively) I have to sheets set to xlveryHidden and having difficulty finding the correct syntax to change the Visible property to visible, if I need...

I have a problem with the proper function. 5 Stars for the one who can me with this. Set X as Variant If ActiveCell.Column = 2 Then Application.ScreenUpdating = False Application.EnableEvents = False Application.Cursor = xlIBeam Set X =...

Thanks for sharing the knowledge of VBA. I am growing more proficient, at least I hope, with this language. Now, I am asking specific scenarios that are not easy to look up in a Microsoft Excel files. Here was my previous scenario: I created a workbook that had 15 sheets of 1 formated Page...

I have a protected VBA project which I wrote code in XL 2000. Please HELP!! I can not determine in the Module1 the compile error, all the code below is in Module1 and the Sub Showdialog is called on the Worksheet Selection change event in the workbook. I have this statement and call ShowDialog...

I have a compile error in Module 1. Here is the code. I have this statement and call ShowDialog (Application.Run) on Worksheet Selection Change Event. Why is this not working? I am at a loss. Thanks for your help. Thanks! George C. Public Sub Decide2() #If VBA6 Then Call...

Is it possible to change thru VBA the Footer Information for a particular page in XL. I looked through the help files, VBA and Google. The HPageBreaks had promise, but it is not working. Basically, my goal is on Print Preview, on Preview, Page 1 to 3 have no footer, however, page 4 thru 8...

I used Conditional Formating on a cell. Set the formula to change format based on value of cell. Here is a procedure with the attentions I want. Sub FormatUnprotected() For Each Item In ActiveCell If Item.Locked = False And IsEmpty(Item.Value) = True Then...

Here is part of my troubled code. I merged G15:I15 (cells -3) together, Cell Name is G15 - Example Private Sub Worksheet_Change(ByVal Target As Range) Dim X As Integer Dim Y As String If ActiveCell.Column = 5 Then For X = 15 To 29 If (Worksheets("Section...

Please look at thread702-499786. Any additional questions, let me know. Thanks! :-(

I have working on Form that uses ComboBoxes for criteria for doing Summary Totals on Professional Type information. I run SQL statements based on criteria. I also used "ALL" as a selection for Summary Information. The SQL statements run great. I finally error-trapped the instance...

I have SQL statement based on comboboxes. Can I pass that SQL Statement as the Recordsource for a Pre-defined Report. Please Reply if it is possible, and if so, please provide a step - by - step method. Thanks in advance!

I have been talking to blanch about my problem. I can not seem to figure this glich. If you have additional questions, let me know. Refering to this thread: thread702-491293 Can you shed some light. I may not been giving blanch enough specific structure information about the Form, queries...

I have a form defaulted as Continuous Forms. Here is my code in back of form. Private Sub Form_AfterUpdate() Dim x1 As String Dim x2 As String Dim strSQL As String If Combo1.Value = "ALL" And Combo2.Value = "ALL" Then strSQL = "SELECT [Personnel Combined...