Picture

[ranen]

I'm just wondering, is it possible to put a graphics in the code? the reason I want to know is that I will put a sad face on each customer every time they call. so if they will call me 5 times i will see a 5 sad smiley face on the customer information. Can you please help me with this one. or if you know any way to do just let me know. thank you so much.

 

[ghudson]

Access and graphics do not play well together for any type of graphics will severely bloat your db. I would rethink it and maybe assign a point value or check marks to each customers record since you will be counting the number of times they contact you anyway.

 

[shadow9449]

I'm just wondering, is it possible to put a graphics in the code? the reason I want to know is that I will put a sad face on each customer every time they call. so if they will call me 5 times i will see a 5 sad smiley face on the customer information. Can you please help me with this one. or if you know any way to do just let me know. thank you so much.

The letter 'L' in Wingdings is a sad face. You could create a label, set the font to Windings, and create a function that concatenates the letter 'L' (capital) as a string corresponding to the number of times the customer called. Then set the .caption property of the label to that string.


SHADOW

 

[shadow9449]

Because I'm in a good mood today, I decided to do a simple sample for you.

Let me know if this helps.

SHADOW

 

[ranen]

thank you so much for the response. i will help me... i wish i can hug you. thanx again...

 

[shadow9449]

Ranen:

Let me know how you do with my solution.

SHADOW

 

[ranen]

hi Shadow.

This is your code:

Private Sub Form_Current()
Dim i As Integer
Dim s As String
s = ""
For i = 1 To Me.Calls

s = "L" & s
Next i

Me.Label1.Caption = s
End Sub


and this is mine

Private Sub Command1_Click()
Dim cntsmile As Integer

If IsNull(Me.Text2) = False Then
cntsmile = Len(Me.Text2)
cntsmile = cntsmile + 1
For i = 1 To cntsmile
txt = "L" & txt
Next i
Me.Text2 = txt
Else
Me.Text2 = "L"
End If
End Sub


sorry I copy all of it. Thank you so much for your help. Have a good day!