استفسار فى يوزر فورم مع كومبوبوكس

[عبدالرحمن بدوى]

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

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

بعد الإستفادة من منتداكم الكريم وتعلمت طريقة عمل يوزر فورم وكومبوبوكس

وقمت بتصميم هذا الملف واستخدام الفورم فيه مع ربط الكومبوبوكس بالمخزن

المهم فيه مشكلة لا أعلم سببها ولا حلها وهى

عند الضغط على الزرار لإظهار الفورم يبدأ عادى بالصنف (كومبوبوكس) وبالضغط على enter ينزل على الكمية (textbox) وبالضغط مرة أخرى على enter ينزل على تسجيل وأخيرايسجل عادى

الطبيعى إنه بعد التسجيل يظهر المؤشر مرة أخرى فى الكومبوبوكس (أول مربع فارغ فى اليوزر فورم) لأقوم بتسجيل صنف جديد مثلا أو حركة بيع جديدة ولكنى أفاجأ بأن المؤشر يظهر فى أول textbox ولا يظهر ابتداء من الكومبوبوكس ؟؟؟

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

الرجاء من حضراتكم توضيح السبب مع الحل

وشكرا جزيلا لكم

1.rar

[إبراهيم ابوليله]

اخى عبد الرجمن

الموضوع بسيط

قم باستبدال الكود الاتى

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet

Set ws = Worksheets("المشتريات")
iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

ws.Cells(iRow, 1).Value = Me.ComboBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox1.Value


Me.ComboBox1.Value = ""
Me.TextBox1.Value = ""


Me.TextBox1.SetFocus
End Sub

بالكود التالى

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet

Set ws = Worksheets("المشتريات")
iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

ws.Cells(iRow, 1).Value = Me.ComboBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox1.Value


Me.ComboBox1.Value = ""
Me.TextBox1.Value = ""


Me.ComboBox1.SetFocus
End Sub

وبذلك يكون الخطأ فى السطر التالى

Me.TextBox1.SetFocus

تقبل تحياتى

[ياسر خليل أبو البراء]

بارك الله فيك أخي الغالي إبراهيم أبو ليلة وجزاك الله خيراً

يرجى عند وضع الكود التدقيق فيه نظراً لأن اللغة العربية تظهر بشكل غريب ما لم يكن اتجاه الكتابة باللغة العربية عند نسخ الكود

تقبل تحياتي

[إبراهيم ابوليله]

اخى ياسر

مشكورا على التوضيح

تقبل تحياتى

[عبدالرحمن بدوى]

اخى عبد الرجمن

الموضوع بسيط

قم باستبدال الكود الاتى

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet

Set ws = Worksheets("المشتريات")
iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

ws.Cells(iRow, 1).Value = Me.ComboBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox1.Value


Me.ComboBox1.Value = ""
Me.TextBox1.Value = ""


Me.TextBox1.SetFocus
End Sub

بالكود التالى

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet

Set ws = Worksheets("المشتريات")
iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

ws.Cells(iRow, 1).Value = Me.ComboBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox1.Value


Me.ComboBox1.Value = ""
Me.TextBox1.Value = ""


Me.ComboBox1.SetFocus
End Sub

وبذلك يكون الخطأ فى السطر التالى

Me.TextBox1.SetFocus

تقبل تحياتى

 

 

أشكرك أخى الحبيب وجزاكم الله خيرا وتم حل المشكلة