jjafferr

السلام عليكم اختي الفاضلة: 1. زر "أبلغ فريق الموقع عن مخالفة" هو لإبلاغ مشرفي الموقع عن إساءة في مشاركة ، ولا علاقة لها بصاحب الموضوع ، 2. هذا الموضوع تم مناقشته في 2015 ، فيُعتبر مُغلق للمشاركات الجديدة. رجاء افتحي موضوع جديد ، واشرحي فيه طلبك ، واتركي فيه رابط لهذا السؤال جعفر

الحين عرفت ، اسألتك السهلة عبارة عن طُعم ، لما تصيد الجواب ، تهجم عليه بالسؤال الصعب شتان بين حذف سجل ، وحذف مجموعة سجلات في النموذج الفرعي!! في النموذج الرئيسي ، اعمل الحدثين: Option Compare Database Option Explicit Private Sub cmd_Delete_Click() 'اذا اخترت السجل في النموذج الفرعي ، ثم ضغطت زر الحذف من النموذج الرئيسي مباشرة 'Screen.PreviousControl.SetFocus 'DoCmd.RunCommand acCmdDeleteRecord 'اما اذا اخترت السجل في النموذج الفرعي ، ثم اخذت لك لفة على كائنات النموذج الرئيسي 'فيجب ان يجب ان نخبر الكود ان عملنا سيكون على النموذج الفرعي 'frm_tap = اسم النموذج الفرعي 'Me.frm_tap.SetFocus 'DoCmd.RunCommand acCmdDeleteRecord Call Form_frm_tap.Delete_Record End Sub Private Sub frm_tap_Exit(Cancel As Integer) Call Form_frm_tap.rowsSelected End Sub . وفي النموذج الفرعي ، اعمل هذه الاحداث: Option Compare Database Option Explicit Dim Selected_Rows() As String Dim i As Integer Dim rst As DAO.Recordset Dim ctrl_Name As String ' Public Sub rowsSelected() ctrl_Name = "sit_no" Dim selH As Long, selT As Long ReDim Selected_Rows(0) selH = Me.SelHeight selT = Me.SelTop - 1 If Me.SelHeight <> 0 Then ReDim Selected_Rows(Me.SelHeight) Set rst = Me.RecordsetClone rst.MoveFirst: rst.Move selT For i = 0 To Me.SelHeight - 1 Selected_Rows(i) = rst(ctrl_Name) rst.MoveNext Next rst.Close: Set rst = Nothing End If End Sub Public Sub Delete_Record() On Error GoTo err_Delete_Record Set rst = Me.RecordsetClone For i = LBound(Selected_Rows) To UBound(Selected_Rows) - 1 rst.FindFirst "[" & ctrl_Name & "]=" & Selected_Rows(i) rst.Delete Next i Exit_Delete_Record: rst.Close: Set rst = Nothing Exit Sub err_Delete_Record: If Err.Number = 9 Then Resume Exit_Delete_Record Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . رجاء ملاحظة: 1. لازم تعطي اسم الحقل الى المتغير ، من هنا: ctrl_Name = "sit_no" 2. في الكود ، انا استعملت حقل رقم (انظر الكود اعلاه) ، فإذا استعملت حقل نص ، فيجب: تبديل هذا السطر rst.FindFirst "[" & ctrl_Name & "]=" & Selected_Rows(i) الى rst.FindFirst "[" & ctrl_Name & "]='" & Selected_Rows(i) & "'" جعفر 786.Delete_SubForm_Records.mdb.zip

انا لا املك هذه البرنامج ، وقوانين المنتدى لا تسمح بإرفاقها: 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة. جعفر

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

وعليكم السلام تفضل اذا اخترت السجل في النموذج الفرعي ، ثم ضغطت زر الحذف من النموذج الرئيسي مباشرة Screen.PreviousControl.SetFocus DoCmd.RunCommand acCmdDeleteRecord اما اذا اخترت السجل في النموذج الفرعي ، ثم اخذت لك لفة على كائنات النموذج الرئيسي فيجب ان يجب ان نخبر الكود ان عملنا سيكون على النموذج الفرعي frm_tap = اسم النموذج الفرعي Me.frm_tap.SetFocus DoCmd.RunCommand acCmdDeleteRecord جعفر

السلام عليكم الظاهر ان هذه مشكلة معروفة عند تنصيب اكثر من اصدار من الاكسس ، والافضل هو تنصيب برنامج اكسس واحد ، ثم تنصيب برنامج VMware ، منه تنصب النسخة الاخرى (انا قرأت هذه المعلومة) ، اما اختنا الفاضلة الدكتورة ام عهود فتقول انها قامت بتنصيب نسخ 3 من الاكسس ، هكذا: http://arabteam2000-forum.com/index.php?/topic/263020-كيف-انصب-نسختي-اوفيس-باصدارين-مختلفين-على-جهازي/&do=findComment&comment=1286995 جعفر

اذن نحن بحاجة الى مرفق ، ومثال جعفر

السلام عليكم جرب التالي: بإستعمال الاكسس 2003 ، افتح قاعدة بيانات جديدة ، ثم استورد جميع الكائنات من قاعدة البيانات السابقة ، واخبرنا النتيجة لوسمحت جعفر

السلام عليكم اخي طاهر ، رجاء ارفق هذه الجزئية فقط من برنامجك ، علشان نعدل مباشرة عليها ، ورجاء اعطنا مثال نستطيع ان نقتدي به لعمل اللازم. جعفر

وعليكم السلام اخي شفان الظاهر انا وانت تم مراسلتنا!! تفضل هذا الكود المعدل: Dim SRV As Integer Dim rs As DAO.Recordset If ([userpassfinder] & vbNullString) = vbNullString Then Exit Sub 'هذا الامر أبطأ من الامر التالي 'SRV = DLookup("[UserPass]", "tblUsers", "[UserPass] = " & [userpassfinder]) 'If IsNull(SRV) Then ' MsgBox "الرقم السري غير صحيح" ' Me.userpassfinder.SetFocus ' Exit Sub 'End If 'هذا الامر اسرع SRV = DCount("*", "tblUsers", "[UserPass] = " & [userpassfinder]) If SRV = 0 Then MsgBox "الرقم السري غير صحيح" Me.userpassfinder.SetFocus Exit Sub End If 'الحل الاول DoCmd.OpenForm "frm" Forms!frm.SetFocus Forms!frm!fsubUser.SetFocus Forms!frm!fsubUser!UserPass.SetFocus DoCmd.FindRecord Me.userpassfinder, , , , , , True 'الحل الثاني ' DoCmd.OpenForm "frm" ' Set rs = Forms!frm!fsubUser.Form.RecordsetClone ' rs.FindFirst "[UserPass] = " & Me.userpassfinder ' If rs.NoMatch Then ' MsgBox "wrong Pass", _ ' vbOKOnly + vbInformation ' Else ' Forms!frm!fsubUser.Form.Bookmark = rs.Bookmark ' End If ' rs.Close ' userpassfinder = Null جعفر 791.Database3.accdb.zip

السلام عليكم اخي @غريب طرابلس يوجد قسم اعلانات شخصية للاعضاء ، والذي تستطيع ان تعرض برامجك للبيع ، مع مراعاة وضع طريقة الاتصال بك في الموضوع: https://www.officena.net/ib/forum/157-إعلانات-شخصية-للاعضاء/ وشكرا اخي @صالح حمادي وانا ذكرت هذه الطابعة في المادة هـ.3. جعفر

آسف ، اذن هي 3 تصاريح هذا رابط به الطريقة التي كنت تريدها اصلا للدكتورة أم عهود ، الطباعة من الجانبين: http://arabteam2000-forum.com/index.php?/topic/276385-ظهور-بيانات-التقرير-في-عمودين/ جعفر

وتفضل 789.توزيع الخصم للسجلات بالفاتوره.mdb.zip

وعليكم السلام اليك طريقة اسهل: في نفس ورقة التقرير ، ضع الواجهة ، والخلفية جنبا الى جنب ، بترك مسافة قصيرة بينهم ، بهذه الطريقة ستطبع 6 تصاريح على ورقة واحدة من جهة واحدة ، اقطع كل تصريح ، ثم قم واثني التصريح بين الواجهة والخلفية ، ثم استخدم تغليف بلاستيك ، فيصبح التصريح له واجهة وخلفية هذا ما عملته انا بتصاريحي جعفر

كذلك ما فهمت قصدك ، اعطني مثال لوسمحت

سؤال ، هل شفت في خطأ في هذه القيمة ، او بإستعمال هذه القيمة؟ هذه ميزة الرياضيات شوف المعادلة اللي كتبتها في الكود عندك: (1 - Percentage_Discount) وهناك طرق اخرى في كتابتها ، لكني اخترت الاسهل لي جعفر

اخي الفاضل اول شيء تعمله هو عمل "ضغط واصلاح" لقاعدة بياناتك ، حتى يصغر حجمها ثم ، رفقا بي ، خليتني وسط حقول ومعادلات لا اعرف منها شيء رجاء ، في الاستعلام ، اترك العلاقات كما هي ، ولكن احذف الحقول التي لا علاقة لها بالموضوع ، واخبرني اسم الحقل الذي تريدني النظر فيه ، وماذا تريدني ان اعمل جعفر

انا لم اكن اعرف بقية الكود الآن وقد رأيته ، اقلب مكان الكودين ، يعني خلي الكود Me.AllowEdits = False تحت الكود اللي في المربع الاحمر. جعفر

شكرا ، انا اعمل على الموضوع حاليا تفضل جعفر 789.توزيع الخصم للسجلات بالفاتوره.mdb.zip

هلا والله ، حياك الله

ما تفرق ، قبل او بعد السطر Me.AllowEdits = False جعفر

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

وعليكم السلام ابو زاهر لما أقرأ السؤال ، وما يكون واضح ، ولا فيه مثال واضح ، عادة اتركه شد الهمة ، وتعود على وضع امثله من المرفق عن الشيء اللي تريده يصير ، وبتلقانا كما الفراري نرد عليك ، ان شاء الله جعفر

حياك الله اخي صالح لوسمحت تخبرنا عن هذه الطابعة الافتراضية ، حتى يستفيد منها الجميع جعفر

وعليكم السلام نعم هناك الكثير منها جعفر