Combo box - New data

[solargovind]

Hi,

I have been called the list of the Vendor Name in the combo box. This vendor name has been called from Vendor_Table.

Now, When I create New Vendor by using Double click event to open Vendor_Creation & created the New vendor name. But it is not coming to existing form's control where i hve been called by query as Rowsource.

But,once I close & re-open the existing form, it is coming.

Is there anyway to get new fresh data...?

Please suggest me.

Thanks in advance..

ngr.

[rockdc1981]

you may want to try this code:

Private Sub SecondarySupplier_NotInList(NewData As String, Response As Integer)
'Suppress the default error message.
 
   Response = acDataErrContinue
 
    ' Prompt user to verify if they wish to add a new value.
    If MsgBox("Supplier Name " & NewData & " is not in list. Add it?", vbYesNo) = vbYes Then
 
      ' Set Response argument to indicate that data is being added.
      'Open a recordset of the Table.
 
      Dim db As Database
      Dim rstSupplierName As Recordset
      Dim sqltblSupplier As String
 
      Set db = CurrentDb()
      sqltblSupplier = "Select * From tblSupplier"
      Set rstSupplierName = db.OpenRecordset(sqltblSupplier, dbOpenDynaset)
      'Add a new Name with the value that is stored in the variable NewData.
      rstSupplierName.AddNew
      rstSupplierName![SupplierName] = NewData
      rstSupplierName.Update
 
      'Inform the combo box that the desired item has been added to the list.
      Response = acDataErrAdded
      rstSupplierName.Close 'Close the recordset
   End If
 
End Sub
 

Got the code somewhere from the net and used it...its doin fine
Good Luck!

[Denburt]

Now, When I create New Vendor by using Double click event to open Vendor_Creation & created the New vendor name. But it is not coming to existing form's control where i hve been called by query as Rowsource.

But,once I close & re-open the existing form, it is coming.

No need to open then reclose the main form it sounds like the form that you supply the new Vendor information needs to have an onClose event set to requery the main forms control.

 Private Sub Form_Close()
'Here I am calling the main forms subform and filling it with the info.
With Forms!Distributions!DistributionsDet.Form
        !PipeLineID.Undo
        !PipeLineID.Requery
        !PipeLineID = Me!PipeLineID
        !ContractNo.SetFocus
    End With
End sub

[solargovind]

Thanks a lot...

Its working fine..

Thnx..

ngr.

[Denburt]

Great so glad I could help.

[solargovind]

Great so glad I could help.

==========
Fine. Actually, One new problem has arisen in that. When i open & CLOSE individually that form it shows the below error as i have given the close_event of the form.

Run-time error '2186'

This property isn't available in Design View

My code is...

With Form_Requisition_Creation.Form
Form_Requisition_Creation.Req_Account_id.Undo
Form_Requisition_Creation.Req_Account_id.Requery
Form_Requisition_Creation.Req_Account_id = Me.Account_Id
Form_Requisition_Creation.Req_Account_id.SetFocus
End With

Its given in Account_Creation close_event.

How could i avoid even when i open & close the form INDIVIDUALLY ?

Is there any other alternative?

Pls.suggest me.

Thnx..in advance.

ngr.

[Denburt]

I'm not sure I understand but I think you are trying to reference a form that is closed or in design view as the error states.
You can always check to see if the other form is loaded before you close the one generating the error...

==========
Fine. Actually, One new problem has arisen in that. When i open & CLOSE individually that form it shows the below error as i have given the close_event of the form.

Run-time error '2186'

This property isn't available in Design View

My code is...

With Form_Requisition_Creation.Form
Form_Requisition_Creation.Req_Account_id.Undo
Form_Requisition_Creation.Req_Account_id.Requery
Form_Requisition_Creation.Req_Account_id = Me.Account_Id
Form_Requisition_Creation.Req_Account_id.SetFocus
End With

Its given in Account_Creation close_event.

How could i avoid even when i open & close the form INDIVIDUALLY ?

Is there any other alternative?

Pls.suggest me.

Thnx..in advance.

ngr.