مهند عبادي

If Combo1.Text = "نوع الجهاز" Then On Error GoTo errr Dim s1 As String s1 = "select * from Table1 where typ = '" & Trim(txtSearch) & "'" Set rs = db.OpenRecordset(s1, 2) Set MY = ListView1.ListItems.Add MY.SubItems(1) = rs!id MY.SubItems(2) = rs!Code MY.SubIte…

السلام عليكم يجب التفريق بين الدارسين وغير الدارسين .. وليس التفريق بين المهندسين وغير المهندسين !! هناك فرق المهم برأيي أن يكون الشخص قد درس الموضوع الذي سيعمل به أياً كان هذا الموضوع .. وهنا يتم تفضل الواحد عن الآخر من حيث مدى عمق دراسته ومدى استيعابه لما در…

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

لا تنسوا أخوتي الأكارم أن أغلب البرامج تعتمد على المكتبات وهذه المكتبات يمكن تصميمها بعدة لغات لذلك برنامج معين (مصمم على الدلفي مثلاً ) يمكن أن يستخدم مكاتب مصممة بالسي++ أو بالفيجوال أو بلغات أخرى

أريد أن آخذ رأيكم في مسألة اخراجية .. أرفقت ملف به نموذجين .. هما نفس النموذج ولكن يختلفان في موقع الأزرار .. أرجو من الكل إعطاء رأيه .. هل الأزرار في الأعلى أجمل .. أم في الأسفل ؟؟؟ طبعاً لسنا معتادين على وجود الأزرار في الأعلى .. ولكن برأيي لا مانع من مخالفة…

أخي فهد .. نموذج البحث عن لاعب يتم فتحه من خلال نماذج أخرى .. حتى الآن نقوم باستدعاءه من خلال نموذج الانتقالات وعندما يفتح النموذج يعرض أسماء كل اللاعبين في الـ List .. وعند تطبيق معايير البحث يظهر في الـ List من ينطبق عليه تلك المعايير .. زر موافق يكون غير فع…

نبارك للأخ المبدع StarNoor2000 نيله لقب خبير أكسس وهو يستاهل أكثر لقاء ما رأينا منه حب مساعدة الآخرين وعدم التواني عن تقديم كل ما يملك في سبيل نشر العلم فأقول له ألف ألف مبروك .. وإلى الأمام دائماً

أخي الكريم هل عمل الكود الأخير بعد التعديل كما يجب ؟ أم أنك ما تزال بحاجة للمساعدة ؟؟

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

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

هذا مثال على السريع لأسلوب التعامل مع التحديد المتعدد test.rar

أخي الكريم لقد حملت الملف المرفق .. وجربت الحدث المكتوب فيه . وقد عمل بشكل صحيح !! وقد عملت يه اختصاراللكود كما يلي : Dim count As Integer Me![subform].SetFocus Me![subform].Form![VisaName] = DLookup("[VisaType]", "VisasType", "[VisaCode] = " & [Forms]![frmAdd…

اعمل كما قال لك الأخ jaffjaff وإذا لم تحل مشكلتك وكان المطلوب شيء آخر .. قم بارفاق الملف

إذا كنت مصراً على استخدام أسلوب الاستعلام .. فيجب إضافة حقل Boolean إلى الجدول .. ثم تعمل Loop تضع كل هذه السجلات المحددة قيمة حقلها = True ثم تعمل الاستعلام الذي تريده ملاحظة : تم تغيير عنوان الموضوع لأنه مخالف لقواعد المشاركة*

تفضل أخي النرجس وآسف على التأخير .. ملاحظة : ===== أسماء الجداول والحقول بالعربي أتعبتني !! الرجاء في المستقبل عدم استخدام الأسماء العربية المدارس.rar

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

مشكور أخي المبرمج مثال جميل جداً ولكن لماذا تريد وضع كلمة مرور المستخدم ؟؟؟ ما فائدتها !

أخي الكريم .. كل ما طلبته ممكن حدد أي حل تريد ثم أرفق الملف لكي نقوم بمساعدتك إن شاء الله

أخي الكريم أنا أفضل في هذه الحالة استخدام حدث "قبل التحديث للنموذج" حيث نختبر المفتاح الأساسي فإذا كان فارغ نضع قيمة Cancel = True ونضع الرسالة التي نريدها

أخي الكريم استخدم الترقيم التلقائي نفسه الذي وضعته لك في مثال في موضوع سابق على هذا الرابط /index.ph...ndpost&p=203431