فتى الوادي

السلام عليكم .. أخي الكريم الجدول في القاعدة الرئيسية على السيرفر مخفية ... أما على الأجهزة الأخرى ( جداول مرتبطة مع القاعدة على السيرفر ) فهي ظاهرة وحاولت أخفاءها بالكود ولم ينفع ..!!!

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

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

السلام عليكم .. عندي جدولين بينهما علاقة ... السؤال هو كيف أطلع عدد الأشخاص وعدد القضايا منهما ؟ ولعل المثال المرفق يوضح ذلك ... www.3ar.us/6/db4.rar

السلام عليكم .. السؤال : كيف أقوم بأنشاء جدول جديد وأقوم بتسميته ... ثم نقل بيانات من جدول آخر إليه .. ؟! مثال : عندي جدول اسمه t_data وفيه بيانات من الحقول ( الاسم - الرقم - المبلغ - التاريخ ) أريد أن أقوم بأنشاء جدول جديد بالكود وأقوم بتسميته ( مثلاً ) 1425 ... ثم أنقل له بيانات محدده من تاريخ إلى تاريخ ... والهدف من ذلك هو تصدير البيانات وترحيلها إلى جدول يخص تلك البيانات بحيث أستطيع البحث في كل جدول على أنفراد .. وسلامتكم .

السلام عليكم ... إذا كنت تقصد رسالة ترحيب في بداية تشغيل البرنامج لأول مرة يشغل فيها البرنامج .. فضع الكود التالي في حدث عند الفتح للنموذج الذي يعمل في البداية . معنى الكود أنك تخبره بهذا الشرط : إذا كان عدد السجلات من الحقل txta من الجدول t_1 تساوي 0 إذناً أظهر هذه الرسالة " مرحباً بك في برنامجنا .. نتمنى لكم وقتاً ممتعاً " وإذا كان خلاف ذلك فأنسى ما قلت لك . وإليكم الكود : If DCount("[txta]", "t_1") = 0 Then MsgBox "السلام عليكم ورحمة الله وبركاته " & _ vbCrLf & " مرحباً بك في برنامجنا .. نتمنى أن تقضي وقتاً ممتعاً " Else End If وذلك على أفتراض ان txta اسم حقل ( أي حقل في الجدول ) و t_1 اسم الجدول

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

استخدم الكود التالي : If Me.b > Me.a Then MsgBox " Cancel = True DoCmd.GoToControl "a" Me.b.SetFocus Else End If

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

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

وعليكم السلام .. المسالة بسيطة ... أستخدم دالة IF... then أو أرفق ملف ونضع لك الكود مع الشرح .. والسلام

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

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

السلام عليكم .. ممكن توضيح اكثر للمطلوب .

السلام عليكم هذا رابط نسخة عرض برنامج تسديد الأقساط http://members.lycos.co.uk/sahman/up_ar/ar/Tsded.zip برنامج تسديد الأقساط والديون اسم المستخدم ( محمد ) كلمة السر ( 1 )

السلام عليكم .. عندي برنامج مشابه لطلبك .. ارجوا الأتصال 0505116119 او البريد : amotaib@hotmail.com

شكراً لكم جميعاً ...

السلام عليكم عندي نموذج لا يستند إلى جدول .. وفيه مربعات نص كثيرة كما تشاهدون في الصورة .. المطلوب أن أجعل أي مربع نص فارغ أن يحمل رقم ( 0 ) .. إذا أستخدما كود لكل مربع .. فأنه سيكون عندنا كود طويل جداً ومكرراً .. فهل هناك كود يصلح أن يحل هذه المشكلة !!؟؟ www.drr.cc/files/pic/de5/zero.jpg

السلام عليكم أستخدم ( التنسيق الشرطي ) في شريط الأدوات

السلام عليكم .. هذه نسخة تجريبية من البرنامج .. ويعمل على أوفيس اكسيس XP www.drr.cc/files/gen/de/adwat.zip

السلام عليكم ... عملنا برنامج مشابه لما ذكرته .. انظر الرابط المرفق اسفل ... للمفاهمة جوال 0505116119 amotaib@hotmail.com تصميم البرامج

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

السلام عليكم لقد عملنا برنامج يشابه ما طلبته .. وهو مخصص لتوزيع المعاملات على القضاة والمشائخ في المحاكم الشرعية لتوزيع المعاملات بينهم بالتساوي مع التقارير والبحث والطباعة . للأستفسار يمكنك الأتصال على الجوال 0505116119 أو الأيميل : amotaib@hotmail.com

السلام عليكم عندي 43 فرعاً في مدينة الرياض .. واريد أن تكون مربوطة بالإدارة الرئيسية .. بحيث يكون البرنامج على السيرفر في الأدارة .. وأي بيانات من الفروع تكون مباشرة في الرئيسي ... فما هي أنواع الربط بالشبكة بين الفروع ... ؟! ولكم الدعاء بالخير مقدماً والسلام عليكم

السلام عليكم .. ضع هذا الكود بعد التحديث لحقل الرقم .. على أفتراض أن اسم الحقل txt1 واسم النموذج form1 والجدول tb1 If (Eval("DLookUp(""[txt1]"",""[tb1]"",""[txt1] =form![txt1]"") Is Not Null")) Then Beep MsgBox "عفواً سبق أدخال الرقم" Me.Undo Cancel = True Else end if