[MS_AccessPros] On a TabCtl

 

Hi John,

Hope you would be fine and all others in the Group.

I have a form "Add New Member" Default View--> Single Form.

I have put a new Text Control on its Footer "LastUpdate" Format Short Date. Visible=Yes

Forms Before Update Event is:

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim msg As String
    msg = msg & "Do you want to Save this record?"
    If MsgBox(msg, vbYesNo, "SAC Pakistan Guide - Confirmation!") = vbYes Then
        DoCmd.Save
        If Me.MembershipExpireDate < Now Then
            Me.SocietyLeavingReason = "Dormant"
            Me.SocietyLeavingDate = MembershipExpireDate
            Me.Working = False
            LabelWorking.BackColor = RGB(255, 0, 0)
            LabelWorking.Caption = "Removed Member:"
            Me.LastUpdate = Now
        End If
        If IsNull(MembershipExpireDate) Or MembershipExpireDate > Now Then
            Me.SocietyLeavingReason = ""
            Me.SocietyLeavingDate = ""
            Working = True
            LabelWorking.BackColor = RGB(0, 9900, 0)
            LabelWorking.Caption = "Active Member:"
            Me.LastUpdate = Now
        End If
    Else
        Me.Undo
    End If
End Sub

--------------------------------------

Up to here it is OK.

The form has a TabCtl "TabCtlMemberInfo" it has 7 Tabs and under each Tab there are separate forms with Default View-->Datasheet

Now the situation is that before me some one other entered data and now i am myself looking and updating the data. As information regarding members might have changed or previously entered wrong or some fields have missing entries. Therefore i have to call and contact each member one by one and get it confirm from member his information under each Tab/Form.

I need as on Main Form on Save i am updating "LastUpdate". These Forms should also in any way be shown "Last Updated".

How ?  i am not getting the logic or design. Please help.

Regards,

Khalid

__._,_.___

---

Posted by: Khalid Tanweer <khalidtanweerburrah@yahoo.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (1)

---

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

---

Visit Your Group

• New Members 1

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___