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

[إبراهيم ابوليله]

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

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

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

حيث يحدث خطأ

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

Book1.rar

[إبراهيم ابوليله]

للرفع

[إبراهيم ابوليله]

للرفع

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

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

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

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

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

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

 

 

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

[إبراهيم ابوليله]

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

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

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

[إبراهيم ابوليله]

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

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

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

Me.Controls(Adr).Value

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

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

 

[حمادة عمر]

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

بارك الله فيك

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

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

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

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

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

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

 

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

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

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

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

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

[إبراهيم ابوليله]

اخى حماده عمر

بارك الله فيك

بالفعل

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

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

 

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

 

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

[إبراهيم ابوليله]

للرفع

[إبراهيم ابوليله]

للرفع

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

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

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

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

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

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

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

 

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

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

 

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

[إبراهيم ابوليله]

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

بارك الله فيك

وما اريده

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

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

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

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

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

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

 

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

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

 

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

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

[إبراهيم ابوليله]

اخى حماده

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

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

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

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

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

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

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

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

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

 

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

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

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

 

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

[إبراهيم ابوليله]

اخى حماده

لك كل العزر

وفقك الله

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

فى امان الله

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

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

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

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

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

 
KH_ClearControl

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

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

 

 

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

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

[حمادة عمر]

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

[إبراهيم ابوليله]

اخى حماده

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

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

وارد علىك

بارك الله فيك

[إبراهيم ابوليله]

اخى الكبير

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

حماده عمر

بارك الله فيك

ولكن لى سؤال

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

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

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

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

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

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

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

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

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

[إبراهيم ابوليله]

للرفع

[حمادة عمر]

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

بارك الله فيك

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

Priavte sub TextBox2_Afterupdate()

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

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

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

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

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

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

[إبراهيم ابوليله]

اخى حماده

بارك الله فيك

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

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

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

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

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

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

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

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

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

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

 

 

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

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

[إبراهيم ابوليله]

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

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

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

جزاك الله خير

لى طلب اخر

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

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

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

وهو

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

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

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

inv.rar