Conference bump::msaccess

1635.0. "Newbie: Difficulties with "IsLoaded" function" by KANATA::ZUTRAUEN (always lookin' to learn) Wed Feb 26 1997 15:22

     I am in the midst of creating a very simple data-base which has a main
    form (MainData) containing  a  combo-box (SupplierName) which opens a
    secondary form (Suppliers) to add new supplier details using the
    combo-box's NotInList function. Following the "Solutions" example, I
    have put the following into the Unload Event of the secondary
    (Suppliers) form, to update the combo-box (SupplierName) on the main
    (MainData) form upon return:
    
    
    Private Sub Form_Unload (Cancel As Integer)
    
     '  If MainData form is loaded,
     '  select it, requery SupplierName combo box,
     '  and set value of the SupplierName combo box.
    
     Dim ctl As Control
    
     If IsLoaded("MainData") Then
      Set ctl = Forms!MainData!SupplierName
      DoCmd.SelectObject acForm, "SupplierName"
      ctl.Requery
      ctl = Me!SupplierName
     End If
    
    End Sub
    
    My problem is that upon exiting the "Supplier" form, the If IsLoaded
    condition is for some reason not met, even though the MainData form is
    still displayed (without focus of course). I checked my form settings
    with the settings in the "solutions" database, but could find no
    discrepencies. If I remove the condition altogether, I then get an error 
    message:
    
    Run-time error '2118':
    You must save the current field before you run the Requery action
    
    
    I am not shure what field the above message is referring to......
    Of course the "solutions"  example works flawlessly.....
    
    Could anyone out there point me to what I am doing wrong?
    
    Your help is very much appreciated!
    
    Thanks,
    Pete  :-)
    
    
    
    
    

  You may want to use the SaveRecord command first to flush the data in your
  2nd screen to a table before requerying this table from the main form.

      If Me.Dirty Then
         DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord
      End If

  Theo		 

    Hi Theo,
    
    Thanks for the help..your suggestion makes perfect sense...tried it,
    but still no joy....
    
    I have seen another couple of folks on the web newsgroups with the same
    problem.... I'm shure it's something simple we are all doing wrong with
    the table relationship or form set up, or .......but what???
    
    Thanks again,
    Pete  :)

    aha! a V7 Bug....
    
    had to repeat the line:
    
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
    
    twice  to get it to work.... (V7 Bug, as far as another newsgroup
    writer is concerned).
    
    Thanks for the help,
    Pete