أبوبسمله

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

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

اتفضل اخى راجع هذا الرابط لاخى واستاذنا العزيز @jjafferr تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

اجازه سعيده اخى واستاذى @kha9009lid تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

اتفضل اخى قمت بضغطه وان شاء الله ما يكون فيه مشكله تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق db(2)(1).rar

وعليكم السلام اخى الفاضل لماذا تكرر الموضوع ولم تتابع على موضوعك القديم

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

اخى الفاضل اذا كنت سوف ستدرج فالملاحظات كل البيان ضع المبلغ الاجمالى فى حقل الصرف مثلا 40 والملاحظات مثلا قسم 1 قيد يستلم رواتب مبلغ 20 + صيانه مبلغ 20 لكن اذا كنت تريدها فى حقول الافضل لها جدول فرعى مربوط بالجدول عن طريق حقل رقم السند ولعل احد اخواننا واساتذتنا لديه فكره افضل تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

اخى ابو البشر المثال بالاعلى بجوار السلام عليكم وهتضحك اكتر بقى المثال مش شغال هههههههههههههههههههههه

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

اخى عبداللطيف على ما اعتقد انك رفعت المثال قبل الحفظ حيث انه ليس هناك اى تغيير حدث اخى @رعد داود ركز معى بارك الله فيك وجزاك الله خيرا فى يد العون والمحاوله لاخوانك توضيح لكى تعم الفائده DLookup("[user]", "Pass", "[Pass]= [n2] and [user]= [مربع_تحرير_وسرد62]") المفروض انك عاوز تجيب الباس الخاص وتختبره هل هو ده ام لا لكن انت عكست ثم قمت بالاختبار على اساس عدم مساوه المتغير بصفر Dim X X = Nz(DLookup("[user]", "Pass", "[Pass]= [n2] and [user]= [مربع_تحرير_وسرد62]"), 0) If X <> 0 Then UserName = X DoCmd.OpenForm "main" DoCmd.close acForm, "systempass" Else MsgBox "كلمة المرور غير صحيحة", vbInformation, "رسالة خطأ" DoCmd.OpenForm "changepass" والله اعلى واعلم تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

احسنت اخى رعد بجلب الباس والمستخدم بداله DLookup DLookup("[user]", "Pass", "[Pass]= [n2] and [user]= [مربع_تحرير_وسرد62]") واليك تغيير بسيط بالكود الاصلى مشاركه مع اخوانى الافاضل If (Password = n2) And (UserName = مربع_تحرير_وسرد62.Column(1)) Then وارفق لك مثال اخر خاص بكلمات المرور من مشاركه لاخى @خالد سيسكو باستخدام داله المقارنه StrComp وده رابط للاستفاده تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق مثال.rar اظهار كلمة المرور.rar

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بالتوفيق اخى

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

اتفضل ان شاء الله يظبط معك غير text لاسم حقل النص لديك If Not IsNull(text.n) Then Me.[conform_zabon].Form.Filter = " [text] ='" & text.n & "'" Me.[conform_zabon].Form.FilterOn = True Else: IsNull (text.n) Me.conform_zabon.Form.FilterOn = False End If اخبرنا بالنتيجه بالتوفيق ان شاء الله

الكود واحد فالنموذجين والاشاره لحقل التكست ولكن فالنموذج الاول قمت بالتعديل على عجاله لحقل النص الغير المنضم فالنموذج الاول فقط Dim f, k As Date Dim j As String Dim s As Long If DCount("[no]", "hesab") > 0 Then f = DMax("datee", "hesab") If Year(datee) > Year(f) Then t2 = 1 Else j = "Year(datee) = " & Year(Me.Td) t2 = DMax("[no]", "hesab", j) + 1 End If Else t2 = 1 End If الكود بيشوف اذا كان حقل ترقيم السند اكبر من 0 يقوم بجلب اعلى تاريخ وحجزها بالمتغير ثم نختبر السنه هل هى اكبر من السنه التى بالحقل Td ان كان اكبر فيعطي حقل الترقيم رقم 1 وان كان مساوى يجلب اعلى رقم فحقل ترقيم السند ويزود عليه 1 والا فيعطيه رقم 1 وهذا اول سجل بالجدول ياريت اكون قدرت اشرحلك وابسطلك المعلومه واعذرنى عالتقصير تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

اتفضل اخى شوف ووافنا بالنتيجه بالتوفيق ان شاء الله db(2).accdb

وعليكم السلام كان لديك اسم الفورم خطأ فى داخل الكود 1 frm-UserLogon الان بعد تعبئه البيانات والضغط عالدخول سيقوم باغلاق الفورم هل هذا ما تريد ام ان هناك امرا اخر؟ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق الصلاحيات المستخدمين (1).rar

وعليكم السلام واياكم اخى الكريم بالتوفيق ان شاء الله

جرب الان وبلغنى بالنتيجه ان كان تمام فالطريقه افتح النموذج فى وضع التصميم قف على الصوره ومن تبويب ترتيب والجزء حجم وترتيب اضغط على احضار الى المقدمه احفظ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق الموظف.rar

وعليكم السلام اطلع عالرابط التالى وهذا

اخى الفاضل استخدم واخبرنا بالنتيجه nz([text]);0) او ارفق مثال تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

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

السلام عليكم اخى الفاضل جزاك الله خيرا مشاركتك ايانا ما توصلت اليه ولكن يفضل وضع المثال مفتوح المصدر للتعلم ولكن هكذا ما فائدته واليك هذا الرابط به شرح اكثر للاستزاده http://arabteam2000-forum.com/index.php?/topic/248965-حساب-الارصدة-بطريقة-الوارد-أولا-يخرج-أولا-fifo/ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

اخى الفاضل مشاركه لاساتذتى ممكن تراجع الرابط التالى لعلك تجد به ما تريد باذن الله http://arabteam2000-forum.com/index.php?/topic/231115-ربط-الاكسس-بقاعدة-بيانات-mysql/ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق