Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Choice Field

6 views
Skip to first unread message

Musa via VBMonster.com

unread,
Apr 2, 2009, 3:48:10 PM4/2/09
to
Hello,

I'm using Teleform software with VBA capablities.
I have the following
Field Type : Choice Field
Data Type : Numeric
Length : 2

I'm trying to assign the number 8 , if the Field. Status = Const FldTooMany
(If the person marked off more than 1 choice) The values are 1=Yes, 2=No,
and 88=Other

Private Sub Form_Evaluate()
Const FldTooMany = 8
Const FldOK = 0

If B5.Status = FldTooMany Then
B5.Value = 8
Else
B5.Status = FldOK
End If
End Sub

I can't seem to assign the value. A blank field appears on export.

--
Message posted via VBMonster.com
http://www.vbmonster.com/Uwe/Forums.aspx/vb-syntax/200903/1

MikeD

unread,
Apr 2, 2009, 8:27:53 PM4/2/09
to

"Musa via VBMonster.com" <u40920@uwe> wrote in message
news:940462878cf15@uwe...

> Hello,
>
> I'm using Teleform software with VBA capablities.
> I have the following
> Field Type : Choice Field
> Data Type : Numeric
> Length : 2
>
> I'm trying to assign the number 8 , if the Field. Status = Const
> FldTooMany
> (If the person marked off more than 1 choice) The values are 1=Yes,
> 2=No,
> and 88=Other
>
> Private Sub Form_Evaluate()
> Const FldTooMany = 8
> Const FldOK = 0
>
> If B5.Status = FldTooMany Then
> B5.Value = 8
> Else
> B5.Status = FldOK
> End If
> End Sub
>
> I can't seem to assign the value. A blank field appears on export.


This newsgroup is for the stand-alone Visual Basic product (version 6 and
earlier).

Each program that is VBA-enabled is going to be slightly different. It might
use the same core language "engine", but that's it. The items you mentioned
(Choice Field and a Numeric data type) don't exist in Visual Basic. Most
likely, these are "special" types implemented in this Teleform software
(whatever that is). Therefore, you're not likely to get much help here. Does
this Teleform software have any kind of customer support? They'd be the
ones you need to ask.

--
Mike


0 new messages