Search results

  1. Endojoe

    Combo Box with occasionally empty columns

    Good Day All, I have a table sourced Combo Box on a Form and it populates several Text Boxes and Option Groups using the following code: Private Sub cbo_CUSTOMER_NAME_AfterUpdate() Me.Txt_Country = Me.cbo_CUSTOMER_NAME.Column(1) Me.opt_Cert_Type = Me.cbo_CUSTOMER_NAME.Column(2)...
  2. Endojoe

    Selecting Options in Option Groups With Command Button

    I have 5 option groups, several of them populate text box controls with standard verbiage in my form using the After Update event. There are a couple circumstances I want to create Command Buttons for that will select certain options in all the option groups in with a single click...
  3. Endojoe

    Change RecordSource with Option Group

    I have two tables, 'table1' has around 4500 records but is no longer being added to because I have created 'table2' to take it's place due to the fact that I couldn't set a couple fields in 'table1' to be indexed with no duplicates (over the years many duplicates had already been carelessly...
  4. Endojoe

    Command Button using If/Then

    I'm trying to use an If/Then statement to get a command button to create a new record with certain information carried over from an existing record, but just exactly what information is carried over is dependent upon the selection present in an Option Group...each half of the code works fine by...
  5. Endojoe

    Guiding User Selection of Option Groups

    I have a form with 4 Option Groups, and I need to guide the user through the selection process in a step by step manner. I have tried using some VB code to set the Option Groups to invisible, then make them visable again after a selection is made in each group, in the order they need to be...
  6. Endojoe

    Removing Text From Control

    I have a form in which I need to auto-populate a couple of controls when data entry begins in certain controls. I have achieved this using the following: Private Sub PART1_Dirty(Cancel As Integer) If Me.Cert_Type = 1 Then Me.ITEM1 = "1" Me.SER1 = "N/A" ElseIf Me.Cert_Type = 2 Then...
  7. Endojoe

    Error Handling

    I have 3 reports I want to print from a single command button. I have achieved this using the following: Private Sub All_Reports_Button_Click() On Error GoTo Err_All_Reports_Button_Click Dim stDocName As String stDocName = "CofC_SPU_ALL" DoCmd.OpenReport stDocName, acNormal...
Back
Top Bottom