تريد تعديل على هذا النموذج

تفضل اخي مندوب

كلفك بعد التعديل

اطلع على الاكواد الخاصة بمعاينة او طباعة السجل الحالي

print.rar

zahrah كتب:

تفضل اخي مندوب

كلفك بعد التعديل

اطلع على الاكواد الخاصة بمعاينة او طباعة السجل الحالي

print.rar

اختى العزيزة واجهتنى مشكلتين

الاولي انه فى مكان وضع الكود عندك كلة فاضي وثانيا عندي مشكلة مثل مهى الصور

اقتباس

اختى العزيزة واجهتنى مشكلتين

الاولي انه فى مكان وضع الكود عندك كلة فاضي وثانيا عندي مشكلة مثل مهى الصور

اخي الفاضل مندوب

تأكد بارك الله فيك من البرنامج الذي قمت بتعديله لك

الاكواد الجديده في البرنامج هي

'كود معاينة السجل الحالي
Private Sub أمر13_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[الاسم]=" & "'" & Me![الاسم] & "'"
DoCmd.OpenReport "جدول1", acViewPreview, , stLinkCriteria
End Sub

'كود طباعة السجل الحالي
Private Sub أمر12_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[الاسم]=" & "'" & Me![الاسم] & "'"
DoCmd.OpenReport "جدول1", acViewNormal, , stLinkCriteria
End Sub

اعتقد انك فتحت برنامجك القديم

zahrah كتب:

اخي الفاضل مندوب

تأكد بارك الله فيك من البرنامج الذي قمت بتعديله لك

الاكواد الجديده في البرنامج هي

'كود معاينة السجل الحالي
Private Sub أمر13_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[الاسم]=" & "'" & Me![الاسم] & "'"
DoCmd.OpenReport "جدول1", acViewPreview, , stLinkCriteria
End Sub

'كود طباعة السجل الحالي
Private Sub أمر12_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[الاسم]=" & "'" & Me![الاسم] & "'"
DoCmd.OpenReport "جدول1", acViewNormal, , stLinkCriteria
End Sub

اعتقد انك فتحت برنامجك القديم

اختى العزيزة هذا كان مثال وانا اريد ان اطبق هذه الاكواد على ملفات ثانية مع العلم باننى قمت بتعديل اسم الجدول بدال ( جدول 1) وكذلك "م" بدل الاسم و/ معنها مسلسل

اخي الفاضل مندوب

لم تذكر هذا من قبل

ان ما قمت به لك هو خاص بالاسم وكما تعرف ان الاسم يجب ان يكون حقله نص

وانت تريد التغيير الى حقل يكون تسلسل اي ارقام وهنا يكون الاختلاف

لهذا سأقوم بالتعديل لك على المثال لكي يتناسب مع الارقام بدل النصوص

'كود معاينة السجل الحالي
Private Sub أمر13_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[م] =" & Me![م]
DoCmd.OpenReport "جدول1", acViewPreview, , stLinkCriteria
End Sub

'كود طباعة السجل الحالي
Private Sub أمر12_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[م] =" & Me![م]
DoCmd.OpenReport "جدول1", acViewNormal, , stLinkCriteria
End Sub

لاحظ الفرق بين الكودين عند استخدام حقل م الرقمي

وهذا الملف بعد التعديل

print_up.rar

شكرا اختى العزيز كان الخطاء عندى

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

سؤالى هل هناك كود يقوم باصلاك تلك المشكلة الفنية

اخي الفاضل مندوب

لم افهم ماذا تقصد بقولك

اقتباس

ان هذه الاكواد تعمل فقط عندما يكون النموذج فى وضع ادخال البيانات اى انه عندما اضخ خانة ادخال البيانات كلمة (نعم ) يعمل اما اذا كانت ( لا ) فيعمل وكما تعرفين انه فى حال فتح النموذج على نفس البيانات السابقة فانها معرضة للحذف

سؤالى هل هناك كود يقوم باصلاك تلك المشكلة الفنية

هل من الممكن تضع مثال مصغر لما تريده بالضبط وتشرح عليه المشكله

لان هذه الاكواد ليس لها علاقة بأي شيء في النموذج بل تخص التقرير فقط

شكرا اختى لقد انحلت المشكلة اة انه يجب على ان اقوم بحفظ ا السجل