- Katılım
- 26 Ağustos 2006
- Mesajlar
- 252
Private Sub Form_Current()
Sub Form_Current()
Dim ParentDocName As String
On Error Resume Next
ParentDocName = Me.Parent.Name
If Err <> 0 Then
GoTo Form_Current_Exit
Else
On Error GoTo Form_Current_Err
Me.Parent![tıbbi_tanilama Altform].Requery
Me.Parent![uygulanantestler alt formu].Requery
End If
Form_Current_Exit:
Exit Sub
Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit
End Sub
İki formu yada daha fazla formu altforma bu şekilde bağlanamazmı hata verdi nereyi düzeltmem lazım yardımcı olursanız sevinirim.
Me.Parent![tıbbi_tanilama Altform].Requery
Me.Parent![uygulanantestler alt formu].Requery
sanırım burda hata veriyor.
Sub Form_Current()
Dim ParentDocName As String
On Error Resume Next
ParentDocName = Me.Parent.Name
If Err <> 0 Then
GoTo Form_Current_Exit
Else
On Error GoTo Form_Current_Err
Me.Parent![tıbbi_tanilama Altform].Requery
Me.Parent![uygulanantestler alt formu].Requery
End If
Form_Current_Exit:
Exit Sub
Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit
End Sub
İki formu yada daha fazla formu altforma bu şekilde bağlanamazmı hata verdi nereyi düzeltmem lazım yardımcı olursanız sevinirim.
Me.Parent![tıbbi_tanilama Altform].Requery
Me.Parent![uygulanantestler alt formu].Requery
sanırım burda hata veriyor.