ابوخليل

الاسعار في الجداول لالا . . انتبه !! لا تعبث في العلاقات يبدو انك مبتدىء انقر بزر الفأرة الأيمن على الفورم واختر عرض التصميم اختر الخصائص من الشريط العلوي اختر تبويب : البيانات ستجد خصائص الاضافة والحذف وغيرها لو ارفقت جزء من ملفك لتم مساعدتك بشكل اسرع

اسمح بالتعديل من خصائص الحقل ، او من خصائص الفورم .. اذا كان التعديل في الخصائص = لا .. اجعلها = نعم تجدها في : الخصائص / لسان التبويب بيانات المفترض وجود فورم خاص لتعديل الاسعار العامة والخاصة

هذه مشاركة مع اخوتي واحبتي ، لعلها تفي بالغرض Public Function Subsalary(GradeNumber As Byte, RankNumber As Byte) As Double Subsalary = Nz(DLookup("GradeSalary", "Degree", "GradeNO=" & GradeNumber & " And RankNO=" & RankNumber), 0) End Function salary3.accdb

الملف مضغوط ، فك الضغط عنه وتفضل هذا الملف بدون ضغط tjrobh2.accdb

تم التعديل حسب طلبك اللي هو ان العبارة النصية تتغير ولكن طلبك الثاني : (( فقط عند الدخول في سجل جديد )) من دون ازرار فهذا يلزمك انك تعمل حقل جديد في الجدول يسبق حقل الرقم بمعنى يتم ادخال اي بيانات فيه وحيث ان المستخدم سوف يكتب في السجل الحالي ثم ينقر انتر او تاب للانتقال الى سجل جديد فهنا لا يصلح ان نضع الكود عند حدث التركيز على الترقيم التلقائي ولا التركيز على حقل رقمنا المصنوع ... لانه سوف يحدث مشاكل وسيتم العبث بالارقام ولكن الاصلح والأتقن ان يكون هناك حقل يسبق حقل الترقيم ويكون الحدث بعد التحديث لهذا الحقل tjrobh2.rar

Private Sub AddOneNO_Click() On Error GoTo err_rec Dim rs As Recordset Set rs = Me.Recordset.Clone rs.MoveFirst DoCmd.GoToRecord , , acNewRec numm = textNum & otuNum + 1 err_rec: If Err.Number = 3021 Then MsgBox "يجب ادخال السجل الأول يدويا" Exit Sub End If End Sub Private Function otuNum() Dim i As Integer Dim rs As dao.Recordset Dim strSQL As String strSQL = "SELECT Max(CInt(Right([numm],Len([numm])-InStrRev([numm],""/"")))) AS maxNum FROM Table1" Set rs = CurrentDb.OpenRecordset(strSQL) i = rs!maxNum rs.Close Set rs = Nothing otuNum = i End Function Private Function textNum() Dim i As String Dim rs As dao.Recordset Dim strSQL As String strSQL = "SELECT top 1 Left([numm],Len([numm])-Len(Right([numm],Len([numm])-InStrRev([numm],""/"")))) AS textfld " & _ "FROM Table1" Set rs = CurrentDb.OpenRecordset(strSQL) i = rs!textfld rs.Close Set rs = Nothing textNum = i End Function مشاركة مع احبتي بطريقة اخرى خاصة وان اخي كاف يار قام بتوحيد العبارة النصية التي تسبق الرقم tjrobh.accdb

ارى ان الخطأ منطقي لأن السطر الملون بالاصفر DoCmd.GoToRecord , , acNewRec هو امر باضافة سجل جديد والمستخدم لم تمنحه صلاحية الاضافة جرب كما ااشار الــ د. كاف يار اضافة سطر تجاوز الاخطاء قبل السطر اعلاه ليصبح On Error Resume Next DoCmd.GoToRecord , , acNewRec

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

السلام عليكم هذه الميزة انتهت مع انتهاء العمل على 2003 في الاصدار 2007 وما فوق لا توجد هذه الخدمة في اكسس

السلام عليكم صحيح السؤال غير واضح وكل واحد منا سوف يفسره حسب فهمه وصحيح ايضا لما قالوا : فهم السؤال نصف الإجابة انا فهمت ان د.حلبي يريد اظهار رسالة عند عدم وجود الصنف في الفرعي بناء على معلومتين : رقم الفاتورة / اسم الصنف وهذا الحل ان كنت فهمت Private Sub itemname_AfterUpdate() Dim i_name As String i_name = DCount("itemname", "t2", "masterid='" & Me.masterid & "'" & " And itemname='" & Me.itemname & "'") If i_name > 0 Then Exit Sub Else MsgBox "الصنف غير موجود" End If End Sub test2.accdb

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

تفضل حسب طلبك Dim i As Integer i = DCount("CheckNumber", "CheckDataCustomer", "CheckNumber='" & Me.CheckNumber & "'") If i > 0 Then MsgBox " السجل مكرر ", , " تنبيه" Me.CheckNumber = "" Exit Sub End If Database4.rar

السلام عليكم الشبكة الداخلية ليست بحاجة الى انترنت

لا حظ ان ما تفضلوا به يتم ضمن نموذج واحد وفكرتي هي تخصيص نموذج لكل نوع

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

الموضوع مكرر فضلا تابع مع موضوعك السابق يغلق،،،

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

تفضل جمع مدد الخدمة بالنموذج2.rar

تفضل حسب طلبك Dim rs1, rs2, rs3, rs4 As Integer rs1 = (Me.YF * 360) + (Me.MF * 30) + Me.DF + (Me.YN * 360) + (Me.MN * 30) + Me.DN rs2 = (Me.yk * 360) + (Me.mk * 30) + Me.dk rs3 = rs1 - rs2 Me.TY = rs3 \ 360 Me.TD = rs3 Mod 30 rs4 = rs3 Mod 360 Me.TM = (rs4 - Me.TD) / 30 جمع الخدمة بالنموذج.rar

يمكنك البحث مباشرة من الجدول اذا استخدمت الكود المناسب مثل ما تفضل به اخونا ناقل

عليكم السلام التاريخ والوقت في حقل واحد (Now() ) افضل

عليكم السلام في خانة : تحديث الى ضع الصيغة التالية : IIf([t2.total]=0;[t1.ram];[t2.total]) استعلام تحديث2.rar

غير ما لون بالاصفر بهذا myCheckUser = Nz(rst!Check_User)

هذه من المشكلات التي تواجه المبرمج ،، لما يغير سطر في كود يكون له تبعات في اماكن اخرى لا تظهر الا عند التجربة تفضل تم التعديل جرب ووافني بالنتيجة DATA1041-5.rar

تفضل كود يختلف قليلا عن السابق ، علما اني استخدمه في غالب اعمالي بل اني اكتفي بتأكيد كلمة المرور فقط DATA1041-4.rar