Recent content by Elijahnzl

Dear thechazm As someone who has very little knowledge in Access VBA I do not understand some of what you are asking in regards to Class and/or Types. I am using a Table: tbl_Timesheet. The form, frm_Timesheet, is based on this table. The Table has fields: Start, Finish, Worked. On the form...

This is the code I am using Private Sub cmd_Stop_Click() Finish.Value = Time() 'Finish.Enabled = False Worked.SetFocus Worked.Value = DateDiff("n", [Start], [Finish]) End Sub Private Sub Command10_Click() Start.Value = Time() 'Start.Enabled =...

Thanks for your reply Pat. Below is thecode that almost doea what I need it to do. The problem now is that I get a run-time error code 3021 because when I rs.MoveNext the record has no data. I figure that I there is something wrong however I do not know what it is. Can someone please help me...

Hi All I have a Form = Form1 I have a Subform = Sub1 In Sub1 I have four Fields: Name, Work, Mobile, Email The Name field is always populated. In Form1 I have a Memo field which I need to populate by concatenating the four Fields from Sub1. All clear so far? The Project: an...

No worries thanks - I found the solution here: http://bytes.com/topic/access/answers/195855-how-sort-combo-box Awesome!

Hi All Here is my code that works apart from the fact when a new record is added it gets added at the bottom of the combo box. How can I sort the combobox please? Private Sub cboSearch_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Family_ID] = "...

Thanks All for your help. BigHappyDaddy your last solved it - thanks very much. I know I have more questions looming but I will see if I can get things working myself. Thanks all once again.

I AM getting the following error: Run-time error 3021 - No Current Record Here si my code... you can see that I added a rs.movenext for Select Child. Otherwise I get a child's name appearing twice in populated field. Any thoughts please? Do While Not rs.EOF Select Case...

Hi BigHappy Daddy and pr2-eugin Thanks for your help - HEAPS! I submit my code and ask that you might critique it for me please - tell me what I could be doing better... It does work, but I am concerned that an error might occur that I do not expect. Private Sub cmdUpdate_Click() Dim...

Hi BigDaddyHappy I must admit that I am very new to this VBA stuff. I have been trying to search the web for examples of what you are suggesting that I do. Are you please able to point me to somewhere I could find an actual example please? Many thanks Gene

I have a main form - frmMain I have a subform - frmSub I am populating two fields on frmMain from fields on frmSub. The code that is nearly working is this: Private Sub cmdUpdate_Click() Dim Name1 As String Dim Name2 As String Dim Children As String Name1 =...

Here's the solution I found... Private Sub cmdUpdate_Click() Dim Name1 As String Dim Name2 As String Name1 = DLookup("Individual_Name", "tblIndividual", "Individual_Type = 'Adult1' AND Family_ID = " & [Family_ID]) Name2 = Nz(DLookup("Individual_Name", "tblIndividual"...

Hi BigHappyDaddy (or anyone else who would like to help, I had to settle for something second best to get a mailout done, and am now back to trying to get what for me would be the best best given my limited knowledge and expertise. I have attached a file showing the query I have built with...

Hi, thanks for your response. I hope I have attached a pdf that will be helpful.

Hi Again, I'm still stuck after too many hours trying different things. Still needing help please. I have my main form frmFamily which includes Family Surname, Phone details, address, and so on. I have a subform frmIndividual Subform which I am wanting to use to list all the individual first...