Search results

  1. M

    CreateRelations Code Not Working

    Hi I currently have database that provides staff briefings, due to use of a Citrix Server and some very slow local connections there is one table in particular [tblcontent] that is only needed on occasion and therefore I create a link to that table as required via VBA. This table then needs...
  2. M

    Using Email Body within Table

    Hi I currently have a system that provides staff briefings on a 24/7 basis. I am now expanding the usage over a much wider area but to users who are also spread across three different, non connected servers as they are regionally located. However there will be a need for certain articles to...
  3. M

    Reseting a COUNTIF Statement

    That works fine as the number of washes is a constant. Thanks for your help, really appreciated!!
  4. M

    Reseting a COUNTIF Statement

    I've attached a quick sample In this the letter W for wash, after the 5th the item is replaced and an R for replacement is entered. The counter (BE) would then need to count from the furthest R from the left each time Thanks
  5. M

    Reseting a COUNTIF Statement

    Hi I think what I'm thinking of is possible but I can't work out how!! I have a worksheet which is tracking the number of times a uniform is washed so it can be replaced when needed. Between columns E:BD the user simply enters the letter W when they have washed their uniform and a simple...
  6. M

    A quick FollowHyperlink Question?

    Hi I have not used the FollowHyperlink method before and have started to use it to open another Access database. The database is one that opens briefly, emails out a report then show a message box and then quits. I have used the following Application.FollowHyperlink "G:\NW REGION OP...
  7. M

    Call Function Variable in Query

    Excellent thanks for your help both The DLookups should be fine as there will only ever be 7 records in the table
  8. M

    Call Function Variable in Query

    Public Function CumbriaImmediate() Dim MILLNESS As Integer Dim LOWHURST As Integer Dim Total As Integer MILLNESS = DLookup("[Immediate]", "tblIncidents", "[Sector]='MILLNESS'") LOWHURST = DLookup("[Immediate]", "tblIncidents", "[Sector]='LOWHURST'") Total = MILLNESS + LOWHURST End Function...
  9. M

    Call Function Variable in Query

    Thanks for your help I have added it like that and it is public in a Module - it now states ambiguous name error
  10. M

    Call Function Variable in Query

    Hi How do I call a variable in a public function into a query. I have an append query and need a variable within a function to append to a field. The function ImmediateCount() has Mill, Low & Total as variable - I want the variable Total to be called Thanks for your help
  11. M

    Problem Concatenating DateDiff Values

    Not sure why the minus occurs but I've actually added in If Statement so if DiffMin is less than 0 it uses the original calculation and that seems to have negated the problem
  12. M

    Problem Concatenating DateDiff Values

    Funny you should say that - just tried 22:00 to 06:26 and its thrown out a minus!
  13. M

    Problem Concatenating DateDiff Values

    DiffMin = (DateDiff("h", [StartTime], [EndTime]) * 60) - DateDiff("n", [StartTime], [EndTime]) Swapped around as you day and works fine now - thanks for your help working this out, seems so simple now
  14. M

    Problem Concatenating DateDiff Values

    Sorry responded as you did - shows data type mismatch with that code - could me the minus number
  15. M

    Problem Concatenating DateDiff Values

    Just stopped the VB Code at the error and say for 22:06 to 06:00 next day it is showing DiffHour as 8 which is right but DiffMin as -6. This is causing the error, is it something to do with the calculation that forms DiffMin
  16. M

    Problem Concatenating DateDiff Values

    If I do the math manually you mean and just type the result it then yes its fine I'm assuming a value must be wrong on the DateDiff Output but it should have been straight forward - appears to be a minus for some reason
  17. M

    Problem Concatenating DateDiff Values

    Thats what I didn't understand - it highlights Me.TotalAdd = [DiffHour] & ":" & [DiffMin] It seems to be certain times (minutes) that stop it working - any ideas
  18. M

    Problem Concatenating DateDiff Values

    Sorry should have been more clear I meant the runtime error message shows something like Runtime Error -2147352567 (80020009) - Not valid for this field Which I assume is an odd number, tends to occur when usinf odd time like 13/12/2010 22:06 to 14/12/2010 06:00 - works fine with most...
  19. M

    Problem Concatenating DateDiff Values

    I have a form for calculating working hours with TOILDate as Date, TimeStart as Date and Time Finish as Date To allow for night shifts, where TimeFinish is less than TimeStart the following vb is used : 'Night Shift Fix - Test' Private Sub Command91_Click() If Me.TimeFinish < Me.TimeStart...
  20. M

    Stop main report repeating

    Set the Can Grow to yes, but still the footer covers the main report not sure why at all
Back
Top Bottom