Search results

Count the number of patients a given provider has in his panel... CAn somebody tell what's the problem? Thanks. Groupers are Group 1 - Location Group 2 - Dept Group 3 - Provider count({%dept},{@location name})

That's the problem I have right now... Dunno what to do when user click Cancel. I just thought that my code is right. ( setting the cursor to focus on the subform ) and then undo... but obviously, it's not working. Can you still retain control's value when focus is lost? and then move to the...

Thanks again Keith... You're right Linq.... Sorry for not explaining it well... That's what I wanted to do... (Add additional text on the original value when vbCancel is selected. Also, Command38 button is on the main form. My main form has patient's general info (e.i. last name, first name...

Thanks Keith, I don't want to close the form if you select "No"... So, when I removed the DoCmd.Close... An error occured and says "You tried to commit or rollback a trans. w/o first begining a transaction." I would like to go back to the control's original value and add additional text on the...

So I guess I can't use the Cancel=True in my code? since I am using a command button? What I'm trying to do is to go back to the subform control's original value by using the Cancel=true. Any suggestion how can I do this? Many thanks again... Jim

Hi Keith... I tried that... It didn't work... Is my Cancel as Integer declaration wrong? Many Thanks..

Hi All, I have a select case statement and what I want do is, when the vbCancel is selected, I want to go back to the subform control's original value. any ideas? Many thanks in advance. Jim Code: Private Sub Command38_Click() Dim ctl As Object Cancel As Integer Select Case...

Hello everyone... I have a form that I want to copy selected field values to another form & subform. I have no problem copying some field values to frmEndorsement... but I can't figure out how to copy the other field values to the frmEndorsementSubform. I tried several ways but I'm still on a...

I just want to ask how can I add two additional multiselect listbox from the code below... right now I only have "lsService" on this code and I want to add "lsCampus" & "lsCategory". any help will be greatly appreciated... Jim :confused: Dim MyDB As DAO.Database Dim qdf As DAO.QueryDef...

I'm sorry I didn't explained it well before... Thanks again for your help... I finally got it sorted... Again... I appreciate your help & especially your time...

The Notes is also tied with the patient's therapist that's why I created a separate table for notes. Each patient can have several notes by different therapist and the report is also driven by therapist. I just didn't include it because I can easily filter the notes by therapist. My main concern...

Thanks for your prompt reply... Actually, It's my boss that doesn't like to see the notes repeatedly... In the report, if let say John Doe has 3 records and each records has different modalities but has the same notes. How can filter the notes to appear only once on the first record of John...

Hello everyone... I have a query that looks like this : QryPatientInfo PatientID____PatientName____Modality____Notes____NDate 00001----------Doe,John---------FMCD---------text1-------01/01/05 00001----------Doe,John---------JJTX-----------text1------02/01/05...

I'm sorry I didn't make it clear... Here's the actual example. In my query I have four tables: tblPatientInfo tblDiagMed tblDiagdetail tblMeddetail tblPatientInfo PatientID Last First Unit DOB tblDiagMed PatientID PsychVisitDate MxID DxID tblDiagdetail DxID DiagCode tblMeddetail MxID...

Hello everyone, I have medication & diagnosis field in my query and I would like to print all the medications & diagnoses of each patient based on their monthly diagnoses & medications. each patient could have several diagnoses & medications per month. here's the report example: Unit PT Name...

Actually I tried that but it didn't work... For some reason, the Dlookup function can't see or recognize the Age field...here's the code... Private Sub Form_Current() Dim bytAge As Byte bytAge = Nz(DLookup("[Age]", "tblPatient_Demographics", "[MRN] = '" & Me.MRN & "'"), 0) Select Case bytAge...

Hello to everyone... I have a calculated(unbound) text field named(Age) on my main form. The Age is calculated based on patient's DOB(Date of Birth) Field using datediff function, and in the subform, I have a field named (AgeNo). There is a criteria for AgeNo Field depending on (Age) field for...

Thanks Chad... You're a life saver...

Is there a way I can create a menu for all network printers so users can choose which printers to use when they print reports? My boss basically wants to have users to print reports on a specific printer. Is there a better way to do this? Many Thanks... :confused:

I got it... Thank you very much Len... I appreciate your help!!! Again thanks... Jim :)