I am using a form with a subform to enter data into two tables:
Table1 Fields: 1)EMPID and 2)CurrentDate (fields are the primary key fields in Table1).
TBLWeekDetail fields: 1)EMPID 2)CurrentDate 3)Activity 4)Organ 5)PreTime 6)Posttime.
I am trying to find a way to allow the user to edit...
I am trying get the sum of values in a column and then insert that value into a cell.
I tried the following but cannot get the MyValue to get the sum of the Range.
Dim MyRange As Range
Dim MyValue As Integer
Set MyRange = Range("E:E")
Set MyValue = Sum(MyRange)
'
End Sub
Having problems when my combo lookup box comes across an apostrophe. below is my code.
Private Sub Combo11_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Guarantor] = '" & Me![Combo11] & "'"
If Not rs.EOF...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.