An extra Row Source Field needed

[Bob V]

SELECT tblOwnerInfwnerID,
IIf(IsNull(tblOwnerInfwnerLastName),'',tblOwnerInfwnerLastName & ' ')
& IIf(IsNull(tblOwnerInfwnerFirstName),'',tblOwnerInfwnerFirstName & '
') AS OwnerName FROM tblOwnerInfo ORDER BY
IIf(IsNull(tblOwnerInfwnerLastName),'',tblOwnerInfwnerLastName & ' ')
& IIf(IsNull(tblOwnerInfwnerFirstName),'',tblOwnerInfwnerFirstName & '
');

If tblOwnerInfo.Email has some value in it, add "@" After
tblOwnerInfwnerLastName

ie Gates @ Bill
Thanks for any help...........Bob

 

[Wayne-I-M]

Hi Bob

Are you trying to create e mail address'. If so add a new field to the
table called NewFieldName (or something else). If not then ignor this and
post a bit more information about what you're trying to get.

Create a new Update Query and use this

UPDATE tblOwnerInfo SET tblOwnerInfo.NewFieldName = "MailTo:" &
tblOwnerInfo!OwnerLastName & "@" & tblOwnerInfo!EMail
WHERE ((Not (tblOwnerInfo.EMail) Is Null));

Just an idea and it seems to do what you want a little easier.

 

[Bob V]

Sorry Wayne I am just trying to create an icon next to there name so as I
know I can email there account as I have a email address form them, I cant
have an icon so I thought "@" this might be ok
Thanks for the help.Bob

 

[Bob V]

Wayne, I've created a new query, OwnerID,Email
What function do I need in my 3rd field EmailAlert so as if OwnerID has a
value in Email, EmailAlert will show "@"
Thanks Bob

 

[Wayne-I-M]

Hi Bob

I wouldn't bother. You can simply use an unbound text box on your form like

=IIf(Not IsNull([EMailField]),"@")

Or, I would normally use something a user can understand better like

=IIf(Not IsNull([EMailField]),"E Mail Available")

 

[Wayne-I-M]

Sorry Bob just read the query question.

Create a calculated column in the query with something like this

EMailAvail: IIf(Not [TableName]![EMailField] Is Null,"@")

 

[Bob V]

Thanks Wayne, I've been thinking and created a Check Box on my form then
coded it:
Private Sub Form_Current()
If Me.Email = "*@" Then
Me.ckbEmailAlert = -1
Else
Me.ckbEmailAlert = 0

End If
End Sub
So as I can maybe format (Darker Font) my list box to show which Client has
email address's
As you can see the "*@*" does not work but could not think of another way to
get the check box to change with an email address?
Thanks Bob

Hi Bob

I wouldn't bother. You can simply use an unbound text box on your form
like

=IIf(Not IsNull([EMailField]),"@")

Or, I would normally use something a user can understand better like

=IIf(Not IsNull([EMailField]),"E Mail Available")





--
Wayne
Manchester, England.

Sorry Wayne I am just trying to create an icon next to there name so as I
know I can email there account as I have a email address form them, I
cant
have an icon so I thought "@" this might be ok
Thanks for the help.Bob

 

[Wayne-I-M]

Private Sub Form_Current()
If IsNull([Me.Email]) Then
Me.ckbEmailAlert = 0
Else
Me.ckbEmailAlert = -1
End If
End Sub


--
Wayne
Manchester, England.

Thanks Wayne, I've been thinking and created a Check Box on my form then
coded it:
Private Sub Form_Current()
If Me.Email = "*@" Then
Me.ckbEmailAlert = -1
Else
Me.ckbEmailAlert = 0

End If
End Sub
So as I can maybe format (Darker Font) my list box to show which Client has
email address's
As you can see the "*@*" does not work but could not think of another way to
get the check box to change with an email address?
Thanks Bob

Hi Bob

I wouldn't bother. You can simply use an unbound text box on your form
like

=IIf(Not IsNull([EMailField]),"@")

Or, I would normally use something a user can understand better like

=IIf(Not IsNull([EMailField]),"E Mail Available")





--
Wayne
Manchester, England.

Sorry Wayne I am just trying to create an icon next to there name so as I
know I can email there account as I have a email address form them, I
cant
have an icon so I thought "@" this might be ok
Thanks for the help.Bob

Hi Bob

Are you trying to create e mail address'. If so add a new field to the
table called NewFieldName (or something else). If not then ignor this
and
post a bit more information about what you're trying to get.

Create a new Update Query and use this

UPDATE tblOwnerInfo SET tblOwnerInfo.NewFieldName = "MailTo:" &
tblOwnerInfo!OwnerLastName & "@" & tblOwnerInfo!EMail
WHERE ((Not (tblOwnerInfo.EMail) Is Null));

Just an idea and it seems to do what you want a little easier.


--
Wayne
Manchester, England.



:



SELECT tblOwnerInfwnerID,
IIf(IsNull(tblOwnerInfwnerLastName),'',tblOwnerInfwnerLastName &
'
')
&
IIf(IsNull(tblOwnerInfwnerFirstName),'',tblOwnerInfwnerFirstName
& '
') AS OwnerName FROM tblOwnerInfo ORDER BY
IIf(IsNull(tblOwnerInfwnerLastName),'',tblOwnerInfwnerLastName &
'
')
&
IIf(IsNull(tblOwnerInfwnerFirstName),'',tblOwnerInfwnerFirstName
& '
');

If tblOwnerInfo.Email has some value in it, add "@" After
tblOwnerInfwnerLastName

ie Gates @ Bill
Thanks for any help...........Bob

 

[Wayne-I-M]

ooops - should be

Private Sub Form_Current()
If IsNull((e-mail address removed)

 

[Bob V]

Wayne getting a yellow line error on
If IsNull([Me.Email]) Then
Thanks Bob

Private Sub Form_Current()
If IsNull([Me.Email]) Then
Me.ckbEmailAlert = 0
Else
Me.ckbEmailAlert = -1
End If
End Sub


--
Wayne
Manchester, England.

Thanks Wayne, I've been thinking and created a Check Box on my form then
coded it:
Private Sub Form_Current()
If Me.Email = "*@" Then
Me.ckbEmailAlert = -1
Else
Me.ckbEmailAlert = 0

End If
End Sub
So as I can maybe format (Darker Font) my list box to show which Client
has
email address's
As you can see the "*@*" does not work but could not think of another way
to
get the check box to change with an email address?
Thanks Bob

Hi Bob

I wouldn't bother. You can simply use an unbound text box on your form
like

=IIf(Not IsNull([EMailField]),"@")

Or, I would normally use something a user can understand better like

=IIf(Not IsNull([EMailField]),"E Mail Available")





--
Wayne
Manchester, England.



:

Sorry Wayne I am just trying to create an icon next to there name so
as I
know I can email there account as I have a email address form them, I
cant
have an icon so I thought "@" this might be ok
Thanks for the help.Bob

Hi Bob

Are you trying to create e mail address'. If so add a new field to
the
table called NewFieldName (or something else). If not then ignor
this
and
post a bit more information about what you're trying to get.

Create a new Update Query and use this

UPDATE tblOwnerInfo SET tblOwnerInfo.NewFieldName = "MailTo:" &
tblOwnerInfo!OwnerLastName & "@" & tblOwnerInfo!EMail
WHERE ((Not (tblOwnerInfo.EMail) Is Null));

Just an idea and it seems to do what you want a little easier.


--
Wayne
Manchester, England.



:



SELECT tblOwnerInfwnerID,
IIf(IsNull(tblOwnerInfwnerLastName),'',tblOwnerInfwnerLastName
&
'
')
&
IIf(IsNull(tblOwnerInfwnerFirstName),'',tblOwnerInfwnerFirstName
& '
') AS OwnerName FROM tblOwnerInfo ORDER BY
IIf(IsNull(tblOwnerInfwnerLastName),'',tblOwnerInfwnerLastName
&
'
')
&
IIf(IsNull(tblOwnerInfwnerFirstName),'',tblOwnerInfwnerFirstName
& '
');

If tblOwnerInfo.Email has some value in it, add "@" After
tblOwnerInfwnerLastName

ie Gates @ Bill
Thanks for any help...........Bob

 

[Bob V]

Oops Sorry Wayne got it No [ ]
Thanks Wayne brilliant now im going to try formatting my list box
hmmmmm........Thanks Bob

Private Sub Form_Current()
If IsNull([Me.Email]) Then
Me.ckbEmailAlert = 0
Else
Me.ckbEmailAlert = -1
End If
End Sub


--
Wayne
Manchester, England.

Thanks Wayne, I've been thinking and created a Check Box on my form then
coded it:
Private Sub Form_Current()
If Me.Email = "*@" Then
Me.ckbEmailAlert = -1
Else
Me.ckbEmailAlert = 0

End If
End Sub
So as I can maybe format (Darker Font) my list box to show which Client
has
email address's
As you can see the "*@*" does not work but could not think of another way
to
get the check box to change with an email address?
Thanks Bob

Hi Bob

I wouldn't bother. You can simply use an unbound text box on your form
like

=IIf(Not IsNull([EMailField]),"@")

Or, I would normally use something a user can understand better like

=IIf(Not IsNull([EMailField]),"E Mail Available")





--
Wayne
Manchester, England.



:

Sorry Wayne I am just trying to create an icon next to there name so
as I
know I can email there account as I have a email address form them, I
cant
have an icon so I thought "@" this might be ok
Thanks for the help.Bob

Hi Bob

Are you trying to create e mail address'. If so add a new field to
the
table called NewFieldName (or something else). If not then ignor
this
and
post a bit more information about what you're trying to get.

Create a new Update Query and use this

UPDATE tblOwnerInfo SET tblOwnerInfo.NewFieldName = "MailTo:" &
tblOwnerInfo!OwnerLastName & "@" & tblOwnerInfo!EMail
WHERE ((Not (tblOwnerInfo.EMail) Is Null));

Just an idea and it seems to do what you want a little easier.


--
Wayne
Manchester, England.



:



SELECT tblOwnerInfwnerID,
IIf(IsNull(tblOwnerInfwnerLastName),'',tblOwnerInfwnerLastName
&
'
')
&
IIf(IsNull(tblOwnerInfwnerFirstName),'',tblOwnerInfwnerFirstName
& '
') AS OwnerName FROM tblOwnerInfo ORDER BY
IIf(IsNull(tblOwnerInfwnerLastName),'',tblOwnerInfwnerLastName
&
'
')
&
IIf(IsNull(tblOwnerInfwnerFirstName),'',tblOwnerInfwnerFirstName
& '
');

If tblOwnerInfo.Email has some value in it, add "@" After
tblOwnerInfwnerLastName

ie Gates @ Bill
Thanks for any help...........Bob

 

[Wayne-I-M]

should be

Private Sub Form_Current()
If IsNull((e-mail address removed)