Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Aleksandra
Re: это код - весь код который есть в форме? Жалко, что нельзя присоединить тут пример...
Я вычленила пример из моей базы и оставила почти только самое необходимое для этого примера:

В модуле:
Public Lastzapis As Integer

Public LastzapisArtik As Integer

В ArtikelTb:
Private Sub ArtikelName_AfterUpdate()
ArtikelName_Enter
End Sub

Private Sub ArtikelName_Enter()
If Not IsNull(ArtikelName) Then
Forms!General!SubForm.SourceObject = ArtikelName
Else
Forms!General!SubForm.SourceObject = "Formular0"
End If
End Sub

Private Sub Form_Load()
Me.Recordset.FindFirst "ArtikelTb_ID=" & LastzapisArtik

End Sub

Private Sub Form_Current()
LastzapisArtik = Nz(Me!ArtikelTb_ID.Value, 0)
End Sub

В General:
Private Sub Form_Load()
SubForm.LinkMasterFields = "txtCurrentArtikelID"
SubForm.LinkChildFields = "ArtikelID"

If Lastzapis = 0 Then
DoCmd.RunCommand acCmdRecordsGoToLast
Else
Me.Recordset.FindFirst "Order_Nr=" & Lastzapis
End If

End Sub

Private Sub Form_Current()
EnableSubForms Not NewRecord

Lastzapis = Nz(Me!Order_Nr.Value, 0)
End Sub

Private Sub Kombpole6_AfterUpdate()
EnableSubForms Not IsNull(Order_Nr.Value)
End Sub

Sub EnableSubForms(ByVal bValue As Boolean)
ArtikelSubForm.Enabled = bValue
SubForm.Enabled = bValue
End Sub

Речь идёт также не только о потере Фокуса, но и о закрытии Формы General, а затем её открытии...