نجوم المشاركات

بالنسبة لموضوع إنشاء أكثر من صفحة فلا يمكن مع استعمال العلامات المرجعية bookmarks ولكن يمكننا التحايل على الأمر بدمج الملفات التي يتم إنشاؤها بالكود في ملف واحد باسم المجموعة ويتم تخزينه في مجلد باسم (المجموعات) يجب إنشاؤه في نفس مجلد البرنامج وهذا هو الكود بعد التعديل Private Sub أمر11_Click() Dim X As Object Dim objWord As Object Set X = CreateObject("Word.Application") While Me.CurrentRecord < Me.Recordset.RecordCount If Me.Groupx = Me.grooup Then X.Documents.Open CurrentProject.Path & "\asdf.docx" X.Visible = True X.ActiveDocument.Bookmarks("asx").Select X.Selection.InsertAfter NewNamee Dim rs As DAO.Recordset, NewName As String, noobBB As String, NewNamex As String Set rs = CurrentDb.OpenRecordset("SELECT WAdecisA.NewNamee, WBRation.NewName FROM WAdecisA INNER JOIN WBRation ON WAdecisA.noa = WBRation.noob WHERE WAdecisA.noa= " & noa & ";", dbOpenSnapshot) With rs .MoveLast .MoveFirst For i = 1 To .RecordCount NewName = NewName & IIf(NewName = "", "", vbCrLf) & Nz(rs.Fields(1).Value, "") .MoveNext Next i End With X.ActiveDocument.Bookmarks("bc").Select X.Selection.InsertAfter NewName NewName = "" Set rs = CurrentDb.OpenRecordset("SELECT WAdecisA.NewNamee, WCdecisQ.noobBB , WCdecisQ.NewNamex FROM WAdecisA INNER JOIN WCdecisQ ON WAdecisA.noa = WCdecisQ.nooc WHERE WAdecisA.noa= " & noa & ";", dbOpenSnapshot) With rs .MoveLast .MoveFirst For i = 1 To .RecordCount noobBB = noobBB & IIf(noobBB = "", "", vbCrLf) & Nz(rs.Fields(1).Value, "") NewNamex = NewNamex & IIf(NewNamex = "", "", vbCrLf) & Nz(rs.Fields(2).Value, "") .MoveNext Next i End With X.ActiveDocument.Bookmarks("bzd").Select X.Selection.InsertAfter NewNamex NewNamex = "" X.ActiveDocument.saveas2 CurrentProject.Path & "\" & noa & "_" & Format(Now(), "dd_mm_yyyy_hh_mm_AM/PM") & ".docx" X.ActiveDocument.Close SaveChanges:=0 End If DoCmd.GoToRecord Record:=acNext Wend DoCmd.GoToRecord Record:=acFirst strFile = Dir(CurrentProject.Path & "\*.docx", vbNormal) Set objNewDoc = X.Documents.Add While strFile <> "" And strFile <> "asdf.docx" Set objDoc = X.Documents.Open(FileName:=CurrentProject.Path & "\" & strFile) objDoc.Range.Copy objNewDoc.Activate X.Selection.Paste objDoc.Close SaveChanges:=0 Kill CurrentProject.Path & "\" & strFile strFile = Dir() If strFile <> "" And strFile <> "asdf.docx" Then X.Selection.InsertBreak Type:=1 End If Wend X.ActiveDocument.saveas2 CurrentProject.Path & "\المجموعات\" & grooup & "_" & Format(Now(), "dd_mm_yyyy_hh_mm_AM/PM") & ".docx" X.Quit Set X = Nothing MsgBox "done" End Sub فكرة الكود هي البحث عن جميع الملفات بامتداد docx في نفس المجلد غير asdf.docx ودمجهم بالتوفيق

وعليكم السلام ورحمة الله وبركاته.. اللهم آمين.. هذي طريقتي،، أرجو أن ترضيَك.. البرنامج.zip

السلام اجد في بعض المشاركات استخدام دالة nz مع دالة dcount وقبل الحديث عن صحة هذا الاستخدام سوف نشرح باختصار عمل كل منهما nz تستخدم لإرجاع صفر أو قيمة سلسلة فارغة (" ") أو قيمة محددة أخرى عندما يكون المتغير null اما دالة dcount تستخدم لعد السجلات وتعود بالقيمة 0 في حالة عدم تحقق الشرط مثال لبعض استخداماتها في الموقع 👇 Nz(DCount("[bil_number]";"tbl_1";"[total]>630");0) هنا نطلب عد الفواتير في الجدول اذا كان اجمالي الفاتورة اكبر من 630 وطالما ان الدالة تعود بالقيمة صفر في حالة عدم وجود القيمة او تحقق الشرط فيكون الكود 👇 DCount("[customer]";"tbl_1";"[bil_number]=630") او هكذا DCount("*";"tbl_1";"[bil_number]=630") وبالتي لا داعي لاضافة nz على الكود

تفضل ... test (9).rar

أخي الكريم @خالد القدس لقد أخبر ك الأستاذ عبد الفتاح أنه يجب وضع مسار واسم الملف في متغير باسم filename ثم استعمال الكود السابق وبناء عليه يكون الكود هكذا كاملا وهذا دورك في استنتاجه dim FileName as strring FileName = "C:\Users\kj\Desktop\WOW\2021.xlsx" ActiveWorkbook.SaveAs FileName, , , , , , xlShared ملاحظتي الشخصية: معظم الاستفسارات ناتجة من أن بعض الأصدقاء لا يصبرون على التعلم وقراءة الموضوعات السابقة والبحث في المنتدى ومحاولة فهم الأكواد والمعادلات التي يعرضها عليهم غيرهم. بالتوفيق للجميع

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

لا داعي لاستخدامها بعد هذه التجربة واختبارها من الأستاد @kha9009lid ، ولكن ما المشكلة لو استخدمتها؟ ، فيه مثل محلي بس لا أريد أذكره هنا فقد يساء فهمه لمن ليس من بيئتي ، ولكن معناه أن في بعض الأمور نأتي بها ليست ذات عبئ فإن أتينا بها فنتيجتها : إن ما نفعت فهي لا تضر 🙂 ، توكل على الله ولا تحير نفسك ، وأنصحك إما تستخدمها أو لا تستخدمها 🙂

فعلا استاذ خالد ..لماذا نستخدم دالة NZ طالما ان عدم تحقق الشرط يعود 0 عند استخدام دالة Dcount

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

الله يبارك في حضرتك استاذي الفاضل وجزاك الله خيرا كلمة شكرا قليلة في حقك اللهم ربي يحفظك ويمن عليك بالصحة والعافية والخير والبركات ... اللهم آميين يارب العالمين

يمكن استخدام الإجراء التالي للانتقال إلى صفحة جديدة في الوورد X.Selection.InsertNewPage

تفضل هذا الملف بعد تعديل بسيط تم حذف عمود الكمية الكلية وتمت قراءة البيانات من شيت البيانات الثابتة Test3.xls

بارك الله فيك أستاذ محمد وان شاء الله في ميزان حسانتك

الشفرة تعتمد على ثلاثة وسوم من وسوم HTML فقط والباقي هي بنية المسند.. الأول وسم العنوان <H1....H6> مثله مثل عناوين وورد الثاني وسم الفقرة النصية <P> مثله مثل فقرات وورد الثالث وسم الترقيم التلقائي: الترقيم النقطي <UL>، والترقيم العددي <OL> مثله مثل ترقيم وورد يمكنك إنشاء مربع النص من داخل أكسس والكتابة داخله! ولست بحاجة إلى تنسيق ذلك مسبقا في وورد!! يمكن عمل ذلك بكل سهولة وأكثر!!! كما يمكن إعادة تحرير المستند المصدر عن طريق محرر نصوص تقليدي (TEX Editor)!! هذى صورة المستند في محرر النصوص التقليدي.. <html dir=rtl> <body style='font-family: "ATraditional Arabic", calibri; font-size:16pt;font-weight:bold'> <h2 style='page-break-before:always'>بسم الله الرحمن الرحيم</h2> <p><span>الموضوع: </span>تكليف الموظف (م8)/ فهد سعد محاسب رئيس اللجنة العليا </p> <h3 style='font-size:16pt'>بناءً على:</h3> <ul > <li style='color:blue'>بموجب صلاحية المدير </li> <li style='color:blue'>وبناء على المصلحة رقم .... </li> <li style='color:blue'>وبناء على ما تقتضيه مصلحة العمل. </li> </ul> <h3 style='font-size:16pt'>تقرر ما يلي:</h3> <ol > <li style='color:maroon'>استمرار تكليف علي </li> <li style='color:maroon'>يعمل بهذا القرار اعتبارًا من تاريخ 24/04/1442هـ ولمدة عام </li> <li style='color:maroon'>يبلغ هذا القرار لمن يلزم لاعتماده وتنفيذه .</li> </ol> <h2 style='page-break-before:always'>بسم الله الرحمن الرحيم</h2> <p><span>الموضوع: </span>تكليف الموظف م(11)/ عيسى العيسى موظف الإدارة العليا </p> <h3 style='font-size:16pt'>بناءً على:</h3> <ul > <li style='color:blue'>بموجب صلاحية المدير </li> <li style='color:blue'>وبناء على المصلحة رقم .... </li> <li style='color:blue'>وبناء على ما تقتضيه مصلحة العمل. </li> </ul> <h3 style='font-size:16pt'>تقرر ما يلي:</h3> <ol > <li style='color:maroon'>استمرار تكليف علي </li> <li style='color:maroon'>يعمل بهذا القرار اعتبارًا من تاريخ 24/04/1442هـ ولمدة عام </li> <li style='color:maroon'>يبلغ هذا القرار لمن يلزم لاعتماده وتنفيذه .</li> </ol> <h2 style='page-break-before:always'>بسم الله الرحمن الرحيم</h2> <p><span>الموضوع: </span>تكليف الموظف نور الأنور مشرف الأرشيف </p> <h3 style='font-size:16pt'>بناءً على:</h3> <ul > <li style='color:blue'>بموجب صلاحية المدير </li> <li style='color:blue'>وبناء على المصلحة رقم .... </li> <li style='color:blue'>وبناء على ما تقتضيه مصلحة العمل. </li> </ul> <h3 style='font-size:16pt'>تقرر ما يلي:</h3> <ol > <li style='color:maroon'>استمرار تكليف علي </li> <li style='color:maroon'>يعمل بهذا القرار اعتبارًا من تاريخ 24/04/1442هـ ولمدة عام </li> <li style='color:maroon'>يبلغ هذا القرار لمن يلزم لاعتماده وتنفيذه .</li> </ol> </body> </html> الجدير بالذكر أن التنسيقة المعنية بالانتقال إلى الصفحة التالية موجودة ضمن الوسم التالي <h2 style='page-break-before:always'>بسم الله الرحمن الرحيم</h2> آمل أن لا تفكر في استخدام الوورد مجدداً..

حسب فهمي للمطلوب يمكنك تجربة هذا الملف Test3.xls

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

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

شكرا لك أ.محمد.. ولا حرمنا من مداخلات القيمة.. الحمدلله.. إذا كان لديك قالب معين فيمكن أن نعيد تصميمه من داخل أكسس.. إن أردت..

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

ما أجمل حديث العظماء،، زادكم الله من واسع فضله ووفقكم ورعاكم،، عدلت الكود وعمل بشكل جيد،، لكن هذا يتطلب العمل على وضع التنسيقات في الكود، وعلى ذلك ربما أحتاج مزيد من الشرح عن الكود لأني سأضعه على الملف الرئيس وبه عدة بيانات في ملف الوورد منها ما هو ثابت ومنها ما هو متغير، ولا غنى عنكم يا كرام،، وهل بالإمكان التعديل على كود ا. محمد ليكون في ملف واحد،،

شكرا أخي @أبو إبراهيم الغامديهذا الذي أفعله في برمجة الويب كتابة التنسيق بلغة html ووضع البيانات القادمة من الاستعلامات في أماكنها لكن طريقة العلامات المرجعية bookmarks المقترحة من صاحب السؤال هي التي فرضت علينا التعامل معها لحل مشكلته وإذا سمحت لي فالمشكلة في الكود في المرفق في هذه المشاركة Open Me.Groupx & ".mht" For Output As #1 وتغييره إلى Open CurrentProject.Path & "\" & Me.Groupx & ".doc" For Output As #1 ما أجمل الربط بين مهارات البرمجة في كل مجال

السلام عليكم .. جزيت خيرا .. الله يرضى عليك ,,, اشتغل الكود

في حدث بعد التحديث ضع التالي في البداية If Nz(DCount("[باركود]", "Emp", "[باركود]=" = [الباركود]), 0) = 0 Then MsgBox "الباركود غير مسجل في النظام", vbCritical + vbMsgBoxRight + vbOKOnly, "تنبيه" [الباركود]=Null Exit Sub End If YasEnEx2021.zip

يمكنك استعمال هذه الحلقات التكرارية للتأكد من تساوي قيمة العمود a في شهر3 مع العمود a في استعلام ثم تلوين النطاق من a إلى r lr = Sheets("شهر3").Cells(Rows.Count, 1).End(xlUp).Row Debug.Print lr For n = 2 To lr lr2 = Sheets("استعلام").Cells(Rows.Count, 1).End(xlUp).Row Debug.Print lr2 For m = 9 To lr2 If Sheets("شهر3").Range("A" & n) = Sheets("استعلام").Range("A" & m) Then Sheets("شهر3").Range("A" & n & ":R" & n).Interior.Color = 10213316 End If Next m Next n يمكنك وضعها بعد أمر الطباعة بالتوفيق

المعادلة زبطت ألف شكرا

ربما يكون هذا هو السبب في عدم عمل كود الطباعة كود الطباعة يعتمد على أنه بمجرد تغيير قيمة الخلية v7 يتم جلب البيانات الخاصة بالشهادة وبعدها يعطي أمر طباعة الحالية وللدمج بين الكودين يمكنك اتباع الآتي: * جعل الخلية المرتبطة في spinner1 هي الخلية v7 وليست v1 * تغيير v1 إلى v7 في هذين السطرين في كود الإجراء Shehada x = (Ws.Range("V7") - 1) * 2 + 1 y = Ws.Range("V7") * 2 تغيير كود إجراء طباعة الكل إلى ما يلي: Sub printall() ActiveSheet.Select Range("w7") = Range("w7") / 2 For i = Range("v7") To Range("w7") Range("v7") = i Shehada If i <= Range("v7") Then ActiveWindow.SelectedSheets.PrintOut , Copies:=1, preview:=False, Collate:=True End If Next i ActiveSheet.Select End Sub لطباعة الشهادات من 1 إلى 8 نكتب بصورة طبيعية 1 في الخلية v7 ونكتب 8 في الخلية w7 سيحولها الكود من 1 الى 4 لأن في كل صفحة شهادتين بالتوفيق

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

أنت أكثر من رائع

اخي الكريم .. السلام عليكم ورحمة الله وبركاته ,,تم اضافة معادلة عدد مرات البريد والزيارات ...تم كتابة نسبة الانجاز المحققة على اساس 100 زيارة او بريد شهري اذا كان الهدف 100 زيارة سنوي اقسم المعادلة المسجلة على 12 .. كما تم وضع معادلة الشهر ..ارجو ان ان يفي بالمطلوب المهام اليومية.xlsx

نعم هو ماطلب تحياتي لك

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

ثمانية مطلوبات !!!!!! ....... وكل واحد منهم يحتاج الكثير من العمل !!!!! الهدف الأساسي للمنتدى هو تبادل الخبرات ومساعدة كل منا للآخر فيما لا يستطيع عمله وليس في أن يصمم أحدنا للآخر برنامجا كاملا (فما مقابل الوقت والجهد المبذول في تصميم وبرمجة الملف؟؟!!) فالأفضل هو قراءة الموضوعات التي يتعلم منها الإنسان تصميم برنامجه بنفسه وإذا عجز عن نقطة أو اثنين على الأكثر يعرضها ساعتها سيجد الجميع يساعده

هذه ليست مشكلة إنما هي رسالة تخبر أن مشروع الأكواد vba في الملف لا يمكن عرضه (إخدى وسائل حماية صاحب الكود لأكواده)

بالتوفيق لا تنس اختيار أفضل إجابة والإعجاب بالمشاركات المفيدة لك

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

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

يمكنك معالجة هذا الأمر بوضع رقم الصف أثناء الجلب في متغير وعند الإضافة يختبر إذا كان المتغير فارغا فيقوم بالإضافة وإلا فيتم التعديل في رقم الصف الموجود في المتغير

السلام عليكم ورحمة الله جرب المرفق لعل فيه ما تريد... Hide (1).xlsm

أحسنت استاذ محمد بارك الله فيك وزادك الله من فضله

احبتي سوف نتعلم اليوم طريقة سهلة للغاية في اخفاء خلفية الاكسس عند الفتح نعم هذه الخلفية المزعجة نريد ان يعمل برنامجنا الرائع بدون ظهور هذه الخلفية الفكرة بإختصار !!! اخفاء هذه الخلفية على الأغلب غير ممكن بدون تدخل برمجي لكن مع توظيف الخصائص لصالحنا نجد أن اوفيس مشكورة اعطتنا حل سهل و بسيط التنفيذ اولاً / قم بإنشاء اختصار من برنامجك على اي مكان داخل الكمبيوتر و ادخل على الخصائص ثانيا و اخيرا اتبع الشرح في الصور و بكذا نكون انتهينا 1 قم بتغيير شعار الاكسس و ضع اسم جميل للاختصار الأن راح يعمل برنامجك بدون ظهور خلفية الاكسس و يكون الموضوع جميل مع اخفاء ايقونة الاكسس

اخي الكريم على الرغم انه ليس لدي تجربة في مشاركة الملفات ولكن من الكود لا يوجد دليل الملف الذي تم مشاركته عموما جرب هذا السطر ActiveWorkbook.SaveAs FileName, , , , , , xlShared يجب الاعلان عن متغير لدليل الملف ثم تقوم بتعيينه

الشكر لله استاذنا الغالي انا افضل التقسيم عن طريق المعالج ويمكن استدعاء المعالج عن طريق الامر DoCmd.RunCommand acCmdDatabaseSplitter

في الواقع انا طول عمري اعملها يدويا (من شب على شيء، شاب عليه 🙂 ) : اعمل نسخة من البرنامج ، واعطيه اسم البرنامج منتهيا بـ BE ، مثل: Abc_BE.accdb ، ثم احذف جميع كائناته ما عدا الجداول ، واحفظه في الشبكة في مسار تراه جميع الكمبيوترات ، والنسخة الاصل اعطيه اسم البرنامج منتهيا بـ FE ، مثل: Abc_FE.accdb ، ثم احذف جميع جداوله ، ثم من خلال قائمة البيانات الخارجية، اختار الـ BE واختار ربط ، واختار الجداول التي اريدها من BE ، ثم اضع على كمبيوتر كل مستخدم نسخة من هذا الملف 🙂 جعفر طبعا اخوي ابوخليل ، انت تدري ، مو انت المقصود من هذا الشرح 🙂

السلام عليكم ورحمة الله وبركاته احبتي الكرام : عطفا على هذا الموضوع ومن اجل تنوع العناوين ولان الموضوع فريد من نوعه ولاني اخذت اياما في تصميمه وتجربته رأيت ان افرده في موضوع وعنوان يخصه . تم تجربة العمل بنجاح فالحمد لله اولا وآخرا تم التجاوز والتغاضي عن التالي : 1- (((فتح مربع حوار لاختيار القاعدة البعيدة))) ، لاني اريد التحديث بنقرة واحدة ، وغالبا المبرمج ينصب برامجه في مكان واحد والاختلاف سيكون في اسم قاعدة البيانات ومن المنطقي ان يغير يدويا داخل الاداة لانه في الاصل سيعد الجداول يدويا . وايضا هذه الاداة له وليست للمستخدم وانما المستخدم منفذ وكل ما عليه عمله هو النقر على الزر . 2- ايضا تجاوزت فيما لو تم تغيير خصائص بعض الحقول او تغيير مسمياتها ، وعلى المبرمج معالجة مثل هذه المشكلات لو ظهرت يدويا ، ومثل هذه التعديلات المشكلة وصعوبة وتكلفة التعديل مستقبلا تجعل المبرمج يأخذ احتياطاته عند التطوير فيتحاشاها وحتى يتضح تماما خطوات العمل داخل الاداة فمن يريد تجربة المثال فيجب عليه التالي : 1- ادخل على المجلد fresh للاطلاع قبل اجراء اي عمل 2- افتح القاعدة db1.mdb وتصفح الجداول لترى البيانات ، باعتبارها القاعدة القديمة 3- افتح القاعدة dbmain.mdb وتصفح الجداول وسترى انها خالية من البيانات ويوجد فيها جدول زائد ( الجداول الجديدة المحدثة ) 4- استخرج المجلد fresh وضعه على قرص الــ D ( مؤقتا كتجربة سريعة) 5 - افتح القاعدة dbmain.mdb ثم انقر الزر 6- ارجع وتصفح الجداول في القاعدتين لترى الفرق طريقة الاستفادة من الأداة : اجلب الى قاعدة جداولك المحدثة : النموذج والوحدة النمطية فقط عدل الامتدادات ومسارات الملفات داخل النموذج وداخل الوحدة النمطية حسب رغبتك انتبه فيجب أن تكون جداولك نظيفة من البيانات الا الجداول الجديدة التي لا يوجد مثلها في القاعدة القديمة فيمكن ان تشتمل على بيانات مثلا اضفت جدولا جديدا باسم الجنسيات ووضعت فيه جميع الجنسيات ... وهكذا يمكنك ارساله الى العميل بصورته الحالية او تحويله الى mde تحديث قاعدة بيانات بعيدة استخرج المجلد الداخلي وضعه على القرص D.rar

السلام عليكم ورحمة الله وبركاتة طبعا هناك من سيقول هذا السؤل وضع في المكان غير المناسب علي اساس انة من المفروض ان يكون في صفحة الاكسيل وهناك سببين جعلني اضع السؤال هنا الاول - ان خبراء وقراء الاكسيس اكثر من الاكسيل وهذا واضح من خلال عدد الصفحات والمشاركات الثاني - ان مستخدمين الفيجوال في الاكسيس هم اكثر من مستخدمين الاكسيل وبالتالي نستفيد من مشاركتهم وتكوم ارائهم مفيد لخبرتهم في المجال وطبعا للمشرفين حرية نقل المشاركة والسؤال هو بيما ان كل من الاكسيس والاكسيل يمكن الاعتماد علي الفيجوال فيهما هل يعين هذا ان الاوامر التي تستخدم في فيجوال اكسيس نفسها يمكن استخدامها في فيجوال اكسيل لقد حاولت اكثر من مرة - وكلها كانت فاشلة - استخدام اوامر في الاكسيل من اوامر في الاكسيس مثلا : الامر close لكي يقوم بغلق الاكسيل دون الذهاب الي الزر x في اعلي الشاش يعني حاولت تصميم زر من خلال ماكروا ( فيجوال ) لغلق برنامج اكسيل دون الذهاب الي زر غلق يعطيكم العافية

احيانا عندما اخرج من برنامج معمول بالاكسس عند محاولة فتح الملف مرة اخرى تنشاايقونه اخرى مجاوره على سطح المكتب بشكل ايقونة الملف الذي اريد فتحه عليها علامه ونوع الملف هو Microsoft Access Record-Locking Information ولا استطيع فتح الملف الا بإعادة تشغيل الجهاز فهل يوجد حل لهذه المشكلة علما ان هذا لم يحصل معي الا في البرامج المعموله بالاكسس والويندوز الذي استخدمه xp

السلام عليكم ورحمة الله وبركاته الاخوه الاعزاء كل عام وأنتم الى الله اقرب وعلى العبادة ادوم لديّ مشكلة يبدوا انه خبيثة بالنسبة لى وهى لدىّ عمود به قيم مختلفة هكذه 10 - 20 - 30 - 10 - 30 - 30 - 10 مثلاً المطلوب إجمالى القيم 10 إجمالى القيم 20 إجمالى القيم 30 يكون فى ثلاث خانات فى نموذج يحسبوا قيمة عشرة ( 10 ) = 30 حسب المثال قيمة عشرة ( 20 ) = 20حسب المثال قيمة عشرة ( 30) = 90 حسب المثال جزاكم الله خيراً أريد حلاً او اقتراح بديل المهم الناتج يحسب كل قيمة لوحدها علماً أن كل القيم موجودة فى عمود واحد وجزاكم الله خيراً

السلام عليكم ورحمة الله وبركاته: وضعت صلاحيات العمل في البرنامج في جدول خاص يحتوي عل عشرين حقلا، وفكرت في تخزين قيمة هذه الحقول في متغيرات عامة Public لاختبار قيمتها عند أي مرحلة من مراحل البرنامج وبدلا من تسمية المتغيرات Var1... Var20 قمت بعمل مصفوفة من صف واحد Array وذلك لسهولة الاختبار وقمت بتعريفها تعريفا عاما Public والمشكلة كانت في أن المصفوفة تأخذ القيم ولكنها تفقدها عند مغادرة النموذج الذي تمت فيه تخزين قيم الحقول في المصفوفة . ولكم من الله جزيل العطاء

وجدت هذا المثال حيث يقوم بتغير الخطوط من ضمن قائمة الدوال api اخوك محمود FontorColorDialogs.zip

الاخوة الكرام لدي جدول مكون من حقلين t1 ,t2 ماأريده هو جمع الحقلين لاكن في جدول فقمت بالتالي : أنشأت استعلام من الجدول ثم أنشأت في الاستعلام بجملة sql حقل ثالث عبارة عن جمع الحقلين ثم تخزن القيمة في t3 كمايلي : t1 + t2 AS t3 وعدلت الاستعلام الى استعلام انشاء جدول وعمل بشكل طبيعي سؤالي هو اريد من خلال الاستعلام اذا كانت قيمة المجموع قيمة عشرية اريد تحويلها الى عدد صحيح مباشرة ومن خلال الاستعلام اي بجملة sql ملاحظة : يمكن عملها من خلال الجدول ومن خصائص الحقل t3 اختر ت من حجم الحقل عدد صحيح لاكن هذه الطريقة سوف تلغى اذا اعدت الاستعلام من جديد .