كيف اخزن ماتم اختياره من الكومبو في جدول اخر؟

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

:::الاخت دينا :::

الأمر سهل .. ولكن نظرا لعجلتي الان ( اعذريني على هذا ) فسأقرب اليكي الطريقة اعتمادا على انك تعرفين طريقة الحفظ العادية ...

كل ما هناك المستخدم يضغط على عنصر في قائمة ComboBox .. ونضغط على زر الحفظ ويتم الحفظ ... هذا هو السيناريو الذي فهمته منك ..

طبعا توجد خاصيه في اداة القائمة اسمها Text وهي تحمل نص العنصر المحدد ... اي في كود الحفظ نضع بدلا من مربع نص او ما شابه نضع خاصيه النص لأداة الكومبو ...

وطبعا نضع الكود في حدث النقر ،، لأننا نريد ان نحفظ العنصر المختار في القائمة الى الجدول الاخر عندما يضغط المستخدم على الزر ...

وهذا كود كمثال :

   If Trim(Combo1.Text) = "" Then
        MsgBox "لا يمكن حفظ قيمة خاليه للإسم ، الرجاء إدخال إسم", vbInformation, "نقص في المدخلات"
        Combo1.SetFocus
        Exit Sub
    End If
    With RS
        .AddNew       
        ![mnamein] = Trim(Form1.txtName.Text)

        .Update
    End With

        RS.Requery
        RS.MoveLast
    End If

End Sub

وطبعا يجب ملاحظه انك ستتسخدمين متغير اسمه rs قد قمت بفتح الجدول الاخر به ، اما الجدول الاول فتستخدمين متغيرا اخر لفتحه ... وعذرا على الاستعجال فلا وقت لدي الان وارجو منك المعذرة ..

:) شكراً جزيلاً أخي النبهاني على الرد

ولكن في الكود

![mnamein] = Trim(Form1.txtName.Text)

مالمقصود بـform1.txtname.text

وهل يجب تعريف متغير مختلف كي أتمكن من فتح كل جدول على حدة ؟ لأنني استخدمت متغير واحد rs لفتح جدولين ، وقد قام بذلك . واريد القيام بفتح اكثر من هذين الجدولين. فهل تعريف متغير لكل جدول سيكون افضل في التعامل؟

وشكرا

هناك ملاحظة صغيرة هي:

البيانات المعروضة في الكومبوبوكس مأخوذة من جدول وعند النقر على مفتاح save سيتم تخزينها في جدول آخر

أرجو أن يكون قصدي واضحا

اقتباس

مالمقصود بـform1.txtname.text

اظن ان txtName هو مربع نص مخصص للاسم الذى سيتم اضافته وموجود فى فورم يسمى Form1