Recent content by alfred67

Thank you very much

Wow!! Great thinking!! I believe, I understanding what your saying. Going to give it a try alfred67

Hello Thanks for the relpy The code works great accept the the bonus month could change from year to year does this mean I would have to rewrite the code too Alfred67

Hello The date is stored as a Medium Date --13-Oct-10 (d/m/yr) Alfred67

Hello Need help with an iif statement or maybe a Choose statement in a Query or what ever works I have the following data There are 12 pay periods Jan to Dec now some pay period may get a bonus (see below) Pays Jan--$1200,feb--$3000,mar --$2500,apr-$2900,may--$6700,june-$2300,july--$5000...

Hello Need help with my report/query. I have attached my database if someone doesn't mind looking at it. My report Payment Distribution is based on the query Payment Distribution and works good but when I try to get the liquidated damages into the report I get funny answers under the...

I got it to work Thank you all the help Alfred67

Hello I think I have got some of it solved ' Get the first digit of the value in the combo box Dim firstNumber As String firstNumber = Left(Me.Parent.Combo4.Column(1), 1) ' Set the account number combo box Combo21 = CInt(firstNumber) MsgBox "Combo21=" & Combo21 End Sub...

The rowsource is SELECT Accounts.Accountid, Accounts.Accountname FROM Accounts; I will try and give you some background of what I'm trying to do. Please keep in mind, I don't know vba code very well . The user will pick an item number on main form then will fill out the subform for payment...

--yes and so is combobox21 Alfred67

Hello Thank you for the quick relpy but now my combo box 21 is not populating which is on my subform any ideas?? Private Sub Payment_Quantity_Change() ' Get the first digit of the value in the combo box Dim firstNumber As String firstNumber = Left(Me.Parent.Combo4, 1) ' Set the account number...

I have the following code gives me this error "you can't reference a property ormethod for the control unless the control has the focus Private Sub Payment_Quantity_Change() ' Get the first digit of the value in the combo box Dim firstNumber As String firstNumber = Left(Me.Parent.Combo4.Text...

I got it to work with this code: (placed on Change Combo4) ' Get the first digit of the value in the combo box Dim firstNumber As String firstNumber = Left(Combo4.Text, 1) ' Set the account number combo box On Error Resume Next [Form_Item Payment Subform].Combo21.Value = CInt(firstNumber)...

Hello I will relook it. Thanks Alfred67

Hello I just can't get this to work. I'm thinking I should be using the Case funtion and my account box should be a text box. Help!! Please look at my screen shot should explain what I'm trying to do. Alfred67