If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

 
Go Back  dBforums > Data Access, Manipulation & Batch Languages > Visual Basic > Pulling out signature

Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1 (permalink)  
Old 02-25-11, 10:05
trey3143 trey3143 is offline
Registered User
 
Join Date: Jan 2010
Posts: 13
Pulling out signature

I have a topaz signature pad that I am using with Access that is tied to a sql database. I have modified code to where the signature will pull out when I use a seach combo box. My field is a varchar(8000) and I can pull it out but when I try to pull it out when it is null I get a data type mismatch in Access. So I tried to modify the code to have an If end if to only pull out the data if it is not null but now nothing pulls out. Please help. Here is my combo box code.
[Private Sub Combo241_AfterUpdate()
DoCmd.ShowAllRecords
Me!JobNum.SetFocus
DoCmd.FindRecord Me!Combo241

If AppSign.Value = True Then

'App sign pull out

SigPlus1.ClearTablet
SigPlus1.EncryptionMode = 0
SigPlus1.JustifyMode = 5
SigPlus1.JustifyX = 10
SigPlus1.JustifyY = 10
SigPlus1.DisplayPenWidth = 12

SigPlus1.SigCompressionMode = 1

SigPlus1.SigString = AppSign.Value
End If
AppSign.Value = Null

'Set value of combo box equal to an empty string
Me!Combo241.Value = ""
End Sub
][/CODE]
Reply With Quote
  #2 (permalink)  
Old 02-25-11, 14:29
trey3143 trey3143 is offline
Registered User
 
Join Date: Jan 2010
Posts: 13
I also tried this

I modified the code again and as long as the value is not null it will pull the signature out but if it is null it returns a data type mismatch, because the string doesnt recognize the null value. Please help

[ If (AppSign.Value) = Null Then
SigPlus1.SigString = ""
Else
'App sign pull out
SigPlus1.ClearTablet
SigPlus1.EncryptionMode = 0
SigPlus1.JustifyMode = 5
SigPlus1.JustifyX = 10
SigPlus1.JustifyY = 10
SigPlus1.DisplayPenWidth = 12

SigPlus1.SigCompressionMode = 1

SigPlus1.SigString = AppSign.Value
End If][/CODE]
Reply With Quote
Reply

Tags
access, combo box, signature

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On