Hi PHV,
Thanks for the link - very detailed and useful reading..
The following is the SQL for the form
Could you take a look please and see what I'm missing?
SELECT tblCSCPatBio.*, tblCSCPatFlwUp.*, tblCSCPatLabRslt.*, tblCSCPatObGyHist.*, tblCVSPatExam.*
FROM (((tblCSCPatBio INNER JOIN...
Hi everyone,
I'm trying to create a data-entry form from a medical screening form. The screening form has about 75 fields in 5 tables.
I have created a query to select all the fields which I populated 5 tab forms.
The problem is that I'm unable to enter data in the form.
Help anyone?
I can...
Robert,
To check for records I would use this code in the open form event
Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "Sorry!!! No records found!"
Cancel = True
End If
End Sub
The SQL for the query that the form is based upon is as...
Hi Robert,
Thanks for responding so quickly.
The form is based on a query that has an "enter parameter value" dialog box which asks for the record number.
The form itself is opened by clicking on a command button.
The following is the code in the on click event of the command button.
On...
Hello everyone,
I have the following code that checks for instances when no matching records are found.
When it happens, in addition to getting my "no records found" msg, I also get this message "The Openform Action was cancelled".
Is there anyway to stop this msg from being displayed...
Hi Everyone,
Can someone look at this code and help me figure out why its not working, Please???
Here's the situation:-
I have a patient record with a specific consultant assigned to the patient. In some instances, the patient may request a different consultant. What I want to do is to allow...
Hi Everyone,
Can someone please help me with this problem.
I'm trying to keep track of changes made to a certain field by saving relevant details as a record in the table tblchanges.
tblchanges has the following fields:-
ID : Autonumber
Fileno : Text
Fieldname : Text
Oldvalue ...
Hi everyone,
When I enter a numeric value for BP_Sys, the following code is supposed to validate the value. If it falls outside of the accepted range, it is supposed to display an error msg an return and highlight the error value.
What actually happens is the error msg gets displayed, BUT the...
Hi PVS,
I tried your suggestion (below) but it didn't work
Me.Parent.Form![frmtaddr].SetFocus
Me.Parent.Form![frmtaddr].Form![Taddr1].SetFocus
However, I got the following to work
Forms!frmperson.frmtaddr.SetFocus
Forms!frmperson.frmtaddr.Taddr1.SetFocus
I think it has to do with the use...
Hi belovedcej,
Thanks for responding to my post.
This is the code that I have in the After_Update event of the last field of the first subform
Private Sub PatWorkPh_AfterUpdate()
Me.frmperson![frmtaddr].SetFocus
Me.frmperson![frmtaddr].Form![Taddr1].SetFocus
End Sub
All that...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.