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

ترحيل من الليست بوكس إلي التيكست بوكس


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

السادة الأفاضل

تحية طيبة وعطرة علي الجميع

أريد عند الضغط دبل كليك على الصنف الذي يظهر في الليست بوكس يرحل في التيكست بوكس الإختيار الأول وعند الضغط دبل كليك مرة أخرى علي أي صنف أخر في الليست بوكس يرحل في التيكست بوكس الإختيار الثاني وكذالك مع الإختيار الثالث

مع وافر الأحترام .

اليكم المرفقات

فاتورة.rar

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

السلام عليكم

ضع هذا الكود بين اكواد الفورم


Private Sub ListFind_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim i As Integer

For i = 1 To 3

    If Len(Trim(Me.Controls("TextBox" & i))) = 0 Then

        Me.Controls("TextBox" & i) = Me.ListFind.Value

        Exit For

    End If

Next

End Sub

ودمتم في حفظ الله

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

  • 1 year later...
  • 1 year later...

أستاذنا الفاضل/ عبد الله باقشير

السادة أعضاء المنتدى

ألا يوجد حل للطلب الأخير

وهو

ماذا لو أردنا ترحيل العمود الثاني أو الثالث

من الليست بوكس إلي التيكست بوكس

بدلا من العمود الأول

وجزاكم الله خيراً .

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

أستاذنا الفاضل/ عبد الله باقشير

السادة أعضاء المنتدى

ألا يوجد حل للطلب الأخير

وهو

ماذا لو أردنا ترحيل العمود الثاني أو الثالث

من الليست بوكس إلي التيكست بوكس

بدلا من العمود الأول

وجزاكم الله خيراً .

هذا التعبير للعمود الثاني

Me.ListFind.Column(1)

وهذا للثالث

Me.ListFind.Column(2)

وهكذا .................

تحياتي

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

الاستاذ : عبد الله باقشير . استشاري جراحة عمليات الحالات المستعصيه ( دكتور : مجدي يعقوب . جراح القلب المعروف . مصر )

بارك الله لنا فيك ، وبارك لك في أهلك

دمت لنا

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information