Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: capndave
  • Content: Threads
  • Order by date
  1. capndave

    Join query causes number of records to go from 389 to 67-URGENT

    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...
  2. capndave

    Query for most recent date for each test for ID on form

    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...
  3. capndave

    set property value on a subform control from control value on parent

    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...
  4. capndave

    Can't get rid of the focus on movng to next record

    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...
  5. capndave

    Value of combo on main form to make combo on subform visible= Errors

    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...
  6. capndave

    DoCmd Compile Error

    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...
  7. capndave

    Highlighting Text Filled with Background

    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...
  8. capndave

    Always Prompt to Save New or Edited Record

    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...
  9. capndave

    Combo Box on Form works only Once to find records

    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...
  10. capndave

    Syntax error prevents hiding control on report?

    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...
  11. capndave

    How to refer to field name ending with "# " that is not a date

    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"...
  12. capndave

    Update Table with foreign data from FORM

    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.
  13. capndave

    On Close View/Print Report Return to Switchboard

    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...
  14. capndave

    Print Report for Current Record Displayed in subform

    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, ...
  15. capndave

    Save Record on field exit, continue to fill form

    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...
  16. capndave

    On Control Exit set value of two other hidden controls?

    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...
  17. capndave

    Apply filter if current record = new record

    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...

Part and Inventory Search

Back
Top