منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تم الحل - طريقة عمل فاتورة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
مطلوب من الاخوة الخبراء طريقة عمل فاتورة مرتبط بالاكسس بواسطة ال DataGrid1 او اى جدول مناسب ..
هل ممكن يكون فيه كمبو بوكس باسماء الاصناف و عند اختيار البند ينزل سعر الصنف و العبوة .. و غير ذلك من الافكار بطريقة مشروحة وواضحة
الغرض هو التعليم و ليس فقط الحصول على فاتورة
ولكم الشكر
السلام عليكم

لقد قمت بعمل نفس السؤال في هذا القسم و في قسم الاسئلة ..
بجد بالنسبة الى السادة الخبراء هل هذا السؤال صعب او مستحيل للدرجة دى ؟
لا اجابة ولا حتى تعليق من المشرفين !!!!!!!!
علما بأنى شفت مثال له معمول من فيجوال بيزك6 و لكن البرنامج كان مقفول ..
مشكورين
يوجد الكثير من الامثلة في المنتدى و اليوتيوب فقط ابحث
لا داعي لانتظار شرح جديد
انا بحثت اكيد ولم اجد ..
مجرد الاستفسار هنا هو جزء من البحث ..
راجعت كل المشاريع هنا ولم اجد مشروع واحد موجود فيه اجابة على سؤالى ..
عموما مشكور على مجهودك هذا ولا يكلف الله نفسا الا وسعها !
لقد تم الحل وقمت بتطوير هذا الكود ..  و شكرا لكل المشرفين !! .. و اتمنى للجميع الاستفادة منه ..

كود :
STEP1 - Put a DBGrid Control on a Form and connect it to a Data Control
STEP2 - put a combo box over the DBGrid and set the visible property to False and set the
width of the Combo equal to width of a particular Column of DbGrid control,
which you want to populate the data.
STEP3 - Add the following code in Form_Load, DbGrid1_Rowcolchange and Combo1_Click() Events
Private Sub Form_Load()

'POPULATE THE COMBO BOX WITH THE DESIRED VALUES
Combo1.AddItem "MYTEXT1"
Combo1.AddItem "MYTEXT2"
Combo1.AddItem "MYTEXT3"
'ALTERNATIVELY, COMBO BOX CAN ALSO BE POPULATED WITH DATA FROM A TABLE.
End Sub
Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

Dim Currentrow, CurrentCol
Currentrow = DBGrid1.Row
CurrentCol = DBGrid1.Col

' HERE THE VALUE 2 MEANS, THE PARTICULAR
'COLUMN WHICH REQUIRES THE LIST OF DATA
' FROM COMBO BOX.
If CurrentCol = 2 Then
Combo1.Visible = True
Combo1.Top = Me.DBGrid1.RowTop(Currentrow) + DBGrid1.RowHeight
Combo1.Left = 1950
Combo1.Width = 980
Combo1.Text = DBGrid1.Text ' ASSIGNING
' PARTICULAR CELL VALUE OF DBGRID TO COMBO
Else
Combo1.Visible = False
End If
End Sub
Private Sub Combo1_Click()
DBGrid1.Col = 2
DBGrid1.Text = Me.Combo1.Text ' ASSIGNING THE
' COMBO VALUE TO PARTICULAR CELL OF DBGRID
End Sub
الموضوع مفيد شكرا