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

ник: sCandal
Решил задачку следующим образом

Private Sub client_id_AfterUpdate()     If Me.NewRecord Then         DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70         sSQL = "INSERT INTO invoice_sub_sub ( invoice_sub_id, product )" _             & " SELECT " & Me.id & " AS invoice_sub_id, title AS product FROM helper_goods"         CurrentDb.Execute sSQL, dbDenyWrite         Call Form_Current     End If End Sub

где

Sub Form_Current()     On Error Resume Next     If Err <> 0 Then         GoTo Form_Current_Exit     Else         On Error GoTo Form_Current_Err         Me.Parent![InvoiceSubSub].Requery     End If Form_Current_Exit:     Exit Sub Form_Current_Err:     MsgBox Error$     Resume Form_Current_Exit End Sub

Нужна конструктивная критика. Имеются ли подводные камни? Как оптимизировать?