jo_2010

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

الخبراء الافاضل بعد التحية مرفق نموذج للتعديل مع صورة للمطلوب JO.accdb

استاذى ومعلمى الجليل الخبير الفاضل jjafferr شكرا لحضرتك ياصاحب اجمل تورتة قدمتها لى ولجميع اعضاء المنتدى وهى التعامل مع الدالات بجميع انواعها شكر خاص لحل مشكلتى التى اتعبتنى اسابيع لقلة خبرتى جعل الله علمك الذى لا تبخل بة على احد فى ميزان حساناتك ياريت تخبرنا وين كانت المشكلة 🙂 المشكلة كما اشرت حضرتك المسافة الموجودة بالكود واسم الحقل كنت بكتبة kind_haraka كما بالجدول ولكنى فى النموذج احتصرت الاسم الى KH الشكل النهائى للكود الصحيح Dim myWhere As String myWhere = "fat_num = " & Forms!Fatora_be!Fat_num " myWhere = myWhere & " And "'" & myWhere = myWhere & "kind_haraka = '" & Forms!Fatora_be!KH Me.total_fatora = Nz(DSum("total", "Haraka", myWhere), 0)

الخبير الفاضل jjafferr خالص الشكر على التورتة الجميلة ولكن لى استفسار لقلة خبرتى بالاكسيس هل الكود يكتب بنفس الطريقة مع العلم بان fat_num رقمى kind_haraka نصى وهل اختيارى لشكل الدالة بهذا الشكل صيحيح ام خاطى وما هو التعديل الصحيح قمت بوضعها فى حدث عند النقر على مفتاح بهذا الشكل واعطى رسالة خطا ماذا افعل يامعلمى واستاذى الفاضل Dim myWhere As String myWhere = "fat_num = " & Forms!Fatora_be!Fat_num " myWhere = myWhere & " And "' " & myWhere = myWhere & "kind_haraka = '" & Forms!Fatora_be!Kind_haraka Me.total_fatora = Nz(DSum("total", "Haraka", myWhere), 0)

استاذنا الفاضل SEMO.Pa3x الكود لايعمل شكرا لاهتمامك

استاذى الفاضل محمد أبوعبدالله الكود لايعمل مع الاسف وقمت باستبدال ; ب , لان الكود vba

الخبراء الافاضل بعد التحية حاولت بكل الطرق لكني فشلت فقررت استعين بخبراتكم عندى مربع نص اسمة total_fatora اريد عند الضغط علي زر يتم تجميع حقل total من جدول Haraka بشرطين الاول رقم الفاتورة fat_num = forms! Fatora_be! Fat_num والشرط الثاني kind_haraka=forms!Fatora_be! Kind_haraka مع العلم بان fat_num حقل رقمى و Kind_harakaحقل نصي بتلخبط في وضع '' ' & علشان كدة قررت استعين بأهل الخبرة خالص الشكر

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

خالص الشكر استاذنا ومعلمنا الجليل جعفر

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

معلمى واستاذى الفاضل kha9009lid خالص الشكر والتقدير على حل المشكلة التى اتعبتنى اسابيع خالص الشكر للخبير الفاضل الزى تعلمت وساتعلم منة الكثير

السادة الافاضل اليكم القاعدة Stock_OK.accdb

معلمي الفاضل kha9009lid اسم النموذج الرئيسى mortga_be اسم الحقل total_mor اسم النموذج الفرعي Hm الحقل التجميع غير منضم اسمة Tm

استاذى الفاضل kha9009lid بعد التحية قمت بتطبيق النموذج المرسل علي النماذج الخاصة ولم يعطى النتيجة المطلوبة كما في التطبيق المرسل Me. Parent ماذا تعني هل هي خاصة بالبرمجة

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

اشكركم علي تعبكم ومساعدتي في حل مشكلتي خالص الشكر لكم ولكن ظروف عملي كفرد من أفراد الجيش الابيض لم أتمكن من فتح المرفق المرسل دعواتكم لنا وللمرضى بالشفاء

مش فاهم تقصد اية

مقيش امل من حل هذا المشكل بدل عمل زر امر يجعل القيمتين متساويتن

حضرتك انا فاهم دة انا عاوز القيمة الناتجة من الأجمالي تضاف لحقل اسمة d في الجدول مش اخرج القيمة من الفرعي للرئبسي عاوز اشوف الأجمالي الناتج في الجدول بالتالي اريد ان يتساوى الحقل d قي النموذج مع الجمالي بالفرعي

السادة الاعزاء الخبراء الافاضل بعد التحية عندى نموذج رئيسى اسمة LF يحتوى على عدد حقول منهم حقل اسمة d وعندى نموذج فرعى اسمة LL بة عدة حقول السعر والكمية الاجمالى مثلا 5 السعر*3 الكمية= الاجمالى15 20 =10 السعر2 * الكمية يوجد حقل غير منضم للاجمالى العام =15+20 = 35 اسمة الاجمالى العام dاريد بعد تحديث حقل السعر فى الفرعى قيمة الحقل فى الرئيسى تساوى الاجمالى العام فى الفرعى اتمنى طلبى يكون واضح وخالص الشكر

تسلم من كل شر ربنا يجعل مساعدتك لى فى ميزان حسناتك

خالص الشكر استاذى husamwahab

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

الخبير الفاضل kha9009lid شكرا لك على الرد ولكن فى ى حدث اضع هذا الكود عند الفتح او عند التحميل خالص الشكر سؤال اخير عندى نموذج مستمر حقل الكمية المباعة مثلا 20قطعة اريد منع تعديل على الكمية بعد الخروج والانتقال للحقل التالى السعر كيف اكتب الكود واين اضعة انا عملت فى الحالى Private Sub Form_Current() If Me.NewRecord Then Me.AllowEdits = True Else Me.AllowEdits = False End If End Sub لكن هذا يتطلب الانتقال لسجل جديد اريد ايقاف التعديل وانا فى نفس السجل سامحنى على الاطالة

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