Doreen- Instead of using MsgBox, open a Dialog form that has this information displayed in labels and text boxes - use the text boxes for the email addresses. Set the Is Hyperlink property of the text boxes to Yes. John Viescas, author Building Microsoft Access Applications Microsoft Office Access 2003 Inside Out Running Microsoft Access 2000 SQL Queries for Mere Mortals http://www.viescas.com/ (Paris, France) For the inside scoop on Access 2007, see: http://blogs.msdn.com/access/
_____ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of rokkeee Sent: Friday, June 16, 2006 10:30 PM To: [email protected] Subject: [ms_access] Re: mandatory login for user John, Here's the code I have attached to the command button on the Main form. Private Sub cmd4HelpContacts_Click() MsgBox "Please call or email:" & _ vbCrLf & "Cindy Courtney at 919-297-1915" & _ vbCrLf & "malto: cindy.courtney@ <mailto:cindy.courtney%40rhd.com> rhd.com" & _ vbCrLf & "======================" & _ vbCrLf & "Doreen Darr at 919-297-1559" & _ vbCrLf & "mailto: doreen.darr@ <mailto:doreen.darr%40rhd.com> rhd.com" & _ vbCrLf & "======================" & _ vbCrLf & "Brad Lajeunesse at 919-297-1565" & _ vbCrLf & "mailto: brad.lajeunesse@ <mailto:brad.lajeunesse%40rhd.com> rhd.com", , "Help Contacts" End Sub --- In [EMAIL PROTECTED] <mailto:ms_access%40yahoogroups.com> ps.com, "John Viescas" <[EMAIL PROTECTED]> wrote: > > Doreen- > > Are the controls in the "window" bound? If so, the Hyperlink data type will > work. If not, you can use: > > Application.FollowHyperlink "mailto:"; & Me.EmailAddress > > John Viescas, author > Building Microsoft Access Applications > Microsoft Office Access 2003 Inside Out > Running Microsoft Access 2000 > SQL Queries for Mere Mortals > http://www.viescas. <http://www.viescas.com/> com/ > (Paris, France) > For the inside scoop on Access 2007, see: > http://blogs. <http://blogs.msdn.com/access/> msdn.com/access/ > > _____ > > From: [EMAIL PROTECTED] <mailto:ms_access%40yahoogroups.com> ps.com [mailto:[EMAIL PROTECTED] <mailto:ms_access%40yahoogroups.com> ps.com] On Behalf > Of rokkeee > Sent: Friday, June 16, 2006 5:53 PM > To: [EMAIL PROTECTED] <mailto:ms_access%40yahoogroups.com> ps.com > Subject: [ms_access] Re: mandatory login for user > > > > Thanks again John! The mandatory login works great! > About the hyperlink for the email, I should have explained that on > the Main form is a button called "Help Contacts" and when clicked > opens a window displaying three different names with their > respective phone numbers and email addresses. This is in vb code and > not just a field on the form. You know how in word it automatically > changes to a (blue underlined) hyperlink? Can that be done easily? > > Doreen > > --- In [EMAIL PROTECTED] <mailto:ms_access%40yahoogroups.com> ps.com, > "John Viescas" <JohnV@> wrote: > > > > Doreen- > > > > As you've discovered, the Validation Rule won't trigger unless the > user > > "dirties" the field. You'll have to add code to your buttons to > verify the > > initials before performing any other action. > > > > If IsNull(Me.cmbInitials) Then > > MsgBox "You must enter your initials." > > Me.cmbInitials.SetFocus > > Exit Sub > > End If > > > > As for the email address, you can make the field a Hyperlink data > type, but > > you'll need to add code to fix the Hyperlink. The problem is in > the absence > > of a protocol header (http://, ftp://, mailto: ...) a Hyperlink > field always > > inserts http:// - which won't work for an email address. Code in > > AfterUpdate of the control will fix it: > > > > Private Sub EmailName_AfterUpdate() > > ' If you just type in an email name: Somebody@ > > ' Access changes it to: [EMAIL PROTECTED]://somebody@ > <http://somebody@ <http://[EMAIL PROTECTED]> #> ...# !! > > ' This code tries to fix it > > Dim intI As Integer > > > > ' Don't do anything if email is empty > > If IsNull(Me.EmailName) Then Exit Sub > > > > ' Fix up http:// if it's there > > Me.EmailName = Replace(Me.EmailName, "http://";, "mailto:";) > > > > ' Now look for the first "#" that delimits the hyperlink > display name > > intI = InStr(Me.EmailName, "#") > > ' And put the person name there instead if found > > If intI > 0 Then > > Me.EmailName = (Me.FirstName + " ") & Me.LastName & > > Mid(Me.EmailName, intI) > > End If > > > > End Sub > > > > > > John Viescas, author > > Building Microsoft Access Applications > > Microsoft Office Access 2003 Inside Out > > Running Microsoft Access 2000 > > SQL Queries for Mere Mortals > > http://www.viescas. <http://www.viescas. <http://www.viescas.com/> com/> com/ > > (Paris, France) > > For the inside scoop on Access 2007, see: > > http://blogs. <http://blogs. <http://blogs.msdn.com/access/> msdn.com/access/> msdn.com/access/ > > > > _____ > > > > From: [EMAIL PROTECTED] <mailto:ms_access%40yahoogroups.com> ps.com > [mailto:[EMAIL PROTECTED] <mailto:ms_access%40yahoogroups.com> ps.com] > On Behalf > > Of rokkeee > > Sent: Friday, June 16, 2006 3:45 PM > > To: [EMAIL PROTECTED] <mailto:ms_access%40yahoogroups.com> ps.com > > Subject: [ms_access] mandatory login for user > > > > > > > > I have a Main form that opens with the database and the cursor is > in > > the combo box where the users can either choose their initials > from > > the list or type them in. I want this to be mandatory before they > can > > click on another other buttons to continue. Right now, I have a > > validation rule setup on that login box, but it only works if they > > populate that field then clear it. I want it to be mandatory from > the > > get go. How can I do that? > > And on another note, how do I make the email address in a message > box > > a hyperlink that when clicked will automatically open outlook to > send > > a message to that person? > > > > Doreen > > > > > > > > > > > > > > [Non-text portions of this message have been removed] > > > > > > > > > [Non-text portions of this message have been removed] > [Non-text portions of this message have been removed] ------------------------ Yahoo! Groups Sponsor --------------------~--> See what's inside the new Yahoo! Groups email. http://us.click.yahoo.com/2pRQfA/bOaOAA/yQLSAA/q7folB/TM --------------------------------------------------------------------~-> Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/ms_access/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
