اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

dsum


jo_2010
إذهب إلى أفضل إجابة Solved by jjafferr,

الردود الموصى بها

الخبراء الافاضل

بعد التحية

حاولت بكل الطرق لكني فشلت فقررت استعين بخبراتكم

عندى مربع نص اسمة total_fatora

اريد عند الضغط علي زر يتم تجميع حقل total من جدول 

Haraka بشرطين الاول رقم الفاتورة fat_num =  forms! Fatora_be! Fat_num

والشرط الثاني kind_haraka=forms!Fatora_be! Kind_haraka

مع العلم بان fat_num حقل رقمى

و

Kind_harakaحقل نصي بتلخبط في وضع '' ' & علشان كدة قررت استعين بأهل الخبرة خالص الشكر

رابط هذا التعليق
شارك

جرب الكود التالي

=Dsum("total"; "Haraka"; "[fat_num] = " & forms!Fatora_be!Fat_num & " And [kind_haraka] = '" & forms!Fatora_be! Kind_haraka & "'")

تحياتي

  • Like 1
رابط هذا التعليق
شارك

في ٢١‏/٦‏/٢٠٢١ 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)

 

جعفر

  • Like 3
رابط هذا التعليق
شارك

الخبير الفاضل 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)
رابط هذا التعليق
شارك

  • أفضل إجابة

الكود صح 100% حسب شرحك 🙂

ما عدا المسافة الزائدة هنا :

image.png.276374a17a4c2df4bc8b05df38d16b52.png

.

 

1. رجاء عرض رسالة الخطأ والسطر الذي به الخطأ ،

2. التأكد من نوع الحقول في الجدول ،

3. الحقلين : Forms!Fatora_be!Fat_num و Forms!Fatora_be!Kind_haraka يجب ان يكونوا : أ. اسماء الحقول في النموذج وليس ب. مصدر الحقول
image.png.288f5e2d1b89e1a7ee40f36255b4233e.png
.
جعفر

  • Like 2
رابط هذا التعليق
شارك

استاذى ومعلمى الجليل الخبير الفاضل  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.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information