Search results

  1. T

    extract medium time

    THANKS GUYS!!! sorry about the explanation...and YES i need to lable better.Me.Time_in = Format(Me.Text59, "Medium Time") THAT DID EXACTLY WHAT I NEEDED!!!
  2. T

    extract medium time

    text59 is formated as general date. when the user dbl clicks the field i would like the value to go to "time_in" and formated as medium time.Me.Time_in = Me.Text59 Format (Me.Text59 = "medium time") The code brings the date and time to the time_in field...even with the time_in field formated as...
  3. T

    auto fill time gets 12/31/1899

    time in is manually inputted..my issue only happens when the time out crosses the date line... example time in 8:30pm and time out is 12:30am the following day... since most of the calls are 4 hours...instead of typing in 12:30am...the user double clicks time out and the vba adds 4 hours to...
  4. T

    auto fill time gets 12/31/1899

    when the user double clicks in the "time out" field 4 hours are added from the value in the time in field to create the value in time out...both fields format are at medium time but i still get 12/31/1899 infront of the time. the vba i use on dblclick time out is any suggestions???
  5. T

    Delete querie maximum value

    changed my sql...now the query will find duplicates and delete the duplicate record with the higher id DELETE tblevent.id, * FROM tblevent WHERE (((tblevent.id) In (SELECT Max([id]) FROM [Tblevent] GROUP BY [F1], [F1] HAVING Count([f1]) > 1)));
  6. T

    Delete querie maximum value

    i have a delete querry that finds duplicate records but im having trouble adapting the SQL to delete the record with the highest id. DELETE tblevent.F1, tblevent.ID, tblevent.F2, tblevent.* FROM tblevent WHERE (((tblevent.F1) In (SELECT [F1] FROM [tblevent] As Tmp GROUP BY [F1] HAVING Count(*)>1...
  7. T

    me.filter

    if the user selects rear projection from the combobox on my form;then, the form filters the "screen" column displaying all screens except the one with the id of 1...what am i doing wrong with my code? Private Sub Combo9_AfterUpdate() If Me.Combo9 = "REAR PROJECT" Then Me.Filter = "SCREEN =>1"...
  8. T

    dsum or not

    a better explanation... im attempting to get this.... DATE: 3/2/13 TOTAL HOUR:7 REG HOUR:7 OT HOUR:0 RUN HOUR:14.5 EMPLOYEEgreg DATE: 3/2/13 TOTAL HOUR:7.5 REG HOUR:1 OT HOUR:6.5 RUN HOUR:14.5 EMPLOYEEgreg But all I get is this.... DATE: 3/2/13 TOTAL HOUR:7 REG HOUR:8 OT HOUR:6.5 RUN HOUR:14.5...
  9. T

    dsum or not

    In my query im using dsum to accumulate hours worked for a shift.If the employee has three entries in one day and during entry 2 goes into overtime(accumulated over 8 hours) dsum isn’t helping me run: DSum("[event regular hours]","[tblbuild]","[tblbuild]![stagehand] = " & [tblbuild]![stagehand]...
  10. T

    record already exists on subform

    worked like a champ. thanks again. i am new and im learning by jumping in the fire... LTotal = DCount("[name]", "tblpersonoptions", "[name] = Forms![frmmodbuild]![name]") If LTotal <> 0 Then MsgBox "THAT NAME ALREADY EXISTS" Else DoCmd.OpenForm "LOGIN DIALOG", acNormal DoCmd.Close acForm...
  11. T

    record already exists on subform

    The form is a data entry form and the subform lists all names. both forms come from the same table but are not linked on the form.
  12. T

    record already exists on subform

    i bracketed around the field names. still no luck. once the button is pushed the record still gets created even if the name matches a name in the subform.
  13. T

    record already exists on subform

    I have a field on my data entry form called NAME. I also have a field on an attached subform called NAME. If a name is entered on the data entry form that matches a name on the subform I display a message. The VBA for the button is as followedIf Me.[FRMMODBUILDSUB].Form.NAME = Me.NAME Then...
  14. T

    list all records not just first

    DoCmd.SendObject acSendReport, "tblbuildHD", acFormatPDF, "m.s@minpm.gov ; edith.ga@minsmn.gov", , , "MCC PAYROLL BY HAND", "Here is this weeks payroll sorted by HAND. This PDF is an attachment and is also located in your dropbox/payroll by name/end of payroll FINAL VERSION" & Me.edith the...
  15. T

    docmd export pdf MUST BE LANDSCAPE

    the report is set to landscape; however, when i run this code it always exports a pdf in portrait...any suggestions DoCmd.OutputTo acOutputReport, "ISSUE ELECTRICAL AREA SORT", "PDFFormat(*.pdf)", "C:\DOCUMENTS AND SETTINGS\TREVOR TIBURZI\MY DOCUMENTS\Dropbox\MCC...
  16. T

    record id in message

    i would like to add the record id to the message that populates after update. Private Sub AREA2_AfterUpdate() Me.DESCRIPTION = "please see diagram (me.id)" i would like description to display please see diagram 234
  17. T

    docmd pdf

    This part of the code -& Report![rptMATRIX]![eventname]!Value & ".pdf", is not making the control source the file name. i was wondering if anyone had a suggestion to change the code in any way
  18. T

    docmd pdf

    im trying to use a control source with-in a report to create the file name when exported DoCmd.OutputTo acOutputReport, "rptMATRIX", "PDFFormat(*.pdf)", "D:\users\Stagehands\Dropbox\stagehand payroll\billing\" & Report![rptMATRIX]![eventname]!Value & ".pdf", False, "", , acExportQualityPrint
  19. T

    multipule iif

    I cant get this statement to show 0 at the end of the day...sorry im new and lack terms Ms1: IIf([accum] Between 10.5 And 24,IIf([nomeal]=0 And [meal2]=0,"2",IIf([nomeal]=-1 And [meal2]=0,"1",IIf([nomeal]=0 And [meal2]=-1,"2","0")))) i have tried the end 0 with and without""
  20. T

    list box selection

    Me.lst0.Value = 11 that worked....thanks man
Back
Top Bottom