Prevent Changes on Form

[Tom Patten]

I have a form, based on a set. Staff.dbf is the parent and visits.dbf is an embedded browse.

I want to prevent changes (new records or changes) to the parent (staff.dbf), but permit changes and new records to be entered into the browse1.table (visits.dbf).

Suggestions would be very much appreciated.

seems the following code should go somewhere! Probably pretty obvious - but don't worry about embarrassing me.

cancel()
ui_msg_box("changes not allowed","Click on table below to make changes")

Thanks

Tom

[JerryBrightbill]

RE: Prevent Changes on Form

Tom,

Why not just set the properties of any object on the form that refers to the parent to readonly or even disable? The user can't access the field to change it.

Jerry

[Tom Patten]

RE: Prevent Changes on Form

Jerry,

Good Morning

I've done as you suggested, I only have a calculated field based on the Parent on the form, but when I click on the toolbars * add record button, a new record is formed, or the at least the calculated field (fullname = Lname+", " + Fname)shows only the ", ".

I guess I'd like the add new record button to be disabled unless the Browse1 was active.

Suggestions

and TIA

Tom

[Tom Patten]

RE: Prevent Changes on Form

I still haven't figured this problem out.

Other suggestions would be appreciated.

Tom

[Finian Lennon]

RE: Prevent Changes on Form

Open the form in design mode,
Main Menu/Form/Properties
Check the Restrict Enter and Change boxes.

This will prevent new records being added or changed in the parent, but you can still click the "New Record" line in the embedded browse to add child records.

Finian

[Tom Patten]

RE: Prevent Changes on Form

Finian,

Thanks a bunch - you were right, not surprisingly. I though it would prevent changes on the entire form.

One more question - why doesn't the following work?

if isblank(":Daily_Productivity:Browse1:Payor" Then
:Daily_Productivity:Browse1:Patient.font.color = "Red",
Else
:Daily_Productivity:Browse1:Patient.font.color = "Black"
end if
end

I get the error, ...Payor not found I tried Payor.text and Payor.value and still not luck. This is on a form's oninitiate event.

Thanks

Tom

[Peter.Greulich]

RE: Prevent Changes on Form

isblank(":Daily_Productivity:Browse1:Payor" refers to a field object. The isblank() command works with field values. Try:

tbl = table.current()
if isblank(tbl.payor) 'assuming Payor is a field, not merely an object name
Browse1:Patient.font.color = "Red",
Else
Browse1:Patient.font.color = "Black"
end if

[Peter.Greulich]

RE: Prevent Changes on Form

should be:

if isblank("tbl.payor")

[Tom Patten]

RE: Prevent Changes on Form

It still doesn't work. The field "Payor" is in Browse1.

I tried, the following, without success -

tbl = table.current(2) '(2)to designate browse1
if isblank("tbl.payor") then 'Payor is a field, in browse1
Browse1:Patient.font.color = "Red"
Else
Browse1:Patient.font.color = "Black"
end if

The above, results in all Patient names in red, I only want the patient name in red if payor is blank.

More suggestions please.

Tom

[Stan Mathews]

RE: Prevent Changes on Form

Thomas,

If the field "payor" was on the form instead of in the browse, you could set the font color for the field "box" to change as you wish. Since it is in the browse, you are setting the font color for the column ("payor") of the browse.

I'll take a look at learn alpha.com. I think I remember something about changing the color of a "row". This could serve the purpose you want.

Stan

[Stan Mathews]

RE: Prevent Changes on Form

Here is a link to the article I remembered. You might be able to alter the code to fit your needs.

[Tom Patten]

RE: Prevent Changes on Form

Stan,

Thanks for the reference, it was the answer. Your memory is alot better than mine. I have read all the articles on Dr. Wayne's site, but forgot this one. Thanks.

If I may ask one more question - always another. Why do you suppose this code doesn't work.

:Daily_Productivity:Browse1.Index_Set("inv_date")
:Daily_Productivity:Browse1.Fetch_First()
:Daily_Productivity:Browse1.Resynch()
end

Is there a problem when inverting dates, then fetch_first?

Thanks

Tom