Nick Fraser
New Member
- Joined
- Apr 19, 2012
- Messages
- 5
Hopefully this isn't too difficult to explain what I'm looking to do.
Pretty Much I am making an interface to deal with all the databasing of my construction jobs. This interface is on a separate Sheet from the database. My Goal is to create User Forms that will fill the relative database cells with specific information.
I will be honest, I have only just learnt how to use user forms, but am still a bit vague as to how to get it to operate how I want it to.
I have completed the first form which enters the data:
JOB NUMBER, START DATE and ATTENDING DATE
into relative cells:
A4, B4 and C4
It's my second form that is more indepth and is causing some issues. Goal - To use the already developed Combo Box and list developed to enter the data from tbxContName and tbxContEmail into cells on Sheet1 which are 4 and 5 to the right of the matching Job Number.
Please let me know if you need any specific information.
Current Code for Form "NewCont" is seen below
Sub btnAdd_Click()
MsgBox "Function Not Yet Operational"
End Sub
Sub JobNoComboBox_Open()
Dim JobNo As String
With JobNo = NewCont.JobNoComboBox
.AddItem .Value("A4:A500")
End With
End Sub
Private Sub btnLoopUp_Click()
MsgBox "Function Not Yet Operational"
End Sub
Private Sub btnClear_Click()
tbxContName.Text = ""
tbxContEmail.Text = ""
End Sub
And runs through the Module:
Sub NewJob_Click()
FormEntry.Show
End Sub
Sub NewCont_Click()
NewCont.Show
End Sub
Thank you for any assisstance you can give. Please understand I am one hell of a Newbie at this, so be gentle haha
Pretty Much I am making an interface to deal with all the databasing of my construction jobs. This interface is on a separate Sheet from the database. My Goal is to create User Forms that will fill the relative database cells with specific information.
I will be honest, I have only just learnt how to use user forms, but am still a bit vague as to how to get it to operate how I want it to.
I have completed the first form which enters the data:
JOB NUMBER, START DATE and ATTENDING DATE
into relative cells:
A4, B4 and C4
It's my second form that is more indepth and is causing some issues. Goal - To use the already developed Combo Box and list developed to enter the data from tbxContName and tbxContEmail into cells on Sheet1 which are 4 and 5 to the right of the matching Job Number.
Please let me know if you need any specific information.
Current Code for Form "NewCont" is seen below
Sub btnAdd_Click()
MsgBox "Function Not Yet Operational"
End Sub
Sub JobNoComboBox_Open()
Dim JobNo As String
With JobNo = NewCont.JobNoComboBox
.AddItem .Value("A4:A500")
End With
End Sub
Private Sub btnLoopUp_Click()
MsgBox "Function Not Yet Operational"
End Sub
Private Sub btnClear_Click()
tbxContName.Text = ""
tbxContEmail.Text = ""
End Sub
And runs through the Module:
Sub NewJob_Click()
FormEntry.Show
End Sub
Sub NewCont_Click()
NewCont.Show
End Sub
Thank you for any assisstance you can give. Please understand I am one hell of a Newbie at this, so be gentle haha
Last edited: