Search results

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"...

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

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...

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...

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"...

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"...

Hi Rich, Thanks, your right, Post RESOLVED, Many thanks

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...

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

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 =...

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

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...

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...

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...

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...

Hi all. I have a Combobox on a form, What I am trying to do is before the record is saved check that a selection has been made. What I have so far is:- Private Sub Command17_Click() On Error GoTo Err_Command17_Click DoCmd.Save If IsNull(Combo2) Then MsgBox "You must select a supplier, If...

Hi Len. I think your right in what you say. So I have create a popup for the supplier which work fine. Thanks for looking at this for me. Two pairs of eyes are always better than one. Many thanks Dereck.

Hi Len, Your not so far "warwick" to "Coventry" If the rain has not reach you yet, it's on it's way. Thanks you for your reply. I have added a new table named "tblJob_numbers" so I now have a query of :- SELECT tbljobs.job_no, tbljob_number.job_no, tblsuppliers.ID, suppliers.company FROM...

Hi all, I have 2 tables, "tblJob" and "tblSupplers" "tblJob" fields: job_no, suppler_no1, supplier_no2, supplier_no3. "tblSuppers" fields: supplier_id, company_name. Each job can have more than one suppler. I am trying to write a query that will do the following. If job_no 1 has one supplier...

Hi All, I am trying to assign function keys to perform actions on a form and sub form. On the "frmMainClient" form I have an OnLoad event: Private Sub Form_Load() Me.KeyPreview = True End Sub and a OnKeyDown event: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case...