Search results

  1. S

    Days remaining in the month calculation

    Hi There I'm trying to work out how to find the remaining days left in a month, I have this formula in Excel which works but when I transfer it to access it brings up an error. =IF(R9C12="","",DAY(DATE(YEAR(R9C12),MONTH(R9C12)+1,0))-DAY(R9C12)) Any help would be appreciated.
  2. S

    Using a combo box to filter datasheet in split form

    Hi There I have a form with a combo box in split form which I want to use to filter the results in my datasheet at the bottom of my split form. I have the following code but when I make a selection it filters to a new record??? Private Sub CmbEmployeeSelector_AfterUpdate() Me.Filter =...
  3. S

    Custom ribbon action button not working with vba

    Hi There I am new to XML and have created a custom ribbon with an action button as a test before I create my own specific tabs and buttons, using the XML below: <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui"> <ribbon startFromScratch="false"> <tabs> <tab...
  4. S

    Open Report using criteria in a field column

    SOLVED: Open Report using criteria in a field column Hi There, I have the following code which opens a report from a button in a form. Private Sub CmbBookOrder_Click() Set rsTrans = Me.Inventory_Transactions_Orders_subform.Form.Recordset Set rsBDate =...
  5. S

    lookup recordset with criteria

    Hi There I have the below code that is looking through a recordset on an subform for the value 0 which is located in a column of a lookup field in the subform. The code works when looking up a zero or a specific number. Private Sub CmbPickOrder_Click() Set rsTrans =...
  6. S

    Set Focus after message box closes

    Hi All I have the following code which opens a message box: Private Sub Pick_Ship_Quantity_AfterUpdate() Dim CurrentStock As Long Dim SelectedStock As Long CurrentStock = Me.Transaction_Item.Column(2) SelectedStock = Me.Pick_Ship_Quantity If Me.Dirty = True Then Me.Dirty = False If...
  7. S

    Refer to feilds in subform within an If statement

    Hi All I am trying to run a message box using an If statement which is activated in a subform however the If statement is looking at a field in a separate subform, both subforms are within a main form. The vba I have at the moment is below: Private Sub Pick_Ship_Quantity_GotFocus()...
  8. S

    Finally Joined :)

    Hello All I have been meaning to join this site for a while as some of the posts have helped me massively :) Thank you and keep up the good work. Fellow lover of Access!
Top Bottom