to make it can not enter data

[Frank Situmorang]

Hello,

I have the text control for church ID ranging from 1 to 9999. For
consolidation purposes in the regional office, I will assingn the number 9991
for a Regional Office. What shall I say on the VBA. if chruch ID starts with
9..., can not enter the data in all forms in the database.

Thanks very much

 

[Tom van Stiphout]

On Mon, 2 Feb 2009 02:30:00 -0800, Frank Situmorang

In the form_current event:
if Me.ChurchID = 9991 then
Me.AllowEdits = False
else
Me.AllowEdits = True
end if

-Tom.
Microsoft Access MVP

 

[Frank Situmorang]

Hello,

Thanks Tom for your quick answer. The cosolidation unit will be many
officess so it is better if we say when church ID statrs with 9....

We appreciate your idea again.

Thanks in advance.

 

[Frank Situmorang]

Ok Ling...the range I want is 9000 to 9999

Could you make it?

Thanks very much