jo_2010 قام بنشر يونيو 20, 2021 قام بنشر يونيو 20, 2021 الخبراء الافاضل بعد التحية حاولت بكل الطرق لكني فشلت فقررت استعين بخبراتكم عندى مربع نص اسمة total_fatora اريد عند الضغط علي زر يتم تجميع حقل total من جدول Haraka بشرطين الاول رقم الفاتورة fat_num = forms! Fatora_be! Fat_num والشرط الثاني kind_haraka=forms!Fatora_be! Kind_haraka مع العلم بان fat_num حقل رقمى و Kind_harakaحقل نصي بتلخبط في وضع '' ' & علشان كدة قررت استعين بأهل الخبرة خالص الشكر
عبد الله قدور قام بنشر يونيو 20, 2021 قام بنشر يونيو 20, 2021 السلام عليكم نحن جاهزون اخي الكريم للمساعدة لو تكرمت تضع مرفق للتعديل عليه
محمد أبوعبدالله قام بنشر يونيو 21, 2021 قام بنشر يونيو 21, 2021 جرب الكود التالي =Dsum("total"; "Haraka"; "[fat_num] = " & forms!Fatora_be!Fat_num & " And [kind_haraka] = '" & forms!Fatora_be! Kind_haraka & "'") تحياتي 1
SEMO.Pa3x قام بنشر يونيو 21, 2021 قام بنشر يونيو 21, 2021 total_fatora = Nz(DSum("total", "Haraka", "fat_num = " & Forms!Fatora_be!Fat_num & " And " & "kind_haraka = '" & Forms!Fatora_be!Kind_haraka & "'"), 0) 1
jo_2010 قام بنشر يونيو 21, 2021 الكاتب قام بنشر يونيو 21, 2021 استاذى الفاضل محمد أبوعبدالله الكود لايعمل مع الاسف وقمت باستبدال ; ب , لان الكود vba
محب العقيدة قام بنشر يونيو 23, 2021 قام بنشر يونيو 23, 2021 ان لم تخني الذاكرة كانت نفس المشكلة ووضعت له الحل Dsum لا يوجد عندي الان حاسوب لاتاكد
jo_2010 قام بنشر يونيو 24, 2021 الكاتب قام بنشر يونيو 24, 2021 استاذنا الفاضل SEMO.Pa3x الكود لايعمل شكرا لاهتمامك
jjafferr قام بنشر يونيو 24, 2021 قام بنشر يونيو 24, 2021 في ٢١/٦/٢٠٢١ at 01:47, jo_2010 said: بتلخبط في وضع '' ' & انا راح اعطيك التورته بكل اشكالها ، وانت اختار اللي تحبها ، بس بشرط انك تأخذ قطعة واحدة من كل نوع 🙂 Dim myWhere As String myWhere = "fat_num = " & Forms!Fatora_be!Fat_num 'اذا رقم myWhere = "fat_num = '" & Forms!Fatora_be!Fat_num & "'" 'اذا نص myWhere = "fat_num = #" & Forms!Fatora_be!Fat_num & "#" 'اذا تاريخ myWhere = myWhere & " And " myWhere = myWhere & "kind_haraka = " & Forms!Fatora_be!Kind_haraka 'اذا رقم myWhere = myWhere & "kind_haraka = '" & Forms!Fatora_be!Kind_haraka & "'" 'اذا نص myWhere = myWhere & "kind_haraka = #" & Forms!Fatora_be!Kind_haraka & "#" 'اذا تاريخ Me.total_fatora = Nz(DSum("total", "Haraka", myWhere), 0) جعفر 3
jo_2010 قام بنشر يونيو 25, 2021 الكاتب قام بنشر يونيو 25, 2021 الخبير الفاضل 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)
أفضل إجابة jjafferr قام بنشر يونيو 26, 2021 أفضل إجابة قام بنشر يونيو 26, 2021 الكود صح 100% حسب شرحك 🙂 ما عدا المسافة الزائدة هنا : . 1. رجاء عرض رسالة الخطأ والسطر الذي به الخطأ ، 2. التأكد من نوع الحقول في الجدول ، 3. الحقلين : Forms!Fatora_be!Fat_num و Forms!Fatora_be!Kind_haraka يجب ان يكونوا : أ. اسماء الحقول في النموذج وليس ب. مصدر الحقول . جعفر 2
jo_2010 قام بنشر يونيو 27, 2021 الكاتب قام بنشر يونيو 27, 2021 استاذى ومعلمى الجليل الخبير الفاضل 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)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.