Phil & Norman,
Thanks for the info as I will take you advise on the Family edition limit of
5 as I was wondering what limit should I have put.
Now Norman had a suggestion similar to yours:
rs = App.PatientDB.SQLSelect("SELECT Count(PatientNumber) FROM
Patients")
Is this what you were thinking of?
If so how would I write the code, something like this?
Dim rsCheck, rsGen as RecordSet
// Check Patient Number if there is 1 patient currently
rsCheck = App.PatientDB.SQLSelect("SELECT Count(PatientNumber) FROM
Patients")
if rsCheck >= "00001" then
beep
MsgBox"The Personal Edition is limited to one patient. Please
purchase the Family or Professional Edition to handle more Patients."
Exit
end if
// Generate a New Patient Number if NO patients
rsGen = App.PatientDB.SQLSelect("SELECT MAX(PatientNumber) FROM
Patients")
if rsGen = nil then
beep
return
end if
patientNumber = Format(rs.IdxField(1).IntegerValue + 1, "00000")
Would this work, I am jsut asking as I wont be able to work on this until
later tonight, but thought I'd ask.
B.T.W. Do you think I should have 1 or 2 patient limit for the demo or
Personal Edition? Just wondering. I think one as it is a "Personal
Edition".
Thanks Phil and Norman for you input.
Jonathon
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.407 / Virus Database: 268.12.12/461 - Release Date: 10/2/2006
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
