أبو نادر

بخلي تصميمها في الاخير بعد ما يجهز النموذج وبسوي الي قلته ... شايف النموذج يبو خليل ابغى اضيف زر لاضافة سجل جديد لنفس الشخص الي يظهر بعد البحث عن رقمه واذا حفظت تضاف البيانات تبعه فقط في ورقة البيانات الحقل ( عدد ) في جدول الانتدابات الغيت المفتاح الرئيسي منه .. بهذلني في اضافة سجل جديد احس اني مصختها معك ..

السلام عليكم نموذج فرعي لادخال البيانات اجازات مثلا .. وبعد الحفظ تخزن عدد الاجازات في ورقة بيانات فرعية .. ما هي طريقة او كود اضافة سجل جديد لنفس الموظف؟

حليتها يبو خليييييييييييل بعد تخبيص طول الليل والحمد لله اضفت حقل رقمي لجدول الانتدابات وبياناته ترقيم تلقائي وخليته مفتاح اساسي وعن طريقه ربطت بين الجدولين الفرعيه بداخل الجدول الرئيسي بعد التجارب الطويله زبطت ... واي سجل احدده من ورقة البيانات تظهر بياناته في الجدول ويمديني اطبعه او اعدل واكيد الخرابيط الي سويتها بخفيها الحين وش اضيف لكود الطباعه الي عندي في حدث الطباعة عشان يطبع .. وكود للمعاينة ؟ مو فتح الوورد مثل الي عندي ابغى ثلاث خيارات بنعم او لا لثلاث نماذج ... الي يتحدد ينطبع هات الحل يا بطل db11.rar

ههههه طيب اذا حددت اي سجل لانتدابات الشخص بيمديني اطبعها والا السجل الاول فقط؟

الليله بمخمخ على كلامك واشوف اذا قدرت اصمم التقرير

في جدول الانتدابات سأضيف حقول كاسم القائد المباشر وقائد الجناح وقائد القاعده وغيرها .. حسب المتغيرات في النماذج التي ستتم طباعتها مع اشارة مرجعية .. وستضاف الحقول للنموذج الرئيسي ورقة البيانات ستكون للعرض فقط ومؤمنه عن المستخدمين واذا حددت سجل تظهر البيانات في النموذج اما للتعديل او للطباعة

تمام يبو خليل الحين ابغى ادخل نموذج الانتدابات في النموذج الرئيسي ... واربط بينه وبين ورقة البيانات ( سواءا ورقة بيانات للجدول او الاستعلام ) بحيث اذا حددت سجل اي انتداب لشخص يبان في نموذج الانتدابات

يا اخوان يمكن ما وضحت الصوره شوفو هالمقطع لربط نموذجين فرعيه انا النموذج الرئيسي للانتدابات خليت مصدره استعلام للجدول الرئيسي ... وبداخله نموذج فرعي للانتدابات ونموذج فرعي لجدول الانتدابات وسويت بينهم ربط بالرقم ... ولا زبطت اذا اخترت السجل الثاني او الثالث من الجدول لنفس الشخص لا يتم عرضه اوتوماتك في النموذج ؟؟؟؟ هو يعرض بالرقم بس السجلات الي تابعة لنفس الرقم ما يعرضها؟

ابو خليل حاولت كثير ولا زبطت النموذج الاساسي يكون مصدره الجدول الرئيسي استعلام ... عشان البحث بداخله نموذج فرعي للانتدابات مصدره جدول الانتدابات ومربوط بينهم بالرقم كيف اضيف نموذج فرعي ثالث يكون ورقة بيانات انتدابات ؟ بحيث اذا اضفت انتداب جديد للشخص يبان فيه كم انتداب راح؟ يعني كأن نموذج الانتدابات منقسم هل اكرر نفس نموذج الانتدابات ويكون ورقة بيانات واضيفه ؟ شفت الحركه ذي في برنامج وحاولت اسويها ولا فلحت

خذ راحتك يبو خليل والله يعطيك العافيه

كلكم مشغولين ؟ ابو خلييييييل هللللللللللللللب

صباح الخير للجميع الي بيتكرم ويساعدني في حل المشكلة جد جديد على الطلبات 1- اريد اذا تم تحيد سجل من النموذج الفرعي للاستعلام تظهر البيانات في نموذج الانتدابات_1 للتعديل مثلا ( جعلت نموذج الانتدابات_1 واستعلامه نماذج فرعية داخل نموذج البحث) ما لقيت غير الطريقة عشان ابحث عن الاسماء في النموذج الرئيسي ...... وان شاء الله ما خبصت 2- الطباعة بتكون على ملف وورد عن طريق الاشارات المرجعية ... ولكن لا يظهر سوا بيانات السجل الاول لكل شخص ؟ 3- توجد ثلاث ازرار ( نعم\لا ) وعندي ثلاث ملفات وورد ( النموذج الاول والثاني والثالث ) ... ابغى المستخدم يحدد النموذج الي يبيه ويطبعه تحملوني يالربع ... هانت

اين انتم يا قوم

في المرفق مثال ... التنسيق والروقان على كيفية الاخراج .. في النهاية بعد ما اتأكد ان كل شي تمام abu_nader.rar

السلام عليكم حبايبي عندي نموذج ادخال انتدابات موظفين .. وتحته نموذج فرعي استعلام لانتدابات نفس الموظف اذا حددت سجل غير الأول لا تظهر بياناته في النموذج ... للتعديل او الطباعه عن طريق الاشارات المرجعية للوورد في الطباعة فقط يطبع السجل الاول كيف اجعله وكأنه نموذج منقسم ؟

الله يعطيك العافيه انا اصمم حركات ثانية في نفس النموذج .... وطباعة ملف الوورد في النهاية وان جا وقتها وتورطت اكيد ما بستغني عن خبرتك

الله يسعدك ويوفقك .... مييييييييييييه مييييييييييييييه

ليه كذا يبو عبدالله .. انا مخبص وتبغاني ازيد عندي هذا الكود لاضافة سجل .. من مجهود اخوي ابو خليل On Error Resume Next Beep Select Case MsgBox("هل ترغب بإضافة سجل جديد ؟" & vbCrLf & _ "", _ vbInformation + vbMsgBoxRight + vbYesNo, _ "تنبيـــه : إضافة سجل جديد") Case vbYes DoCmd.GoToRecord , , RecordsGoToNew Case vbNo Me.Undo MsgBox "تم الإلغاء" Exit Sub End Select انا حبيت بس اشيل هالجملة DoCmd.GoToRecord , , RecordsGoToNew وابدلها بتكرار سجل في الحذث مو ماكرو الحين اشلون اسويها بكودك والله يعطيك الف عافيه يا بطل هل ابدل كلمة MacroError باسم زر الامر ؟

السلام عليكم امر اضافة سجل DoCmd.GoToRecord , , acNewRec لو اردت ان اكرر نفس السجل ما هي الصيغة؟ ودمتم

ابو عبدالله اقصد السطر الي تحت private sup اش بعد call وما فهمت اسم الموديل الذي يحتويه ؟

السلام عليكم اخواني هذا يوتيوب اجنبي لربط الوورد بالاكسس وعجبني وطبقته في الوورد كل شي تمام ولكن بدأ الخبيص في كتابة الكود بعد Private Sub كتب call... وش اكتب بعدها ؟ وبعد function هل اكتب اسم النموذج؟ ابغى اضغط على الامر ويطبع على طول .... وش اضيف على هالكود ؟ ودمتم يا عباقره سالمين Private Sub ØÈÇÚÉ_ÇÌÇÒÉ_Click() Call äãæÐÌ_ÇáÊãÇã_ÇáÑÆíÓí End Sub Function äãæÐÌ_ÇáÊãÇã_ÇáÑÆíÓí() Dim appword As Word.Application Dim doc As Word.Document Dim path As String On Error Resume Next Error.Clear path = "E:\ØáÈ ãäÍ ÇÌÇÒÉ.docx" Set appword = GetObject(, "word application") If Err.number <> 0 Then Set appword = New Word.Application appword.Visible = True End If Set doc = appword.Documents.Open(path, , True) With doc .FormFields("ÇáæÍÏÉ").Result = [ÇáÓÈÈ_2] appword.Visible = True appword.Activate End With Set doc = Nothing Set appword = Nothing End Function

شكرا يسرى انا غيرت فيه لانه على استعلام. acOutputQuery .. ويعطي نفس النتيجة

شكرا بحار ولكن مو ذا المطلوب جرب هاالكود على تقرير عندك وشوف وش يطلعلك Private Sub أمر132_Click() On Error GoTo Err_أمر132_Click Dim stDocName As String stDocName = "reportname" DoCmd.OutputTo acReport, stDocName Exit_أمر132_Click: Exit Sub Err_أمر132_Click: MsgBox Err.Description Resume Exit_أمر132_Click End Sub اذا اضفت تقرير بهاالكود وضغطت على زر الأمر تأتي هذا النافذه ... وبيصدر التقرير الى اصدار قديم للاكسل .. وانا ابغى لاصدار احدث

السلام عليكم جربت هذا الكود .. ولكن يصدر التقرير لاصدار قديم في الاكسل انا شغلي على اوفيس 2013 DoCmd.OutputTo acReport, stDocName هل يوجد كود غيره؟

هل نسيتني يا صديقي البحار؟