Eng.Qassim

السلام عليكم.. بعد اذن استاذي واخي @ابوخليل وللفائدة..فكرت بموضوع الاندثار ..او ربما يسمى الاهلاك ..ففي الكثير من المشاريع الكبيرة يتم حساب اندثار الالية او الماكنة واعتقد هي مختلفة لكل سنة ..لكني افترضت الاندثار للالية 5% لكل سنة فبعد 5 سنوات نستخرج قيمتها من الكود التالي.. والمعذرة لاني لا افهم بمصطلحات المحاسبة Dim value As Double Dim years As Integer Dim i As Integer value = Me.txtPrice.value years = Me.txtYearNumber.value For i = 0 To years value = value * 0.95 Me.SubForm.Form.Recordset.AddNew Me.SubForm.Form("txtNumber").value = i Me.SubForm.Form("Amount").value = value Me.SubForm.Form.Recordset.Update Next i Me.SubForm.Form.Requery txtPrice مربع نص في الرئيسي يمثل السعر txtYearNumber يمثل عدد السنوات txtNumber نص لحساب العدد في الفرعي Amount نص يمثل السعر كل سنة بعد الاندثار

ليس سؤالي على المفتاحين استاذي ابو خليل..فهذا عمل المبرمج اثناء بناء قاعدة البيانات لكن عملها برمجيا معناها ان المستخدم يستخدمها لاحقا...هل يمكن ذلك؟

ماذا تقصد بالتعديل؟ القاعدة مفتوحة وضعت لك دالة التمكين DBalWakyl.rar

اهلا بك استاذ @ابراهيم_ ممكن توضح اكثر ... ياريت تعطينا مثال لشخص معين هاي اول مرة تمر علي ...اخوك هم عراقي بس اريد افتهم شنو الموضوع لم يسبق لي ان مرت علي هكذا امور !!

طيب ..ايه العبارة ؟ حتستفاد ايه

مساء الخير عليك استاذ سامر .. استاذ سامر ..التلقائي هو رقم تسلسلي اذا صح التعبير بالتاكيد لديك فكرة وانا مش فاهمها

عادة حقل الدائن والمدين رقم والافتراضي له =0 ..وبالتالي الرصيد يساوي 0 اذا لم يكن هناك رصيد ..على العموم يمكن استخدام هذا السطر في الاستعلام IIf(IsNull([credit]-[debt]),0,[credit]-[debt]) بس الشق الثاني من السؤال لم افهمه ..يعني ايه الترقيم التلقائي هو نفس السيريال لرقم الموظف ..اعمل رقم الموظف رقم فريد واخلص من الحكاية !!

هو ممكن ..كما قال الاستاذ @محمد احمد لطفى لكن مالفائدة منها ؟

بصراحة يا اخي ملفك معظمه مشاكل ..وناس داخلة في ناس وعامل مكتبات مافيها داعي ..ولو انك قبل اسبوع بادي مشروعك بجدولين ..الحين كان اكتمل برنامجك استوردت الجداول والنماذج التي احتاجها ..لان ملفك عمل عندي حالة نفسية☺️ نصيحتي خلي تكون هاي بدايتك ..رغم فيها(تحفظ) وبعدها كل مرحلة افتح بها مشاركة لتكون الاجابة سريعة تحياتي q1.rar

تأكد من اسم الحقل في الجدول واسم الحقل في النموذج..وتأكد من نوع البيانات لهذا الحقل في الجدول ...هل هو رقم ام نص؟

اذا لم يكن لديك دالة تمكين الخواص ..فحسب اعتقادي لن تستطيع عمل شيء..فالخواص الرئيسية لديك غير ممكنة وخاصة هذا السطر SetProperties "AllowBypassKey", dbBoolean, False المسؤول عن زر الشفت Public Function EnableProperties() On Error GoTo ErrorHandler: DoCmd.ShowToolbar "Ribbon", acToolbarYes SetProperties "StartUpShowDBWindow", dbBoolean, True SetProperties "StartUpShowStatusBar", dbBoolean, True SetProperties "AllowFullMenus", dbBoolean, True SetProperties "AllowSpecialKeys", dbBoolean, True SetProperties "AllowBypassKey", dbBoolean, True SetProperties "AllowShortcutMenus", dbBoolean, True SetProperties "AllowToolbarChanges", dbBoolean, True SetProperties "AllowBreakIntoCode", dbBoolean, True Exit Function ErrorHandler: MsgBox Err.Description Exit Function End Function

هل تقصد مثل هذا الشكل

حصل خلط بين مثالك ومثال استاذ موسى فقط ارفع افضل اجابة ..لان سؤالك لم تتم الاجابة عليه!!

وعليكم السلام ..هل تقصد تساوي جميع الحقول الفوقانية مع الحقول التحتانية تعطي لون احمر؟ بالمناسبة هي الان باللون الاحمر ..ام تريد الخلفية حمراء

شيء من هذا القبيل... Private Sub opGender_Click() If Me.opGender = 1 Then Me.txtGender.Value = "Male" ElseIf Me.opGender = 2 Then Me.txtGender.Value = "FeMale" End If End Sub txtGender هو اسم الحقل في النموذج والمربوط بالجدول

اسم حقل البحث عندك في النموذج ..واسم الجدول .. واسم حقل البطاقة في الجدول على التوالي txtSearch Customers cardN

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

وعليكم السلام.. دوال المجال لاتعمل هكذا.. 11.rar

للبحث من نموذج ثاني ..هكذا الفكرة لدي وربما هناك الافضل انسخ الكود التالي خلف النموذج frm_RD مع مربع نص صغير txt1 Public Sub search() Dim rst As Recordset Dim strSearch As String strSearch = txt1 Set rst = Me.RecordsetClone rst.FindFirst "report_No= " & strSearch If Not rst.NoMatch Then Me.Bookmark = rst.Bookmark Else MsgBox " الرقم غير موجود!" End If rst.Close Set rst = Nothing End Sub وفي زر البحث في نموذج البحث Private Sub cmdSearch_Click() Forms![frm_RD]![txt1] = txtSearch Call Forms.frm_RD.search End Sub

عذرا اخي ابو منتظر لقد اخطأت UPDATE Table1 INNER JOIN Table2 ON Table1.ID = Table2.ID SET Table2.DName = [Table1].[DName], Table2.Age = [Table1].[Age];

نعم اخي بعد التحديث ..ولاتنسى تغيير اسم الجدول لديك واسماء الحقول الاخرى الموجودة عندك

بالتوفيق.. واذا اردت التحديث عن طريق استعلام ..استخدم الجملة التالية لعمل الاستعلام UPDATE Table1 INNER JOIN Table2 ON Table1.ID = Table2.ID SET Table1.DName = [Table2].[DName], Table1.Age = [Table2].[Age];

😂كلنا في الهوا سوا

وعليكم السلام.. حولت المعرف الى رقم للسهولة...ويجب ان يكون مفهرس حتى لايتكرر Update a record.rar

استغفر الله .. فانت استاذي ...استاذ برناوي