кто подскажет как сделать так, чтобы при вызове формы "Sub_Asset_Details", в её ComboBox Combo_SubModel было определённое значение, которое я задал при вызове. Я сделал событие, но в КомбоБоксе вызванной формы, данные видны только при ScrollDown.


Private Sub Btn_ShowSubAsst_Click()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Sub_Asset_Details"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms![Sub_Asset_Details]![Combo_SubModel].RowSource = "SELECT Model, SerNum FROM dbo.Assets WHERE Asset= '" & Me![Sub_Assets1].Form.[SubAsset].Value & "'"

Спасибо, это то, что мне нужно было.
У меня другая проблемка теперь. После закрытия вызванной формы и вызове её повторно, уже с другим критерием, данные КомбоБокса в вызванной форме сохраняются старые. Вот событие команды вызова этой формы:

Private Sub Btn_ShowSubAsst_Click()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Sub_Asset_Details"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Forms![Sub_Asset_Details]![Sub_AssetNr] = Me![Sub_Assets1].Form.[SubAsset].Value

Forms![Sub_Asset_Details]![Combo_SubModel].RowSource = "SELECT asst.Model, mdl.Descrip, asst.SerNum, inv.InventoryNo FROM (dbo.Assets AS asst LEFT OUTER JOIN Models AS mdl ON asst.Model=mdl.ModNum)LEFT OUTER JOIN Inventory AS inv ON asst.Asset=inv.Asset WHERE asst.Asset= '" & Me![Sub_Assets1].Form.[SubAsset].Value & "'"

Forms![Sub_Asset_Details]![Combo_SubModel] = Forms![Sub_Asset_Details]![Combo_SubModel].ItemData(0)
End Sub


Как дописать код, чтобы вызванная форма обновлялась при каждом вызове? Кажется нужно что-то типа Requery или Refresh?
Спасибо.