النجاشي قام بنشر يناير 17, 2018 مشاركة قام بنشر يناير 17, 2018 السلام عليكم استاتذتي الكرام الكود هذا يدرج باثنين نماذج عندي مزبوط فاريد يدرج كمان بثلاثه نماذج اخري حسب الفورم المفتوح فكيف يكون تعديل الكود شاكرين احبتي الكرام On Error Resume Next Dim n As String: Dim i As Integer: Dim isopen As Boolean n = "frmSales" isopen = False For i = 0 To Forms.Count - 1 If Forms(i).FormName = n Then isopen = True End If Next i If isopen Then If KeyCode = vbKeyUp Then DoCmd.GoToRecord , , acPrevious End If If KeyCode = vbKeyDown Then DoCmd.GoToRecord , , acNext End If Select Case KeyCode Case vbKeyDown Case vbKeyUp Case vbKeyReturn DoCmd.OpenForm "frmSales" Forms![frmSales]![NoEmp] = Me.NoEmp Forms![frmSales]![Namamila] = Me.Namamila DoCmd.Close acForm, "frm_Alamla", acSaveNo End Select Else Select Case KeyCode Case vbKeyDown If KeyCode = vbKeyUp Then DoCmd.GoToRecord , , acPrevious End If If KeyCode = vbKeyDown Then DoCmd.GoToRecord , , acNext End If Case vbKeyUp If KeyCode = vbKeyUp Then DoCmd.GoToRecord , , acPrevious End If If KeyCode = vbKeyDown Then DoCmd.GoToRecord , , acNext End If Case vbKeyReturn DoCmd.OpenForm "frm_Recall_sales" Forms![frm_Recall_sales]![NoEmp] = Me.NoEmp Forms![frm_Recall_sales]![Namamila] = Me.Namamila DoCmd.Close acForm, "frm_Alamla", acSaveNo ' KeyCode = 0 End Select ' Me.n2.SetFocus End If رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر يناير 17, 2018 الكاتب مشاركة قام بنشر يناير 17, 2018 استاتذتي الكرام اليكم القاعده للتوضيح عندما افتح نموذج وختار من حقل الدفع خيار اجل يفتح لي نموذج اسمهfrm_Alamla ومن فورم frm_Alamla اضغط انتر يدرج بالفورم السابق اسم العميل رقم العميل الان يدرج بفورم frm_Recall_sales وفورمfrmSales مضبوط بقي معي كيف اعدل بالكود حيث يدرج بفورمfrm_Recall_sra وفورمfrm_sra تحياتي اخواني الكرام ادراج اسم العميل وؤقمه.rar رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر يناير 17, 2018 الكاتب مشاركة قام بنشر يناير 17, 2018 للرفع رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يناير 17, 2018 مشاركة قام بنشر يناير 17, 2018 هل هذا ما تقصده ادراج اسم العميل وؤقمه (1).rar 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر يناير 17, 2018 الكاتب مشاركة قام بنشر يناير 17, 2018 33 دقائق مضت, ابو ياسين المشولي said: هل هذا ما تقصده ادراج اسم العميل وؤقمه (1).rar تسلم حبيبنا ابو ياسين علي المجهود ربنا يعطيك العافيه المطلوب الفورم الذي يكون مفتوح يدرج فيه ولا يفتح لي نموذج اخر والاخوه الذين لم توصلهم الفكره عندي الفورم frmSalesاختار (اجل) بفتح نموذجfrm_Alamla واضغط انتر ستلاحظ نقل البيانات اسم الحساب ورقمه لفورم frmSales فاريدها تكون بنفس الطريقه مع بقيه النماذج اي حسب الفورم المفتوح تحياتي رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يناير 17, 2018 مشاركة قام بنشر يناير 17, 2018 اخي ابو زاهر جرب هذا واعطيني خبر ادراج اسم العميل وؤقمه.rar رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر يناير 17, 2018 الكاتب مشاركة قام بنشر يناير 17, 2018 كذا اخي ابو ياسين انت عملت نموذجين للعملاء اريد نموذج واحد الله يعطيك العافيه اعتقد العمليه معقده شى ماء ههههههههه تحياي اليك 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر يناير 18, 2018 الكاتب مشاركة قام بنشر يناير 18, 2018 (معدل) اذا توجد طريقه اخري باستبدال الكود بكود اخر وتوفي بالغرض نرحب فيها تم تعديل يناير 18, 2018 بواسطه ابو زاهر رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يناير 18, 2018 مشاركة قام بنشر يناير 18, 2018 اتفضل هذا طلبك بالتمام والمال ادراج اسم العميل وؤقمه (3).rar 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر يناير 18, 2018 الكاتب مشاركة قام بنشر يناير 18, 2018 18 دقائق مضت, ابو ياسين المشولي said: اتفضل هذا طلبك بالتمام والمال ادراج اسم العميل وؤقمه (3).rar بارك الله فيك استاذي الكريم ابو ياسين الله يعطيك العافيه الي الان اشوفه مظبوط حسب طلبي الف تحيه اليك واذا قابلتني مشكله بكلمك استاذي شكرا اليك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان