محب العلم

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

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

السلام عليكم في وضع التصميم للجدول ، تظهر قائمة الخصائص وفي التنسيق يوجد خاصية خاصة باتجاه الجدول مع الاحترام

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

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

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

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

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

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

السلام عليكم بواسطة استعلام التحديث يمكن تحديث البيانات والحقول المطلوبة دون المساس بأية حقول أخرى ، كما أن استخدام استعلام التحديث آمن ولا خوف منه. ما هي الحقول التي تود تحديثها وسأكتب لك استعلام التحديث ؟ مع الاحترام

السلام عليكم نعم أخي يوجد طريقة برمجية لإستيراد البيانات المخزنة في نموذج بيانات في ورد إلى جدول أكسيس . والطريقة هي ببناء جدول في أكسيس فيه نفس الحقول التي في نموذج الورد وثم تطويع الكود الآتي للعمل المطلوب Sub GetWordData() Dim appWord As Word.Application Dim doc As Word.Document Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim strDocName As String Dim blnQuitWord As Boolean On Error GoTo ErrorHandling strDocName = "C:\Contracts\" & _ InputBox("Enter the name of the Word contract " & _ "you want to import:", "Import Contract") Set appWord = GetObject(, "Word.Application") Set doc = appWord.Documents.Open(strDocName) cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\My Documents\" & _ "Healthcare Contracts.mdb;" rst.Open "tblContracts", cnn, _ adOpenKeyset, adLockOptimistic With rst .AddNew !FirstName = doc.FormFields("fldFirstName").Result !LastName = doc.FormFields("fldLastName").Result !Company = doc.FormFields("fldCompany").Result !Address = doc.FormFields("fldAddress").Result !City = doc.FormFields("fldCity").Result !State = doc.FormFields("fldState").Result !ZIP = doc.FormFields("fldZIP1").Result & _ "-" & doc.FormFields("fldZIP2").Result !Phone = doc.FormFields("fldPhone").Result !SocialSecurity = doc.FormFields("fldSocialSecurity").Result !Gender = doc.FormFields("fldGender").Result !BirthDate = doc.FormFields("fldBirthDate").Result !AdditionalCoverage = _ doc.FormFields("fldAdditional").Result .Update .Close End With doc.Close If blnQuitWord Then appWord.Quit cnn.Close MsgBox "Contract Imported!" Cleanup: Set rst = Nothing Set cnn = Nothing Set doc = Nothing Set appWord = Nothing Exit Sub ErrorHandling: Select Case Err Case -2147022986, 429 Set appWord = CreateObject("Word.Application") blnQuitWord = True Resume Next Case 5121, 5174 MsgBox "You must select a valid Word document. " _ & "No data imported.", vbOKOnly, _ "Document Not Found" Case 5941 MsgBox "The document you selected does not " _ & "contain the required form fields. " _ & "No data imported.", vbOKOnly, _ "Fields Not Found" Case Else MsgBox Err & ": " & Err.Description End Select GoTo Cleanup End Sub الكود أعلاه يسأل عن أسم المستند في ورد الذي به نموذج البيانات وثم يفتح اتصال بين وورد وأكسيس ويعبىء الجدول الموجود في أكسيس بالبيانات التي في نموذج ورد ، مما لا شك فيه أن هناك تغييرات يجب أن تعمل على هذا الكود من حيث موقع واسم المستند الذي نريد استيراد البيانات منه وكذلك أسماء الحقول في نموذج البيانات في ورد واسماء الحقول التي في أكسيس . إذا احتجت مساعدة في تغيير الكود أرجو منك رفع ملف الورد ومصدر البيانات المعتمد عليه وسأحاول مساعدتك في تطويع الكود. مع وافر الاحترام

السلام عليكم أخي أبا أكرم (أكرمك الله) وأخي السائل ، 1. إذا تم تصميم النموذج مستندا إلى جدول معين ، ثم بعد إكمال تصميمه وضبطه بالصورة التي نحبها والعمل عليه في وضع التصميم، وهذا الأمر قد يأخذ وقتا طويلا ، أحببنا تغيير مصدره من جدول إلى عدة جداول فإن ذلك يتم من خلال تغيير مصدر النموذج من صفحة الخصائص حيث نختار الثلاث نقاط كما في الصورة التوضيحية : وبعدها ندخل إلى تصميم الاستعلام ونختار ما نشاء (إن شاء الله) من الجداول والحقول . 2. بالنسبة لإضافة نموذج فرعي بعدما تم تصميم النموذج فالأمر في بسيط بإذن الله وذلك يتم أولا بتصميم النموذج الفرعي وحفظه ثم من النموذج الرئيسي ومن شريط مربع الأدوات نختار نموذج فرعي وعندما نضعه في النموذج نختار اسم النموذج الفرعي التي تم تصميمه وفي النهاية من الخصائص للنماذج الفرعي نحدد حقو الربط الأساسية والفرعية التي سيرتبط النموذج الفرعي والأساسي بناءً عليها. مع وافر الاحترام والتقدير

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

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

السلام عليكم الأخ الدكتور جابر المحترم ، تفضل الكود لقراءة المازربورد Private Sub cmd_Click() Dim objs Dim obj Dim WMI Dim strMBD Set WMI = GetObject("WinMgmts:") Set objs = WMI.InstancesOf("Win32_BaseBoard") For Each obj In objs MsgBox "MotherBoard Number: " & obj.SerialNumber Next End Sub مع وافر الاحترام

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

السلام عليكم اليك هذه الفكرة أخي ، أملا ان تساعدك PrintReport.zip مع الاحترام

السلام عليكم أخي ميدو ، المعادلة بسيطة جدا جدا IIf(Round([nr]/10-Fix([nr]/10),0)=0,Fix([nr]/10)*10,Fix([nr]/10)*10+5) المثال example.zip مع فائق الاحترام

السلام عليكم أهلا وسهلا ومرحبا بمحبي العلم وداعميه ومشجعيه ، عسى الله أن ينفعكم بما علمني وينفعني بما علمكم. شكرا لإخواني الأحباب ومشرفينا الكرام رضوان ويوسف ومنذر عساج على التشجيع والدعم، وإنه لفخر لي مروركم . وشكرا لأخي nart lebzo واخي حامل المسك على التشجيع الكبير والتواصي الدائم وشكرا لأخي mr toto . مع فائق احترامي وتقديري لكم ولجميع الاعضاء ولكم مني جميعا محبكم محب العلم

المثال الخامس عشر كيفية برمجة زر ذو حالة متبدلة للتبديل بين وضعي العرض (منع التعديلات) والتعديل (سماح التعديلات) في النموذج بيئة العمل : أكسيس 2003 و 2007 المقدمة كلما زاد التحكم في النموذج ووفرت بيئة استخدام آمنة ومريحة للمستخدم كلما أصبح البرنامج صديقا للمستخدم بشكل أكبر وأصبح من الممكن الاعتماد على البرنامج واستخدامه مشجعا أكثر وطبعا أقل مشاكل. يعمد مبرمجو الأنظمة إلي عمل عدة أوضاع للنموذج عوضا عن بناء نماذج للإدخال ونماذج للعرض وأخرى للإضافة وهكذا ... ، في هذا المثال سأشرح طريقة من تصميمي تعتمد على زر ذو حالة متبدلة للعرض والتعديل. التفاصيل من المعروف أن الصور الرمزية التي تستخدم مع أزرار أكسيس لا يمكن تغييرها خلال فترة تشغيل النموذج لذلك سنقوم بوضع زرين فوق بعضهم في النموذج وهما : الزر الأول لوضع التعديل (يعني الزر الذي سيسمح للمستخدم تعديل البيانات ) الزر الثاني لوضع العرض (بمعنى الزر الذي سيمنع المستخدم تعديل البيانات) ثم نضع هذه الأزرار فوق بعضها فتظهر كأنها زر واحد في النموذج جاعلين زر سماح التعديل في الأمام ومنع التعديل في الخلف لأننا نريد عندما ندحل للنموذج أن نكون في وضع منع التعديل هكذا الآن يجب أن نضع كود يسمح التعديل أو يمنع التعديل حسب الزر الذي نضغط عليه وبالطبع فإن هذا الكود سيوضع في حدث النقر لكل زر هكذا Private Sub c1_Click() Me.ambId.SetFocus Me.c1.Visible = False Me.c2.Visible = True Me.Form.Caption = "تعديل" Call Lock_Edit(Me.Form, False) End Sub Private Sub c2_Click() Me.ambId.SetFocus Me.c1.Visible = True Me.c2.Visible = False Me.Form.Caption = "عرض" Call Lock_Edit(Me.Form, True) End Sub لاحظ ما نفعله هنا أولا تحويل التركيز إلى حقل غير الزرين لأننا سنخي الزر الذي ضغطناه ونظهر الأخر ومن المعروف أنه لا يمكن اخفاء زر يمتلك التركيز. ثم نخفي الزر المضغوط ونظهر الأخر النتيجة التي سيراها المستخدم هي وكأن الزر تم تبديل صورتة وهذه نتيجة تحايلية عن عدم القدرة على تغيير الصور الرمزية لأزرار أكسيس. ثم تغير عنوان النموذج الرئيس ليظهر الوضعية الحالية للنموذج (عرض أو تعديل) ومن الممكن أن تتساءل لماذا جعلت الإجراء الخاص بالوضع إجراءا عاما في وحدة نمطية وهو الذي أطلبه lock_edit والجواب أنني أريد أن أستخدم هذا الإجراء في جميع نماذجي وليس في نموذج واحد فحسب. الآن أنظر معي لطريقة العمل على تبديل الأوضاع : Sub Lock_Edit(F As Variant, S As Boolean) Dim Ctl As Control For Each Ctl In F.Controls If Ctl.Tag <> 0 Then If Ctl.ControlType = acTextBox Or Ctl.ControlType = acComboBox _ Or Ctl.ControlType = acCheckBox _ Or Ctl.ControlType = acSubform Then Ctl.Locked = S If S = True Then Ctl.SpecialEffect = 1 Else Ctl.SpecialEffect = 0 End If End If Next Ctl End Sub ما أعمله هنا هو أنني افحص كل حقل فإذا كان مربع نص أو مربع اختيار أو نموذج فرعي أو مربع تحرير وسرد فإنه يتم تأمينه من خلال خاصية التأمين locked وليحس المستخدم بالفرق بين الوضعين اغير في شكله من خلال الخاصية speciialeffect . السؤال والفكرة الجميلة هي ماذا لو أردت لبعض عناصر التحكم أن لا تخضع لوضعي التبديل على سبيل المثال مربع تحرير وسرد يستخدم للبحث عن سجل والجواب هو أنني استخدمت فكرة بسيطة باستغلال خاصية tag لذلك العنصر فإذا وضعت فيها 0 في وضع التصميم للنموذج فإنني أعني بذلك أن هذا العنصر لن يخضع لعملية التبديل . الشيء الأخير والمهم لإكمال العمل هو تحديد وضع العرض عندما نفتح النموذج وذلك يتم هكذا Private Sub Form_Open(Cancel As Integer) Me.c1.Visible = True Me.c2.Visible = False Me.Form.Caption = "عرض" Call Lock_Edit(Me.Form, True) End Sub أملا أن تكونوا استمتعتم واستفدتم من هذه الفكرة 2003_2007.zip مع وافر الاحترام والتقدير

الله يا ربي يفك أسر المأسورين والمحاصرين في غزة وفي كل فلسطين وفي العراق وفي كل بلاد المسلمين

شكرا لك ، السؤال الأول :الجمع في النموذج يتم عن طريق استخدام الدالة sum بالنسبة للسؤال الثاني : بجعل الجدول مصدر البيانات للنموذج ويمكن عمل ذلك بسهولة وانت في وضع التصميم للنموذج . أين قاعدة البيانات :') مع وافر الاحترام

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

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

السلام عليكم حياك الله أخي غالي مفيش أي تعب إن شاء الله كان في مشكلتين تمنع ظهور التقرير كما تريد أول مشكلة هي أنك قد عملت في التقرير حق تجميع حسب كود الجهة وهذا تم حذفه و المشكلة الثانية ان مصدر التقرير كان يختلف عن مصدر النموذج وكذلك تم حذف استعلام بحث واستبداله بجدول بيانات في التقرير . DATAFinal2003.zip مع وافر الاحترام