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

[Akram Galal]

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

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

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

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

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

فاتورة.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

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

[رجب جاويش]

الأستاذ الكبير / عبد الله باقشير

بارك الله فيك

وحفظك الله لنا مبدعا

[عبدالله باقشير]

السلام عليكم

اخي الفاضل رجب حفظه الله

جزاك الله خيرا وبارك فيك

تقبل تحياتي وشكري

[Akram Galal]

الأستاذ الكبير / عبد الله

مشكورين علي الحل الرائع

ووفقك الله لكل الخير

والف شكر

[Akram Galal]

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

تحية طيبة وعطرة

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

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

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

[Akram Galal]

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

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

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

وهو

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

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

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

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

[عبدالله باقشير]

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

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

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

وهو

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

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

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

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

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

Me.ListFind.Column(1)

وهذا للثالث

Me.ListFind.Column(2)

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

تحياتي

[Akram Galal]

أستاذي العزيز/ عبد الله باقشير

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

وزادك من فضله

كود رائع كالعادة

[ابو القبطان]

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

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

دمت لنا