How To Synchronize Data on the Form with a dbCombo

MORE INFORMATION

Code Example

1. Start 16-bit or 32-bit Visual Basic or if it is already running, click New Project on the File menu.
2. Add the listed controls to the Form and set the indicated properties

         Control     Default Name   Property           Value
         -------------------------------------------------------------------
   
          Data        Data1          DatabaseName       Biblio.mdb
                                     RecordSource       Publishers
   
          Data        Data2          DatabaseName       Biblio.mdb
                                     RecordSource       Titles
   
          TextBox     Text1          DataSource         Data1
                                     DataField          PubID
   
          TextBox     Text2          DataSource         Data1
                                     DataField          Name
   
          TextBox     Text3          DataSource         Data1
                                     DataField          Company Name
   
          TextBox     Text4          DataSource         Data2
                                     DataField          Title
   
          DBCombo     DBCombo1       DataSource         Data2
                                     RowSource          Data1
                                     BoundColumn        PubID
                                     DataField          PubID
                                     ListField          PubID
                                     Style              2 - DropDown List
   
   						

3. Copy the following code to the Code window of the Form1 form to do the synchronization:

         Private Sub DBCombo1_Change()
            Data1.Recordset.FindFirst "PubID=" & DBCombo1.BoundText
         End Sub
   
         Private Sub Form_Load()
            Data1.Refresh
         End Sub
   
   						

4. On the Run menu, click Start or press the F5 key to start the program. Select a number from the ComboBox control and note that all the text boxes change. The ComboBox control and the first text box match showing the synchronization.