خطأ فى استدعاء بيانات فاتوره

**إبراهيم ابوليله** · أكتوبر 31, 2013

الاخوه الافاضل

تحيه طيبه وبعد

ارجو المساعده

حيث يحدث خطأ

اثناء استدعاء بيانات فاتوره

Book1.rar

**إبراهيم ابوليله** · نوفمبر 1, 2013

للرفع

**إبراهيم ابوليله** · نوفمبر 2, 2013

للرفع

**حمادة عمر** · نوفمبر 2, 2013

السلام عليكم

الاخ الحبيب / إبراهيم ابوليله

بارك الله فيك

تفضل اخي المرفق ... ان شاء الله به المطلوب

ولكن عذرا فالملف غير واضح ... حيث انه غير واضح في الفورم اي البيانات تريد الاستعلام عنها

وقمت بعمل الاستعلام في الفورم كما في الجدول

شاهد المرفق ... ارجو ان يكون هذا هو طلبك

تقبل خالص تحياتي

استعلام عن فاتورة.rar

**إبراهيم ابوليله** · نوفمبر 2, 2013

اخى الكريم حماده

ممكن تقولى ايه الخطأ الى انا وقعت فيه

والذى ادى الى ظهور رسالة الخطأ

**إبراهيم ابوليله** · نوفمبر 3, 2013

أخى الحبيب
حماده عمر
مش عارف اققولك ايه
بس انا فعلا اخت الكود المرفق منك
وحطيته فى اليوزر فورم كما هو
ومازال يحدث خطأ

Me.Controls(Adr).Value = Sheet1.Range("A" & Mh).Cells(r, c).Value

وانا اشعر ان الخطأ فى

Me.Controls(Adr).Value

ارجو معالجة الخطأ وتوضيح كيفيه المعالجه

علما بانىى استخدم اوفيس2010

**حمادة عمر** · نوفمبر 3, 2013

الاخ الحبيب / إبراهيم ابوليله

بارك الله فيك

بالفعل اخي الكريم ... تقريبا يعتبر الخطأ في (Adr). حيث انك لم تلاحظ

اسماء التكستات بوكس الموجودة في الفورم فالكود الموجود يتعامل مع التكستات في الفورم

مثل خلايا ورقة الاكسيل

ولذلك يجب ان تكون اسماء التكستات بوكس الموجودة في الفورم مثل الخلايا ... لاحظ الفورم المرفق في الرد السابق

ستجد ان كل عمود مسمي باسم الاعمدة مثلا العمود الاول في الفاتورة اسماء التكستات بوكس فيه تبدأ من A1 - A2...... حتي A11

وكذلك العمود الثاني يبدأ بـ B1 .... والثالث بـ C1 .... وهكذا

وايضا يجب ان تأخذ في الاعتبار انه تم اضافة الكود الخبوري KH_ClearControl
جرب مرة اخري

وان شاء الله ستصل الي ما تريد

وفي انتظار ردك ... بالنتيجة الممتازة ( باذن الله )

تقبل خالص تحياتي

جزاك الله خيرا

**إبراهيم ابوليله** · نوفمبر 4, 2013

اخى حماده عمر

بارك الله فيك

بالفعل

لقد قمت بتغير اسماء التيكست بوكسات

ونجحت معى الطريق

ولكن مازال يحدث خطأ وهو عدم ظهور البيانات

استعلام عن فاتورة.rar

**إبراهيم ابوليله** · نوفمبر 6, 2013

للرفع

**إبراهيم ابوليله** · نوفمبر 7, 2013

للرفع

**حمادة عمر** · نوفمبر 8, 2013

السلام عليكم

اخي الحبيب / إبراهيم ابوليله

بارك الله فيك

ولكن علي حسب فهمي بعد الاطلاع علي الملف الاخير

ان الاعمدة المطلوب اظهارها في الفورم غير متجاورة

اولا : هل يمكن ان تقوم بالتعديل في الاكسيل لتجعل كل الاعمدة المطلوب ظهورها في الفاتورة بجوار بعضها

ستجد تنفيذ الكود معك اسهل

ثانيا : ان لم يكن ذلك غير مطلوب ما هي الاعمدة التي تريد ظهورها في الفاتورة عند الاستدعاء

ثالثا : كم عدد صفوف الفاتورة ... حيث انه في صفحة الاكسيل رقم القيد مثلا 12 صف والفاتورة بها صفين فقط

برجاء مزيد من التوضيح او التعديل

وعذرا علي التأخير في الرد

تقبل خالص تحياتي

**إبراهيم ابوليله** · نوفمبر 8, 2013

اخى واستاذنا حماده

بارك الله فيك

وما اريده

هو الاستعلام عن طريق رقم القيد فى العمود r

ثم اظهار البيانات على حسب الاعمده الموجوده فى الفورم

استعلام عن فاتورة(2).rar

**حمادة عمر** · نوفمبر 9, 2013

السلام عليكم

الاخ الحبيب / إبراهيم ابوليله

بارك الله فيك

قمت بتغيير كود الاستعلام نهائيا ليتناسب مع طلبك حيث ان عمود البحث ليس هو اول عمود والاعمدة المطلوب احضارها للفاتورة ليست بالترتيب

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

ويمكنك التعديل فيه كما تريد ... ولكن ليس بكومبوبكس ولكن تكست بوكس جديد لكتابة رقم القيد ثم الضغط علي زر (( استعلام ))

واليك الكود المستخدم والملف المرفق

وفي انتظار رأيك وردك بالنسبة لهذا الكود

Private Sub CommandButton1_Click()
Dim a As Integer

For a = 2 To 10000
b = Sheet1.Cells(a, 18)
If b = TextBox1.Text Then
Text_datE = Sheet1.Cells(a, 4)
Exit For
End If
Next a

For a = 2 To 10000
b = Sheet1.Cells(a, 18)
c = Sheet1.Cells(a, 18)
If b = TextBox1.Text Then
If b = c Then
C1 = Sheet1.Cells(a, 2)
D1 = Sheet1.Cells(a, 3)
E1 = Sheet1.Cells(a, 5)
F1 = Sheet1.Cells(a, 6)
G1 = Sheet1.Cells(a, 7)
H1 = Sheet1.Cells(a, 8)
I1 = Sheet1.Cells(a, 9)
J1 = Sheet1.Cells(a, 13)
K1 = Sheet1.Cells(a, 10)
L1 = Sheet1.Cells(a, 11)
M1 = Sheet1.Cells(a, 12)

Exit For
End If
End If
Next a
'======================
For a = 2 To 10000
b = Sheet1.Cells(a, 18)
c = Sheet1.Cells(a, 18)
If b = TextBox1.Text Then
If b = c Then
C2 = Sheet1.Cells(a + 1, 2)
D2 = Sheet1.Cells(a + 1, 3)
E2 = Sheet1.Cells(a + 1, 5)
F2 = Sheet1.Cells(a + 1, 6)
G2 = Sheet1.Cells(a + 1, 7)
H2 = Sheet1.Cells(a + 1, 8)
I2 = Sheet1.Cells(a + 1, 9)
J2 = Sheet1.Cells(a + 1, 13)
K2 = Sheet1.Cells(a + 1, 10)
L2 = Sheet1.Cells(a + 1, 11)
M2 = Sheet1.Cells(a + 1, 12)

Exit For
End If
End If
Next a

End Sub

واليك اخي المرفق

جزاك الله خيرا

استعلام عن فاتورة-SAMA.rar

**إبراهيم ابوليله** · نوفمبر 9, 2013

اخى حماده

مشطورا على الجهد المبذول

ولكن لو عدد الصفوف

كان كبير جدا مثلا حوالى 50سطر

فسيكون هناك وقت كبير مبذول فى كتابه الكود

فهل يمكن استخدام الكود الخاص بالاستدعاء

الذى قمت انت بشرحه فى عمل فاتوره مع طبعاتها

**حمادة عمر** · نوفمبر 10, 2013

السلام عليكم

الاخ الحبيب / إبراهيم ابوليله

بارك الله فيك

اعذرني فقط في التأخر عليك بالرد وذلك نظرا لظروف وضغط العمل وضيق الوقت فقط

وسأحاول تنفيذ هذا الكود بالطريقة التي تريدها

مع ملاحظة انني اظن انه لاستخدام هذا الكود والحصول علي افضل النتائج المطلوبة

يجب ان تكون البيانات التي يتم استدعاؤها للفورم

بنفس ترتيب البيانات في ورقة الاكسيل ( اي ترتيب الاعمدة )

تقبل خالص تحياتي

**إبراهيم ابوليله** · نوفمبر 10, 2013

اخى حماده

لك كل العزر

وفقك الله

لما يحبه ويرضاه

فى امان الله

**حمادة عمر** · نوفمبر 11, 2013

السلام عليكم

الاخ الحبيب / إبراهيم ابوليله

بارك الله فيك

تفضل اخي المرفق المطلوب بالكود الذي تريده ولكن مع بعض التعديلات ليتناسب مع ما تريده اخي الحبيب

ولكن عذرا تم وضعه بسرعة ... فرجاءا التجربة واخباري بالنتيجة

واي استفسار معك دائما باذن الله

ولكن لاحظ وضع هذا الكود لمسح بيانات الفورم عند الاستعلام

 
KH_ClearControl

تقبل خالص تحياتي

جزاك الله خيرا

استعلام من فاتورة-SAMA11.rar

تم تعديل نوفمبر 11, 2013 بواسطه حمادة عمر

**حمادة عمر** · نوفمبر 12, 2013

الله المستعان

**إبراهيم ابوليله** · نوفمبر 12, 2013

اخى حماده

اشكرك على سرعه الاجابه

انشاء الله سوف اتمعن فيها

وارد علىك

بارك الله فيك

**إبراهيم ابوليله** · نوفمبر 14, 2013

اخى الكبير

واستاذى الحبيب

حماده عمر

بارك الله فيك

ولكن لى سؤال

هل ينفع استخدام الكود الخاص

باستدعاء البيانات عن طريق الكومبوكس

مع استدعاء البيانات عن طريق التكست

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

وكن مع كثرة الصفوف فى الفورم

سيكون هناك جهد كبير ووقت طويل

فى كتابة الكود

اما الكود الخاص بالكوبوكوس كود يوفر الوقت كثيرا

ارجو المحاوله ان امكن

**إبراهيم ابوليله** · نوفمبر 18, 2013

للرفع

**حمادة عمر** · نوفمبر 19, 2013

الأخ الحبيب : ابراهيم

بارك الله فيك

قم أخي الحبيب بوضع الكود المقصود والخاص بالاستعلام في الأمر الخاص بالتكست بوكس الذي تريده كالتالي

Priavte sub TextBox2_Afterupdate()

بدلا من وضعه في الأمر الخاص بالكومبوبكس ComboBox2_Click

وسيعمل معك الاستعلام بالشكل المطلوب بعد الادخال في التكست بوكس والضغط علي انتر

وعذرا لعدم امكاني ارفاق ملف بسبب انقطاع النت لدي

حيث اقوم بكتابة هذا الرد من ع الموبايل حتي لا يتأخر ردي عليك

وسأتابع ردك بعد التجربة من ع الموبايل

تقبل خالص تحياتي

**إبراهيم ابوليله** · نوفمبر 19, 2013

اخى حماده

بارك الله فيك

وانا فقط لا اريد ان اكون قد اثقلت عليك

ولكن هل لى من طلب اخر

كيف اقوم بحزف القيد بعد استدعائه

**حمادة عمر** · نوفمبر 22, 2013

السلام عليكم

الاخ الكريم / إبراهيم ابوليله

بارك الله فيك

عندما رأيت طلبك الأخير اخي الحبيب

جاءت لي فكرة لتفيذ الحذف بطريقة بسيطة جدا

ملحوظة : تم تنفيذ الحذف عن طريق زر ولكن بعد الاستعلام عن القيد باستخدام الكومبوبكس فقط

هل هذا ما تريده ام انك تريده عن طريق التكست بوكس ...

شاهد المرفق واخبرني برأيك ... ارجو ان يكون هذا هو طلبك وكما تريد

تقبل خالص تحياتي

حذف القيد بعد استعلام الفاتورة.rar

تم تعديل نوفمبر 22, 2013 بواسطه حمادة عمر

**إبراهيم ابوليله** · ديسمبر 5, 2013

اخى حماده مشكورا على الرد

وانا عارف انى تعبك معايا

بس يكفينى قولا

جزاك الله خير

لى طلب اخر

معى فورم اقوم باستدعاء البيانات

عن طريق التيكست بوكس

ولكن يحدث خطأ فى الاستدعاء

وهو

انه يتم الاستدعاء بدايه من العمود الاول

وانا اريد الاستدعاء

يكون بداية من العمود الثانى

inv.rar

تسجيل الدخول

خطأ فى استدعاء بيانات فاتوره

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

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

انشئ حساب جديد

تسجيل دخول

محتوي مشابه

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

Important Information