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...
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...
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...
I have an image on which I want to place text with a black border and filled with the background- I have gotten that far. Now, I want to do something to make the text more visible from the background- for example, create a white background with soft edges where it meets the existing background...
I have a form that opens via a choice of several command buttons; one opens to edit existing records the other opens in data entry for new records. There are several required fields, but not all need to be required. I want the user to be prompted to Save new record YES or NO in the data entry...
I have 3 combo boxes in the header of a form that I use to search for records in the related table. Each time I build the combo boxes (4 times now) and use them to find a record they only work until I close the form and reopen it. After reopening the form the drop down displays the search field...
I am a true beginner. On open I want the report (rptIssuePrepImpl) to not display PhyName control when PhyName = "_O.R. Materiels Mgr. (Stock)"
This is where I am and I get syntax error. My deadline is approaching fast.
Private Sub Report_Open(Cancel As Integer)
If [Me.PhyName] = "_O.R...
I mistakenly chose to name a field "MR#" and now in an event procedure this is seen as a date. How do I refer to the field "Forms!CAD_LOG1!MR#" in the statement below
Private Sub PrintHx_Click()
On Error GoTo Err_PrintHx_Click
Dim stDocName As String
stDocName = "rptPatientHx"...
OrdersTable contains OrderID(key field), PONumber, Item#
On receipt I want to display PONumber and Item# on ReceiptsForm in real time and trough ReceiptsForm Create record in ReceiptsTable with OrderID when all required fields of ReceiptForm are populated.
After viewing or printing report I want close report and return to the main menu (switchboard). I have tried using a macro to open mainmenu on close and on deactivate properties of the report. The main menu appears when I select close on the report, but the report remains open as well.
Any...
How do I reference current TissueID displayed in subform in the following:
Private Sub PrintImplRec_Click()
On Error GoTo Err_PrintImplRec_Click
Dim stDocName As String
stDocName = "ImplantRecord"
DoCmd.OpenReport stDocName, acPreview, ...
When the user opens the form a combobox is used to select and populate the value for the PO_number field in tblTissue. The next tab takes user to TissueID field which after the user populates and exits TissueID field the record is validated and saved and the user continue to complete the rest of...
IN a data entry form "EnterReceipts" when the user selects value from combo in "OnReceiptStatus" and tabs to next field two other hidden controls on teh same form to be automatically filled. The first "CurrentStatus" equal to the "OnReceiptStatus" and the second, "CurrentStatusDate" to be...
I want to apply a filter(s) to table(s) that are used in combo boxes on a form using a macro if the current record is a new record.
The goal is to prevent the assignment of obsolete personnel codes to new records while still allowing the user to view the obsolete codes as they apply to older...
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.