Recent content by dcjones

  1. D

    IF statement

    Hi, This is great. all fixed and working and 100% down to you for giving up your time to point me in the right direction. I followed what you told me and I found that the combo box was enpty (Null) so I changed the code to :- Private Sub Command58_Click() ' COMMENT If the "completion_date"...
  2. D

    IF statement

    Hi selena, Your a star. Now I can follow and check the code as I create it. I knew there must be some way of doing this. What can I say, only many thanks. Kind regards
  3. D

    IF statement

    Hi selena, , Thanks for coming back to me so quickly. I am new to this has you can tell from my basic questions, but a I am learning fast (I think). I was woundering how you can follow what is happening in the code when it is run. How do I break into the code, Many thanks for your time...
  4. D

    IF statement

    Hi Again. back with the same problem. Hi Thanks for your reply, another pair of eyes works wonders. I made changes to your points and now I have: - All I am trying to do is check to see if the "frmCompletion_date" field has data, if so check if "combo104" is "No" or "Yes". If "No" print the...
  5. D

    IF statement

    Hi Thanks for your reply, another pair of eyes works wonders. I made changes to your points and now I have: - Private Sub Command58_Click() If IsNull(completion_date) Then DoCmd.OpenForm "frmCompletedDate" Exit Sub End If If (Combo54) = "No" Then DoCmd.OpenReport "rptInvoice"...
  6. D

    IF statement

    Hi all, I have the following code: - Private Sub Command58_Click() ' COMMENT If the "completion_date" is null open form "frmCompletion_date' If IsNull(completion_date) Then DoCmd.OpenForm "frmCompletedDate" 'COMMENT if the "completion_date" has date then check if "Combo54 is set to "yes"...
  7. D

    Closing pop up forms after loading report

    Hi Rich, Thanks, your right, Post RESOLVED, Many thanks
  8. D

    Closing pop up forms after loading report

    Hi All. I have look through the forum but can not find a solution to my problem. I have a popup form set to "popup" and "modal" "frmJobBookOut" which passes data to a query "qryJobBookOut". In the query there is a field called "job_no" and I have set the criteria to reference the...
  9. D

    Mismatch type error

    Hi Paul. Well spotted, thanks you were right. Many tahnks again. Kind regards
  10. D

    Mismatch type error

    Hi All, I have the following code behind a command button on a form. When the button is clicked it calls a query "qrtJobBookout" and should display all the record that match the job number in form "frmJobBook". But it displays a error of "type mismatch". form name = frmJobBook, Button name =...
  11. D

    Continuous list popup

    Hi all, Is it possible to have a Continuous form that is a pop up. Any ideas. Many thanks
  12. D

    Check to see if an item from a combobox has been selected

    Hi All. O.K. maybe not RESOLVED. I have now used "DoCmd.RunCommand.acCommandSaveRecord" but when the script is run it gives an error "Argument not optional". The complete code looks like this:- Private Sub Command12_Click() On Error GoTo Err_Command17_Click If...
  13. D

    Check to see if an item from a combobox has been selected

    Hi POST RESOLVED I used the following code:- Private Sub Command17_Click() On Error GoTo Err_Command17_Click If IsNull(frmSupplierCombo.Form.Combo2) Then MsgBox "You must select a supplier. If the job is In House, select In House." Exit Sub Else DoCmd.Save DoCmd.Close...
  14. D

    Check to see if an item from a combobox has been selected

    Hi POST RESOLVED I used the following code:- Private Sub Command17_Click() On Error GoTo Err_Command17_Click If IsNull(frmSupplierCombo.Form.Combo2) Then MsgBox "You must select a supplier. If the job is In House, select In House." Exit Sub Else DoCmd.Save DoCmd.Close...
  15. D

    Check to see if an item from a combobox has been selected

    Hi. I have tried to use your reply (thanks you for that). I did forget to say that the combobox is on a subform. This is what I have so far:- Private Sub Command17_Click() On Error GoTo Err_Command17_Click DoCmd.GoToControl Forms![frmSupplierCombo]![Combo2] If IsNull(Combo2) Then MsgBox...
Back
Top Bottom