مشكلة عند نقل من النموذج الفرعى الى نموذج رئيسي

[محمد احمد لطفى]

عدى زرار نقل بيان من النموذج الفرعى الى نموذج رئيس و لكن عند الضغط اول مرة لا ينفذ عند الضغط مرة ثانية يتم التنفيذ هل من حل 

DoCmd.GoToRecord , , acLast

Forms![DataMasterForm]![ends1] = Me.date1

حيث 
Me.date1 
تكون خليه فى النموذج الفرعى

تم تعديل يونيو 17, 2017 بواسطه محمد احمد لطفى

[محمدنجار]

منذ ساعه, محمد احمد لطفى said:

عدى زرار نقل بيان من النموذج الفرعى الى نموذج رئيس و لكن عند الضغط اول مرة لا ينفذ عند الضغط مرة ثانية يتم التنفيذ هل من حل 

DoCmd.GoToRecord , , acLast

Forms![DataMasterForm]![ends1] = Me.date1

حيث 
Me.date1 
تكون خليه فى النموذج الفرعى

:: ضع مثال او اكتب هذا الكود في مصدر التحكم للحقل Date1 ... او في القيمة الافتراضية له

=[subformname].[form]![Textname]

 

[محمد احمد لطفى]

اسف مش هاعرف ارفق الملف لانه كبير بس تقريبا لازم افصل الاكواد عن بعضها

Private Sub ÃãÑ24_Click()
On Error GoTo g:
If MsgBox(" åá ÇäÊ ãÊÃßÏ ¿", _
    vbCritical + vbYesNo, _
    "ÊäÈíå") = vbNo Then
Exit Sub
Else
Dim i As Integer
Dim x As Date
DoCmd.GoToRecord , , acNewRec
x = Forms![DataMasterForm]![test1]![Date_M]
For i = 0 To Forms![DataMasterForm]![test1]![no] - 1
Me.date1 = Forms![DataMasterForm]![test1]![Date_M]
Me.serial = Forms![DataMasterForm]![test1]![serial]
Me.date1 = x
Me.no = DateAdd("d", i, Forms![DataMasterForm]![test1]![no1])
DoCmd.GoToRecord , , acNext
x = DateAdd("d", Forms![DataMasterForm]![test1]![no2], x)

Next
DoCmd.Requery
End If

DoCmd.GoToRecord , , acLast
Forms![DataMasterForm]![ends1] = Me.date1
g: Exit Sub
End Sub

اخر سطرين عاوز افصلهم عن الى فوق

DoCmd.GoToRecord , , acLast

Forms![DataMasterForm]![ends1] = Me.date1

تم تعديل يونيو 18, 2017 بواسطه محمد احمد لطفى

[محمدنجار]

4 ساعات مضت, محمد احمد لطفى said:

اسف مش هاعرف ارفق الملف لانه كبير بس تقريبا لازم افصل الاكواد عن بعضها

اخر سطرين عاوز افصلهم عن الى فوق

DoCmd.GoToRecord , , acLast

Forms![DataMasterForm]![ends1] = Me.date1

:: يعد حذف هذا السطر (Forms![DataMasterForm]![ends1] = Me.date1) من الكود اكتب هذا الكود في مصدر التحكم للحقل Date1 ... او في القيمة الافتراضية له

=[DataMasterForm].[form]![ends1]

[محمد احمد لطفى]

نفس المشكلة
ولكن عند عمل زرار به الكود الثانى فقط يعمل من اول مرة
هل هناك كود يفصل بين الامرين

6 hours ago, محمدنجار said:

:: يعد حذف هذا السطر (Forms![DataMasterForm]![ends1] = Me.date1) من الكود اكتب هذا الكود في مصدر التحكم للحقل Date1 ... او في القيمة الافتراضية له

=[DataMasterForm].[form]![ends1]

 

[محمدنجار]

27 دقائق مضت, محمد احمد لطفى said:

نفس المشكلة ولكن عند عمل زرار به الكود الثانى فقط يعمل من اول مرة
هل هناك كود يفصل بين الامرين

:: لا علم لكن بالتجربة كل شي تقريبا ممكن .. ارفق مثال للتجربة .

[محمد احمد لطفى]

جزاك الله خيرا 
حاليا 
كيف اشغل زرار من زرار أخر فى نفس النموذج 
مثلا button1 and button2 

كيف اشغل 
button2 

من 

button1

test300.rar