Recent content by capndave

Thanks, that worked for giving me all of the 389 records, however I am not getting the data for selected fields in the 6 linkded tables. Any ideas?

SELECT qPhySum.*, tblCaseMixSrv.*, tblConsultServ.*, tblMedRecSrv.*, tblPhyActSrv.*, tblReadmServ.*, tblSurActSrv.* FROM tblSurActSrv RIGHT JOIN (tblReadmServ RIGHT JOIN (tblPhyActSrv RIGHT JOIN (tblMedRecSrv RIGHT JOIN (tblConsultServ RIGHT JOIN (tblCaseMixSrv RIGHT JOIN qPhySum ON...

Thanks dhookom-I believe that is what I have done the query is to display all records from qPhyDemo and the records from the other tables that have a matching phyID. NOt sure I understand your second comment? Thanks

I have a query containing all of the demographic information for a list of physicians containing 389 records (qPhyDemo). When I create a new query which includes this query (placed as qPhyDemo* on the query grid)and 6 other tables (placed on grid as table*) linked by phyID the resulting query...

Thanks Traingamer- one question- does your solution depend on the recnum reflecting the date. ie, the higher the recnum the more recent the date If so, this is not the case. I'm not sure why I included a recnum in the table, other than my understanding is it is good practice Thanks for your...

I have a command button on a form that I want to run a query to return the most recent lab result for each type of test only for the MRN matching the current form frmPtReg. The tblLabResult on which to run the query has the following: tblLabResult RecNum MRN AcctNum LabDate LabTest LabRes...

MajP All works 100%. I had given a thought about Nz, but had only used it sql and did not know it could/ or how in VBA. Thanks again for your time! CapnDave

Oops! There is still a bug- when the Combo49 box is empty I get a runtime 13 error Type Mismatch. Any thoughts? Thanks

Duh me!! I used "current" when the stored value is "C" etc. "Current" is from the unbound column. Thanks so much I learned a lot of good stuff. Have agreat day

Thanks majP, I get the Msgbox on both occassions, but once the smokecessa checkbox disappears it is never seen again regardless of Combo49 value. Any suggestions would be appreciated CapnDave

Thanks kjv1611, but all combinations of requery/ refresh do not fix my original problem. Any other assistance would be appreciated

I am trying to accomplish the following: frmPtReg is parent form combo49 on frmPtReg (when = "current" SmokeCessa control on subform is visible otherwise not visible) frmEnc is subform SmokeCessa is y/N control on subform This is my code Private Sub frmENC_Enter() If...

I have this code in the AfterUpdate event for the OccurType field on the main form: Dim sfrm As Form Set sfrm = [frmsubTxnDetail].Form If Me!TypeOccur = "60" Then sfrm!cboTxnRxn.Visible = True Else sfrm!cboTxnRxn.Visible = False End If Set sfrm = Nothing...

I have combined information from several FAQ and postings and have not been successful with this code: Private Sub TypeOccur_AfterUpdate() If TypeOccur.Value = "60" Then Me!frmsubTxnDetail.SetFocus Me!frmsubTxnDetail.cboTxnRxn_Label.Visible = True...

I have the following code for an on click event: Private Sub ViewAvail_Click() On Error GoTo Err_ViewAvail_Click Dim stDocName As String DoCmd.CloseForm "MainMenu" stDocName = "InventoryAvail" DoCmd.OpenReport stDocName, acPreview Exit_ViewAvail_Click: Exit...