أمجد جمالي

السلام عليكم ورحمة الله وبركاته في الحقيقة اخي الكريم في الفترة الاخيرة بدأت اتبع طريقة Ado للوصول الى البيانات اثناء العمل ضمن ال VBA فلا داعي لأن تحتار ايضاً بين استخدام ال Dao وال Ado في برنامجك ومنذ ان اصدر Access 2002 فلم تعدل شركة مايكروسوفت في Dao اي شيء حيث اضافت عليه فقط تصحيحاً لبعض الأخطاء. والفرق بين الاثنين هو ان Dao يقتصر فقط على محرك Jet بينما تستطيع التعامل مع Ado في شبكة الانترنت وبشكل اسهل واكثر شمولية من السابق وتستطيع ان تقول بأن ال Dao بدئ يتلاشى او ينقرض وعليك الان بتطوير برنامجك Ado بدون ادنى شك بإذن الله هذا رأي من خلال تجاربي وافسح المجال لأهل الخبرة تحياتي ابو نادر

السلام عليكم وين ارائكم ياشباب وين مو بس هيك الي طلب البرنامج لحد الأن ما حمله شي بيقهر والله

السلام عليكم ورحمة الله وبركاته رمضان كريم علينا وعليكم ياشباب سبق وارفقت وصلة لبرنامج سيتب لشركة InstallShield والمشكلة البرنامج ديمو مؤقت يعني وسعره 1200 دولار وانا من عشاق واشد معجبين بهذا الربنامج فياريت اي واحد عندو هذا الاصدار بالذات ومجاني يفيدنا جزاه الله خير تحياتي ابو نادر

اخي الكريم هل انحلت المشكلة ام لاء وهل تستطيع ارسال الملف الى ايميلي وهو AJamali@acts-alsarh.com

لم أفهم ما هو المطلوب بالضبط هل من الممكن ان توضح اكثر فالحمدلله خبرتي جيدة في ال Ado وال Dao تحياتي ابو نادر

السلام عليكم ورحمة الله وبركاته من بعد أذن الأستاذ سهل ارفقت في هذه الوصلة مثال عن كيفية ادراج قوائم بالكود تفضل لعله يفي بالغرض http://www.officena.net/ib/index.php?act=A...e=post&id=22584 تحياتي ابو نادر

السلام عليكم ورحمة الله وبركاته اعتقد أخي الكريم بأن هذه الطريقة اكثر احترافاً فهذه الطريقة تعرض رسالة تفيد بأن هناك إزدواجية في قاعدة البيانات كما تعرض اسم صاحب الرقم بالعربي والانجليزي ومن يجد صعوبة في فهم الشفرة يكتبلي وانا برفق مثال تحياتي للجميع ابو نادر Private Sub EmNo_AfterUpdate() On Error GoTo Err_Form_EmNo Dim CnnLocal As New ADODB.Connection Dim RstSrchforDublc As New ADODB.Recordset Const ConErrNoValue = "3021" Const ConErrInvalidUseOfNull = "94" Set CnnLocal = CurrentProject.Connection RstSrchforDublc.Open "TblDataEmployee", CnnLocal, adOpenStatic RstSrchforDublc.Find "EmNo LIKE '" & EmNo & "'" StrEmpNameEng = RstSrchforDublc!EmName StrEmpNameArb = RstSrchforDublc!EEmName Result = RstSrchforDublc!EmNo RstSrchforDublc.Close If Result = EmNo Then DisplayMessageCritical "There's Duplicate Employee No. " & Result & " For" & vbCrLf & "" & vbCrLf & _ "Employee :" & StrEmpNameArb & "" & vbCrLf & "Employee :" & StrEmpNameEng & "" & vbCrLf & "" & vbCrLf & _ "In Administrative Personal DataBase.", "Duplicate Employee No." End If Exit_form_EmNo: Exit Sub Err_Form_EmNo: If Err.Number = ConErrInvalidUseOfNull Then Resume Next ElseIf Err.Number = ConErrNoValue Then RstSrchforDublc.Close Else RstSrchforDublc.Close DisplayMessageCritical Err.Description, "Error Message" End If Resume Exit_form_EmNo End Sub

السلام عليكم ورحمة الله وبركاته اخ جمال عذراً عى التأخير مرفق الملف وأرجو أن ينال إعجابك اسم المستخدم Administrator الباسورد Admin اسم مستخدم الطالب هو Limited الباسورد Limited المثال أيضاً يحتاج الى بعض التعديل وسوف يتم تحضير عدة أسئلة وفي حال الانتهاء منها سوف أرفقها لتختار ما تريد تحياتي ابو نادر OfficnaProject.zip

السلام عليكم تفضل ضع هذا الكود عند النقر المزدوج للماوس في حقل التاريخ If IsNull(Me.TxtDate) Then Me.TxtDate = DateTime.Day Else MsgBox "Can't edit record no update permission for " & CurrentUser & "", vbCritical, "Record Flaged" End If فقط عدل TxtDate بأسم الخانة في برنامجك بإمكانك ايضاً حماية البيانات من التعديل في النموذج عن طريق هذا الكود Me.AllowEdits = False تحياتي

السلام عليكم اخ نشوان بالنسبة لهذه الرسالة فهذه اكيد فيروس على كل الاحوال مهما حدث لا تعمل فورمات للهارد هذه واحد 2-استخدم هذه الاكواد التالية في البحث لعلها تعود بنتيجة بأذن الله *.bkf *.mdb *.mde الكود الاول للبحث عن جميع ملفات البكاب المخفية والغير مخفية الثاني لقواعد بيانات الاكسيس المخفية والغير مخفية الثالث لقواعد بيانات Mde المخفية والغير مخفية طبعاً خلي نطاق البحث في جهاز الكمبويتر بأكمله 3- ال System Restore لا ينفع في هذه الحالة فهو لا يعيد الملفات التي انحذفت من الهارد ينفع فقط في حال حدوث مشكلة عند انزال برنامج او انعطاب ملف نظام 4- يوجد برامج كثيرة لاستعادة نسخة من البرنامج حتى لو حذف من الهارد وانا عندي برنامج قوي وسهل ومجربه ونتائجه مضمونه بأذن الله بس حجمه كبير جداً ولاينفع تحميله الى هذه الموقع حجم الملف 250 MB اذا كنت في السعودية بإمكاني ارساله لك

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

على عيني طيب من وين رح جيب الاسئلة ولا اعمل شي افتراضي مؤقتاً عندي فكرة حابب اطرحها عليك عند التحاقي بالجامعة خضعت لإمتحان تحديد المستوى باللغة العربية والانجليزية الامتحان عبارة عن 100 سؤال بالعربي و100 بالانجليزي مقسمة الى 3 مجموعات وكل مجموعة منفصلة عن الاخرى يعني لايمكن الانتقال الى المجموعة الثانية الى عند الانتهاء من المجموعة الاولى ولا يمكن الرجوع من المجموعة الثانية الى المجموعة الاولى ومدة كل مجموعة 45 دقيقة كما يوجد اسفل كل سؤال شيك بوكس وهو يفيد في حال الرغبة بالانتقال الى السؤال التالي والإجابة على هذاالسؤال في وقت لاحق يعني لايستطيع الطالب انهاء المجموعة الا اذا كانت قيمة الشيك بوكس لجميع الاسئلة 0 شو رئيك بهالطريقة منتظر ردك تحياتي

السلام عليكم ورحمة الله وبركاته تم بعون الله اكتشاف ثغرتين في مثال تحديد احداثيات الماوس وهي 1-تتغير الاحداثيات عند تغير دقة عرض الشاشة مثلاً 800 * 600 الى 1024 * 768 او بالعكس 2-الثغرة الثانية وهي في النموذج الذي يتم فيه تحديد الاحداثيات تختلف الاحداثيات ايضاً عند تحريكه من اعلى الى اسفل ومن يمين الى يسار تم تعديل الثغرات في هذا الملف تحياتي ابو نادر NewCursorPosition.zip

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

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

السلام عليكم تفضل في المثال المرفق 1-تم تحديد الاحداث الخاصة بالزر الايمن والاوسط والايسر للماوس عند الضغط عليه 2-تحديد احداثيات الماوس X Y عى الشاشة وبانتظار ردك ورد الزملاء ويالله ياشباب ايد وحده ما بتسفق تحياتي CursorPosition.zip

هناك طرق عديدة 1- الاطلاع على البرامج والاستفادة من خبرات الغير 2-قرائة الكتب الاجنبية والعربية وتطبيق الامثلة خطوة بخطوة من هذه الكتب 3-الاستفادة من ملفات المساعدة Help سواء في الاكسيس او في VBA 4-التجريب والتخبيص ولا تخاف ما رح ينفجر معك الجهاز يوجد العديد من الكتب الخاصة بالمبتدئين في الاكسيس انصحك تبدئ بكتاب اسمه Visual Basic for Access 2002 كتاب اجنبي مترجم الى العربية و لا تتردد بطلب المساعدة تحياتي

افتح النموذج في وضع التصميم من قائمة عرض اختر خصائص بعدين اختر حدث او Event ابحث عن كلمة عند الفتح او On Open انسخ الكود ثم الصقه احفظ ثم اغلق بس تحياتي

السلام عليكم تفضل اخ بتال هذا هو المثال من الممكن ان تكتشف بعض العيوب من خلال تطبيق هذا المثال في برنامجك وذلك للأسباب التالية 1-هذه الطريقة لم انشرها بعد على الشبكة يعني لم يجربها اي مدخل بينات عندي 2-من الممكن ان تلاحظ بطئ في البرنامج خصوصاً اذا كان عدد السجلا ت كبير لتفادي ذلك بإمكانك تقليل عدد الايام الى 20 اذا احببت من بعد الدراسة والتفكير الطويل وجدت بأن هذه هي افضل طريقة وانا ارحب بأي اقتراح من أي عضو والسلام عليكم CheckingExpiryDate.zip

السلام عليكم في الحدث عند الفتح ضع هذا الكود DoCmd.GoToRecord , , acNewRec تحياتي

السلام عليكم اخي الكريم الشاعر هل جربت التعامل مع Select Case وبما انها بتأدي نفس الغرض ليش لاء أنصحك فيها ليسهل صيانة وتعديل الشفرة في المستقبل تحياتي

السلام عليكم ورحمة الله وبركاته اضافة على الاستاذ سهل اذا حبيت تغير من العربي الى الانجليزي وبالعكس عن طريق الكود تفضل '--Change To Arabic CustomerName.KeyboardLanguage = 3 CustomerName.ReadingOrder = 2 CustomerName.TextAlign = 3 '--Change To English CustomerName.KeyboardLanguage = 11 CustomerName.ReadingOrder = 1 CustomerName.TextAlign = 1 بدل اسم الخانة CustomerName بأسم الخانة الي في برنامجك وبما اني احب التحكم والتعامل مع الاكواد بنصحك تجرب تحياتي

السلام عليكم ورحمة الله وبركاته إضافة على ردود الاساتذة سهل وجمال انا دائماً بتكرر معي هذه المشكلة والعيب مو في البرنامج العيب في اعدادات الويندوز نفسه اتبعي الخطوات الي انا ذكرتها في الرابط ومافي داعي لانشاء قاعدة بيانات جديدة او ازالة بعض الازرار والاوامر http://www.officena.net/ib/index.php?showtopic=4291 علماً ان هذه الرطيقة على ويندوز 2000 اما اذا كان الويندوز اكس بي اتبعي الخطوات التالية 1- ابداً 2-لوحة التحكم 3-الاعدادات الاقليمية واللغوية او Regional and Language Options 4-خيارات متقدمة 5-من القائمة اختاري العربية السعودية 6-وبتعلمي على صندوق تطبيق كافة الاعدادت على المستخدم الحالي وعلى التشكيل الجانبي للمستخدمين والرجاء الرد في حال نجحت هذه الطريقة ام لا تحياتي

السلام عليكم اخ جمال في الوقت الحالي اعمل على تحديد احداثيات الماوس وعند الانتهاء سوف ارفق الملف مع تحياتي

ابشر ولا يهمك عطيني يومين بس وتكرم عينك