Recent content by Les Blair

  1. L

    Check for blank Date

    Thanks, that helped and it worked as you new it would.
  2. L

    Check for blank Date

    Is it possible to check for a blank date. everytime I try to check if it is null it tells me an object is required. Dim dteDate As Date dteDate = [Forms]![frmSBDAmendments].[Received Date] dteDate = GetBusinessDate(dteDate, 0, icFuture) dteDate = AdjustDate(dteDate...
  3. L

    Simple SubForm Question.......

    Thanks, that did it. It now works on all the forms......
  4. L

    Simple SubForm Question.......

    One more question on Simple Subform Question....... That worked great! Now the same subform is used on a different form. is there an easy way to tell which form is open. Say, could I use a 'If' statement and if so how. I used the following and it gave me the following results. If...
  5. L

    Simple SubForm Question.......

    Thanks, I have learn a lot today. Today was a great day!
  6. L

    Simple SubForm Question.......

    I have a Form it is called frmSoldCase. On this form is a subform called frmRevisions. I have a Date field that I need to put some code behind to check the date: Dim dteDate As Date 'MsgBox "Received Date = " & [Received Date] dteDate = [Forms]![frmRevisions].[Received Date]...
  7. L

    Check Time for calculation

    I have a field that is a Time using Date/Time and Short Time. if the user enters a time prior to 2pm I use date routine 1 if the user enters a time after 2pm I use date routine 2. Can someone tell how I can compare the time. I have looked in the help and all I can find is examples for date. I...
  8. L

    RunSQL for Update

    Thank you that worked and helped
  9. L

    RunSQL for Update

    I sorry I left that out of the last thread. Dim SQL As String If (Me.txtSoldCase) = "Sold" Then SQL = "UPDATE tblSoldCase " & _ "SET tblSoldCase.[Case Name] = tblProspect.[Case Name], tblSoldCase.[Admin Letter App/Decl] = tblProspect.[Admin Leffer App/Decl]" &...
  10. L

    RunSQL for Update

    Can someone please tell me where I went wrong with the following: SQL = "UPDATE tblSoldCase " & _ "SET tblSoldCase.[Case Name] = tblProspect.[Case Name], tblSoldCase.[Admin Letter App/Decl] = tblProspect.[Admin Leffer App/Decl]" & _ "Where (((tblProspects.[Case Track...
  11. L

    Database size problem

    Thanks to all of you. I found my problem. I had a query that was to append a single record but somehow it started appending the entire table which did not take long to grow. This has been fixed and should not happen again. Again thank to all.
  12. L

    Database size problem

    Thanks, I will try that
  13. L

    Database size problem

    I have a Database that was only 15mb I have not increased the number of records but I have increased some of the code. it now is up to 171mb and when I do a Compact and Repair it does nothing. Is there any other way to get it back to a reasonable size other that delete code.
  14. L

    Return to Main Menu.....Problem

    Yes, I will work on that and post it as soon as possible.
  15. L

    Return to Main Menu.....Problem

    Thank you all, I will
Back
Top Bottom