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

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

قام بنشر

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

بعد التحية

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

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

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

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

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

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

و

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

قام بنشر
total_fatora = Nz(DSum("total", "Haraka", "fat_num = " & Forms!Fatora_be!Fat_num & " And " & "kind_haraka = '" & Forms!Fatora_be!Kind_haraka & "'"), 0)

 

  • Like 1
قام بنشر

استاذنا الفاضل SEMO.Pa3x

الكود لايعمل شكرا لاهتمامك

قام بنشر
في ٢١‏/٦‏/٢٠٢١ 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