اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

بسم الله الرحمن الرحيم 

قمت بشرح ما اريده فى هذا الفيديو 

http://www.youtube.com/watch?v=b6OhjdyirmY

 

وهذا هو البرنامج والذى قد قام باعداد المتالق أستاذ حماده عمر بارك الله لنا فيه

الايصالات.rar

مع العلم ان 

اسم الدخول magdy

والباسورد 12345

قام بنشر (معدل)

السلام عليكم

اتبع أخي الخطوات التالية

ادخل على الفورمات الصغيرة التي تختار منها  كود المتعامل او الحركة . . . . .

ستجد الفورم الصغير يحتوي على كمبوبكس

دوبل كليك على الكمبوبكس ستجد الكود التالي و هو مكرر في كل الفورمات الصغيرة مع اختلاف بسيط في تسمية مربعات النصوص فقط

عند الدخول تجد الكود التالي

مثلا هذا الكود موجود في فورم اسمها UserForm4

Private Sub ComboBox1_Change()

If ComboBox1.Text <> "" Then
FORM_FATORA.TextBox15.Text = ComboBox1.Text
FORM_FATORA.TextBox15.Enabled = False
UserForm4.Hide
End If

End Sub

قم نسخ نفس الكود لكن في الحدث Click و ليس الحدث Change مع اضافة السطر ComboBox1.ListIndex = -1 ليصبح شكله النهائي كالتالي

Private Sub ComboBox1_Click()

If ComboBox1.Text <> "" Then
FORM_FATORA.TextBox15.Text = ComboBox1.Text
FORM_FATORA.TextBox15.Enabled = False
'--------------------------------------------------
ComboBox1.ListIndex = -1   ' هذا هو السطر الذي اصفناه اما البقية فبدون اي تغيير
'--------------------------------------------------
UserForm4.Hide
End If


End Sub

و كرر العملية مع كل الفورمات الصغيرة

تحياتي

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

يعجز لسانى عن شكر حضرتك 

بجد الف مليووووووووون شكرا  يا ابو حنين 

وجعله الله فى ميزان حسناتك 

فسامحنى استاذى فقد قمت بعمل ما اشرت اليا به 

ولكن هنا شئ خطأ 

فقد قمت برف الملف مره اخرى بعد التعديل 

الايصالات 222.rar

ومرة اخرى شكرا على اهتمام حضرتك 

قام بنشر

يجب عليك مسح الكود الاول و تعويضه بالثاني

انت تركت الكودين معا

امسح الكود

Private Sub ComboBox1_Change()

If ComboBox1.Text <> "" Then
FORM_FATORA.TextBox15.Text = ComboBox1.Text
FORM_FATORA.TextBox15.Enabled = False
UserForm4.Hide
End If

End Sub

و اكمل مع بقية الفورمات

قام بنشر

الاستاذ القدير الحبيب / ابو حنين

بارك الله فيك

دائما متميز بحب مساعدتك للجميع

تقبل الله منا ومنكم

قام بنشر

الاخ الحبيب / احمد مجدي

بارك الله فيك

وبالطبع هنيئا لك فلقد جاءك الرد من الاستاذ الرااائع / ابو حنين

وبالطبع رده سيكون افضل من ردي بكثير فهو استاذ الجميع

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

تقبل خالص تحياتي

قام بنشر

مثلك استاذي لا يستأذن من تلميذه

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

ودائما نتعلم منك استاذي  في مواضيعك وردودك

وبالتأكيد ردك سيكون الافضل دون نقاش او خلاف او نفاق

والله اني احبك في الله حقا ...

 

تقبل خالص تحياتي

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