اذهب الي المحتوي
أوفيسنا

طلب كود استدعاء بيانات داخل الفورم الى فاتورة


حرود

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

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

 

 

الكود الااول كانا

 

 

 

Const Cont As Integer = 5

Sub Item()
Dim Ary()
Dim r As Long, RR As Long, LR As Long
Dim c As Integer, cc As Integer
Dim txt As String
txt = KH_T_SEARSH.TextBox1
KH_T_SEARSH.ListBox1.Clear
With æÑÞÉ1
LR = .Cells(.Rows.Count, "A").End(xlUp).Row
For r = 2 To LR
If InStr(1, .Cells(r, "A"), KH_T_SEARSH.TextBox1, vbTextCompare) = 1 Then
RR = RR + 1
ReDim Preserve Ary(1 To Cont, 1 To RR)
For c = 1 To Cont
cc = Choose(c, 1, 2, 3, 4, 5)
Ary(c, RR) = .Cells(r, cc).Value
Next
End If
Next
End With
If RR Then KH_T_SEARSH.ListBox1.Column = Ary
Erase Ary
End Sub

 

كود تاني

 

Const Cont As Integer = 5

Sub Item()
Dim Ary()
Dim r As Long, RR As Long, LR As Long
Dim c As Integer, cc As Integer
Dim txt As String
txt = KH_T_SEARSH.TextBox1
KH_T_SEARSH.ListBox1.Clear
With Sheets("codes")
LR = .Cells(.Rows.Count, "A").End(xlUp).Row
For r = 2 To LR
If InStr(1, .Cells(r, "A"), KH_T_SEARSH.TextBox1, vbTextCompare) = 1 Then
RR = RR + 1
ReDim Preserve Ary(1 To Cont, 1 To RR)
For c = 1 To Cont
cc = Choose(c, 1, 2, 3, 4, 5)
Ary(c, RR) = .Cells(r, cc).Value
Next
End If
Next
End With
If RR Then KH_T_SEARSH.ListBox1.Column = Ary
Erase Ary
End Sub

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

لي طلبين هل من طريقة لي تسهيل البحت في الفوريم عندما اكتب الحرف اول من الصنف بي يطلع وطلب تاني  تحعل  المواشير في عمود الكمية عمود f  مباشرا  عند اختيار الصنف من الفورم

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

السلام عليكم ورحمة الله

اخي حرود

1- حسب طلبك تم عمل البحث بأول حرف

2- تقدر تدخل الكمية من مربع الادخال وسينتقل المؤشر صنف جديد

إن شاء الله حسب مبتغاك

مرفق الملف

Invoice full.rar

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

السلام عليكم ورحمة الله وبركاته اخي  KHMB اخي الجموعي اشكرك كل الشكر

لقد وجدت موضوع حيث أنه موضوع رائع جدا واريد تطبيقه على ملف العمل الخاصه

بى.اناهو يعمل جيد

اريد  الكود ان يظهارلي في الفورم  كل من اسم

 

كود الصنف اسم الصنف الوحده سعر لبيع سعر الشراء

 

2015.zip

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

السلام عليكم ورحمة الله وبركاته اخي  KHMB اخي الجموعي اشكرك كل الشكر

لقد وجدت موضوع حيث أنه موضوع رائع جدا واريد تطبيقه على ملف العمل الخاصه

بى.اناهو يعمل جيد

اريد  الكود ان يظهارلي في الفورم  كل من اسم

 

كود الصنف اسم الصنف الوحده سعر لبيع سعر الشراء

 

تفضل أخي  لعله المطلوب

2015.zip

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

السلام عليكم ورحمة الله وبركاته بارك الله فيك اخي الجموعي على الاهتمام بالموضوع

ارجومنك تعديل في كود البحت عندما اكتب الحرف اول من الصنف  اريد ان يطلع جميع اصنف الدي تبداء بي سم الصنف اما الكود الاان بي يطهار لي سوا 3 اصنف وعند استدعاء صنف لي الفاتورة, لا يضعه في مكانه صحيح

 

 وكتب اسم هرنس في مربع البحت الفورم تم رحيل

 

بي يضع لي سعر في مكان الكمية

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

السلام عليكم ورحمة الله وبركاته بارك الله فيك اخي الجموعي على الاهتمام بالموضوع

ارجومنك تعديل في كود البحت عندما اكتب الحرف اول من الصنف  اريد ان يطلع جميع اصنف الدي تبداء بي سم الصنف اما الكود الاان بي يطهار لي سوا 3 اصنف وعند استدعاء صنف لي الفاتورة, لا يضعه في مكانه صحيح

 

 وكتب اسم هرنس في مربع البحت الفورم تم رحيل

 

بي يضع لي سعر في مكان الكمية

أخي الكريم عند إستدعاء بيانات من الفورم للفاتورة لا بد من الوقوف على الخلايا في العمود E

مثلا: الخلية  E15 دبل كليك سيظهر الفورم عند البحث ستظهر النتائج في الليست بوكس

دبل كليك على السطر المراد استدعاء بيانته سيستدعى للفاتورة : الكود/ الصنف/ سعر البيع

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

السلام عليكم ورحمة الله وبركاته

 

تجعل  المواشير في عمود الكمية عمود G  مباشرا  عند اختيار الصنف من الفورم

تفضل المواشير في عمود الكمية عمود G

2015_2.zip

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

لسلام عليكم ورحمة الله وبركاته اخي الحبيب الجموعي

ارجو الا اكون قد اثقلت عليك بي طلبتي اريد عندا عمل دبل كليك فيالخلية  E سيظهر الفورم  يطهارلي فيه الا الصف مباشر قبل كتابات اي حرف

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

لسلام عليكم ورحمة الله وبركاته اخي الحبيب الجموعي

ارجو الا اكون قد اثقلت عليك بي طلبتي اريد عندا عمل دبل كليك فيالخلية  E سيظهر الفورم  يطهارلي فيه الا الصف مباشر قبل كتابات اي حرف

جرب المرفق أخي

ان شاء الله هو المطلوب

بالنسبة للكود رقم 140 في شيت codes

لماذا اسم الصنف فارغ لان عند البحث بالتكست بوكسوالتراجع عن البحث البيانات في الليست بوكس تمسح ما عدا هذا الرقم

قمت بكتابة اي شيء في اسم الصنف للكود 140 عمل بنجاح

2015_2_2.zip

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

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