النجاشي

السلام عليكم ورحمه اللع وبركاته استاتذي الكرام عندي نموذج اسمه(frm_Search_New) المطلوب عندما يكون مفتوح اريد يفتح نموذج تعديل صنف عن طريق F2 ونموذج اضافه صنف عن طريق F5 شاكرين لكم احبتي 8910.rar

السلام عليكم ورحمه الله وبركاته كيف نجعل النص الكتابه فيه ارقام فقط شاركرين مقدرين

هل نظرت لنموذج 2

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

بارك الله فيك استاذي@sandanet بحاول اعملها علي النموذج وابلغك بالنتيجه فالف شكرا اليك استاذي هذه القاعده اريد العمل بنموذجfrm_Search_New ان يكون التركيز بنصn2 وان لا يخرج عند الضغط علي مفتاح الكيبورد للاعلي او الاسفل او اليمن او اليسار يكون انقل التركيز من خلال النقر بالماوس مع اعاد النظر استاذي بالكود عن الضغط على مفتاح للاسفل بنموذجfrm_Search_New بشرط يودي عمليه الحركه للاعلي والاسفل والادارج بالنموذجين المذكورين بالكود شاكرين اليكم احبتي عدم خروج التركيز بالكيبورد.rar

بعد اذن استاذنا @يوسف أحمد تفضل عملت لك استعلام ونموذج 2 مصدره الاستعلام انظر اليه ان شاء الله يكون طلبك 1122.rar

السلام عليكم ورحمه الله وبركاته احبتي الكرام كيف امنع موشر التركيز من الخروج من النص عندما اضغط اي مفتاح الا بالماوس فقط شاكرين مقدرين

للرفع

السلام عليكم ورحمه الله وبركاته اخواني الكرام اريد تعديل هذا الكود بالطريقه الصحيحه 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 ' temp_MYn1 = Me.sfrm_Search!MYn1 Select Case KeyCode Case vbKeyDown Case vbKeyUp Case vbKeyReturn ' Me.frm_Search_New.Form.RecordsetClone.FindFirst "[Rajmsanf]='" & Me.sfrm_Search_New!MYn1 & "'" DoCmd.OpenForm "frmEdrajSenf" Forms![frmEdrajSenf]![Rajmsanf] = Form.RecordsetClone!Rajmsanf Forms![frmEdrajSenf]![NaEMP] = Form.RecordsetClone!NaEMP Forms![frmEdrajSenf]![sarabaih] = Form.RecordsetClone!sarabaih DoCmd.close acForm, "frm_Search_New", 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 ' Me.sfrm_Search.Form.RecordsetClone.FindFirst "[Rajmsanf]='" & Me.sfrm_Search!MYn1 & "'" DoCmd.OpenForm "frmEdrajSenf2" Forms![frmEdrajSenf2]![Rajmsanf] = Me.Rajmsanf Forms![frmEdrajSenf2]![NaEMP] = Me.NaEMP DoCmd.close acForm, "frm_Search_New", acSaveNo ' KeyCode = 0 End Select End If شاكرين لكم احبتي

للرفع

للرفع

للرفع

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

السلام عليكم استاتذتي الكرام كيف اتخلص من الاهتزاز داخل السجلات عند التنقل بين السجلات الي اسفل او اعلى شاكرين مقدرين اهتزاز.rar

الحمدلله وصلت للحل بطريقه الاستاذ رمهان

السلام عليكم ورحمه الله وبركاته استاتذي الكرام المطلوب عند ادخال الرقم بنص البحث عن رقم ...ثم ادخل اسم الوصف بنص البحث عن الكلمه باسم الوصف واضغط الزر اريد يظهر لي الكلمات المطابقه شاكرين اليكم احبتي تحياتي اليكم البحث بالكلمه.rar

للرفع

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

عربت اسماء النماذج الذي نتقل المعلومات للفواتير واحد اسمه (ادراج بفاتوره المبيعات) طبعا نفتح فاتور هالمبيعات بيفتح بعد فورم اسمه ادراج بفاتوره المبيعات ومنه تفتح عن طريق f3 نموذج الاصناف الذي عملته عليه ستلاحظ عندما تغط انتر العمليه مضبوطه انت استاذي عملته مضبوط اوكه بس اذا فتحت فاتوره المشتريات اسم النموذج (frmPurchases) وبعدها يفتح نموذج اسمه (ادراج بفاتوره المشتريات) وتفتح نموذج الاصناف بتضيف ستلاحظ انه اضاف بنموذج ادارج فاتوره المبيعات لانه الكود غير مكتمل انا ماعرفت اعمل الشرط اذا كنت فاتح نموذج الذي يتبع المبيعات ادراج فيه واذا كنت فاتح نموذج الادراج بالمشتريات ادرج فيه ان شاء الله يكون وصلتك الفكره استاذي وجزاك الله خير الحزاء تحياتي اليك يالغالي 123456.rar

للرفع

السلام عليكم ورحمه الله وبركاته شكر اليك استاذي الكريم هو المطلوب بس ياليت تعمل لي شرح عن الذي عملته كي اتعلم الفكره جزاك الله خير استاذي

للرفع

الاستاذ ابو ابراهيم الله يجزيه خير عمل المطلوب الموضوع انتهاء النقاش منه تحياتي

استاذي انت عملت بالمبيعات كويس باقي بفاتوره المشتريات ونموذج الادراج(frmEdrajSenf2)

حياك استاذي الغالي اللسان تعجز عن وصفك فبارك الله فيك استاذي ابو ابراهيم والله استاذي اشكرك من كل قلبي اسال الله ان يجعله بميزان حسناتك النموذج المتعلق بادارج الاصناف بافاتوره المبيعات وهو(frmEdrajSenf) DoCmd.OpenForm "frmEdrajSenf" Forms![frmEdrajSenf]![Rajmsanf] = Form.RecordsetClone!Rajmsanf Forms![frmEdrajSenf]![NaEMP] = Form.RecordsetClone!NaEMP Forms![frmEdrajSenf]![sarabaih] = Form.RecordsetClone!sarabaih النموذج المتعلق بادارج الاصناف بالمشتريات وهو(frmEdrajSenf2) DoCmd.OpenForm "frmEdrajSenf2" Forms![frmEdrajSenf2]![Rajmsanf] = Form.RecordsetClone!Rajmsanf Forms![frmEdrajSenf2]![NaEMP] = Form.RecordsetClone!NaEMP والنموذج الذي تتم منه عمليه الادارج الذي frm_Search_New هذه الاكواد اريد دمجها مع بعض بنموذج frm_Search عند الضغط علي مفتاح للاسفل اذا لم تتضح الفكره بزوك بشرح اسال الله ان ينفع بك الاسلام والمسلمين ويوفقك لما يحبه ويرضاه تحياتي اليك