Shivan Rekany

اولا انا عملت حقل جديد باسم ID و قمت بتعين هذا كقيمة افتراضية Nz(DMax("[ID]";"TblMalomat";"[TblMalomat]![MyUser]='" & GetUserNameTxt() & "'");0)+1 وهو يدور على اكبر قيمة للمستخدم الحالي اذا وجد اكبر رقم راح يأخذه و يضاف اليه رقم واحد واذا ما وجد راح يحسبه كصفر و يضاف رقم واحد وبعدين عملت حقل اخر باسم IDUser وعطيت هذا كقيمة افتراضية =Mid(GetUserNameTxt();1;2) & "000000" & [ID] وهو يأخذ الحرفين الاولين من المستخدم الحالي وبعدين يضاف اليه ستة اصفار مع حقل اي دي الاعلى

اتفضل حسب ما ورد في مشاركتك تم عمل اللازم اضافة حقل جديد في جداول الصف و القسم والقي نظرتا الى مصدر كومبوبوكس الثاني و الثالثبيان.rar

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

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

اتفضل تم استخدام هذا Private Sub Form_Current() Me.AllowEdits = False End Sub Private Sub Isall_DblClick(Cancel As Integer) If InputBox("اكتب رقم سري خاص للتمكين التعديل السجلات", "تمكين ومنع التعديل") = 123 Then Me.AllowEdits = True MsgBox "تم تمكين تعديل السجلات" Else Me.AllowEdits = False MsgBox "تم منع التعديل السجلات" End If End Sub قم بنقر المزدوج على رقم ايضال سيفتح لك نافذة واذا كتبت عليه رقم سري بشكل صحيح سيتمكن التعديل على ذاك السجل واذا اخطأت لا يمكنك التعديل واذا رحت الى سجل اخر بعدين سيقفل من جديد ولا يمكنك التعديل الا بعد ادخال رقم سري من جديد اليك القاعدة بعد تعديل1.ACCDB

اتفضل اليك هذا DoCmd.OutputTo acOutputReport, "MyReportName", acFormatRTF, "D:\SaveReportInName.rtf" غير MyReportName باسم التقرير في قاعدة بياناتك

هذا الكود لمطلب الاعلى Public Function AhsibNo(F1 As Integer, F2 As Integer, F3 As Integer, F4 As Integer) AhsibNo = 0 If F1 = 0 Then AhsibNo = AhsibNo + 1 If F2 = 0 Then AhsibNo = AhsibNo + 1 If F3 = 0 Then AhsibNo = AhsibNo + 1 If F4 = 0 Then AhsibNo = AhsibNo + 1 End Function وهكذا تستخدمه في المحرر الاكواد Me.APSNT = AhsibNo(Me.PER1, Me.PER2, Me.PER3, Me.PER4) اليك هذا فانكشن Public Function AhsibYes(F0 As Integer, F1 As Integer, F2 As Integer, F3 As Integer, F4 As Integer) AhsibYes = 0 If F1 = -1 Then AhsibYes = AhsibYes + 1 If F2 = -1 Then AhsibYes = AhsibYes + 1 If F3 = -1 Then AhsibYes = AhsibYes + 1 If F4 = -1 Then AhsibYes = AhsibYes + 1 AhsibYes = F0 - AhsibYes End Function وتستخدم هكذا في المحرر الاكواد Me.APSNT = AhsibYes(Me.no_per, Me.PER1, Me.PER2, Me.PER3, Me.PER4) واليك القاعدة بعد تعديلdb3.accdb.zip

لكلاهما فانكشن الاول لمطلب الاول والفانكشن الثاني لمطلب الثاني لكن نسيت هذه الفقرة الفانكشن راح يعدد المربعات الفارغة

اتفضل اليك هذا Public Function AhsibYes(F1 As Integer, F2 As Integer, F3 As Integer, F4 As Integer) AhsibYes = 0 If F1 = -1 Then AhsibYes = AhsibYes + 1 If F2 = -1 Then AhsibYes = AhsibYes + 1 If F3 = -1 Then AhsibYes = AhsibYes + 1 If F4 = -1 Then AhsibYes = AhsibYes + 1 End Function Public Function AhsibNo(F1 As Integer, F2 As Integer, F3 As Integer, F4 As Integer) AhsibNo = 0 If F1 = 0 Then AhsibNo = AhsibNo + 1 If F2 = 0 Then AhsibNo = AhsibNo + 1 If F3 = 0 Then AhsibNo = AhsibNo + 1 If F4 = 0 Then AhsibNo = AhsibNo + 1 End Function تقدر ان تستخدمه في استعلام و ايضا تقدر تستخدمه في النموذج او في محرر الاكواد في محرر الاكواد ستستخدم هكذا Private Sub Command15_Click() Me.APSNT = AhsibNo(Me.PER1, Me.PER2, Me.PER3, Me.PER4) End Sub db3.accdb.zip

اتفضل اليك هذا ترقيم تلقائي جديد.mdb

اتفضل هل تريد هذا Private Sub ID_Sanf_AfterUpdate() Dim Teakid As String Teakid = Nz(DLookup("[ID_Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'"), "") If Teakid <> "" Then ' Me.ID = DLookup("[ID]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'") Me.Sanf = DLookup("[Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'") Me.rsdaolalmdh = DLookup("[rsdaolalmdh]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'") Else Me.Sanf = "" Me.rsdaolalmdh = "" End If End Sub Private Sub أمر13_Click() Dim StrSql As String If DCount("[ID_Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'") > 0 Then StrSql = "UPDATE Alsnaf SET Alsnaf.Sanf = [Forms]![افتتاحي]![Sanf], Alsnaf.rsdaolalmdh = [Forms]![افتتاحي]![rsdaolalmdh]WHERE (((Alsnaf.ID_Sanf)=[Forms]![افتتاحي]![ID_Sanf]));" MsgBox "تم تحديث الصنف " Else StrSql = "INSERT INTO Alsnaf ( ID_Sanf, Sanf, rsdaolalmdh ) SELECT [Forms]![افتتاحي]![ID_Sanf] , [Forms]![افتتاحي]![Sanf] , [Forms]![افتتاحي]![rsdaolalmdh] ;" MsgBox "تم حفظ صنف جديد" End If DoCmd.SetWarnings False DoCmd.RunSQL (StrSql) DoCmd.SetWarnings True Me.ID_Sanf = "" Me.Sanf = "" Me.rsdaolalmdh = "" End Sub اضافه تعديل.accdb

اتفضل Database1.rar

اتفضل اليك هذا Private Sub kyar_Click() If Me.kyar.Value = 1 Then [SershExpenseSub].[Form]![Amount].ColumnHidden = False [SershExpenseSub].[Form]![Amount2].ColumnHidden = True [SershExpenseSub].[Form]![notes2].ColumnHidden = True [SershExpenseSub].[Form]![TimeSn].ColumnHidden = True [SershExpenseSub].[Form]![SumTotal].ColumnHidden = True [SershExpenseSub].[Form]![Cu].ColumnHidden = True [Prent].Visible = False ElseIf Me.kyar.Value = 2 Then [SershExpenseSub].[Form]![Amount].ColumnHidden = True [SershExpenseSub].[Form]![Amount2].ColumnHidden = False [SershExpenseSub].[Form]![notes2].ColumnHidden = False [SershExpenseSub].[Form]![TimeSn].ColumnHidden = False [SershExpenseSub].[Form]![SumTotal].ColumnHidden = False [SershExpenseSub].[Form]![Cu].ColumnHidden = False [Prent].Visible = True End If Me.Refresh End Sub Database1.rar

هناك مواضيع كثيرة على ذلك لكن اسهل طريقة هو ان تعمل مربع نصي في تذيل نموذج فرعي وفي مربع نصي اللي في نموذج رئيسي اعطيه قيمة مربع نصي في نموذج الفرعي واتفضل اليك رابط على ذلك https://www.officena.net/ib/topic/10594-الحصول-على-مجموع-قيم-النموذج-الفرعي/?do=findComment&amp;comment=31310 او هذا https://www.officena.net/ib/topic/60946-عمليه-الجمع-في-subform/ واليك رابط البحث عن ذلك بها كثير من الموضوعات على ذلك https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&amp;ie=UTF-8&amp;q=جمع+نموذج+فرعي&amp;sa=Search

انا لا اعرف تريد ان تظهر اي حقول عند اختيار الاول و اخفاء اي حقول او عند اختيار الثاني انا عطيتك الطريقة و تأكد من اسماء المربعات النصية في نموذج الفرعي و استخدم ColumnHidden بدل Visible فقط

توفر لی الحاسب لذا انا قمت بالمطلوب 😉 دائما عندما تبحث عن مربع نصي تقدر تستخدم tap او ctrl + tap لکی يحدد لك واحد تلو الاخر اتفضل اليك القاعدة kan.accdb.zip تحياتي

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

بدل ان تستخدم Visible استخدم ColumnHidden هكذا [SershExpenseSub].[Form]![Amount2].ColumnHidden = False اليك القاعدة Database1.rar

استخدم فونت Digistyle Unicode اليك رابط التحميل https://arbfonts.com/digistyle-unicode-font-download.html

ان شاء الله سيكون هناك حل كان من المفروض ان ترفق نسخة مصغرة من القاعدة لكي تحصل على الجواب باسرع وقت ممكن حسب ما في الصورة اتفضل اليك هذا Teqrib: IIf(Right$([Derece]-Fix([Derece]);1)>=0.001;[Derece]+0.01;[Derece]) Derece هو حقل الارقام تقدر تغيره الى اسم اللي في جدول قاعدة بياناتك القي نظرتا الى الصورة واليك القاعدة بها جدول واحد مع استعلام تقريب الى الاعلى للرقم الثاني بعد الفارزة.accdb

اتفضل اليك هذا ترقيم تلقائي جديد.mdb

السلام عليكم لان حضرتك ما رفعت نسخة من قاعدتك لذلك ساقول لك ... اتفضل اليك هذا الرابط بها ما تريد ان شاء الله https://www.officena.net/ib/topic/64683-خلل-في-تقريب-حقل-محسوب-في-استعلام/

في هذه الحالة ستقع في مشكلة حين اليوزر الاول يوصل الى الرقم 1000 راح يتكرر الرقم وهذا غير مسموح !! تقدر ان تستخدم حروف بدل ذلك مثلا احمد بيكون هكذ AH00000001 و خالد بيكون هكذ XA00000001 او تقدر عند اچافە ای سجل بیکون ھناک حقل بیکتب فیھ اسم المستخدم مع استخدام نوع واحد من الترقیم

غير 3 حروف الاخيرة من mdb الى Accdb

استأذن من استاذ @أبو آدم هل قصدك تريد تبحث عن السجلات بواسطة 3 كومبوبوكس الاعلاه اتفضل اليك هذه الاكواد حسب طلبك Option Compare Database Private Sub Combo0_AfterUpdate() Me.Combo2 = Null Me.Combo4 = Null Me.Combo2.Requery Me.Combo4.Requery If Len(Me.Combo0 & "") = 0 Then Me.Form.RecordSource = "Table1" ElseIf Len(Me.Combo0 & "") > 0 Then Me.Form.RecordSource = "SELECT Table1.WC, Table1.OMC, Table1.Day, Table1.ID FROM Table1 WHERE (((Table1.WC) Like ""*"" & [Forms]![Form1]![Combo0] & ""*""));" End If Me.Requery End Sub Private Sub Combo2_AfterUpdate() If Len(Me.Combo2 & "") = 0 Then Me.Form.RecordSource = "SELECT Table1.WC, Table1.OMC, Table1.Day, Table1.ID FROM Table1 WHERE (((Table1.WC) Like ""*"" & [Forms]![Form1]![Combo0] & ""*""));" ElseIf Len(Me.Combo2 & "") > 0 Then Me.Form.RecordSource = "SELECT Table1.ID, Table1.WC, Table1.OMC, Table1.DAY FROM Table1 WHERE (((Table1.WC) Like ""*"" & [Forms]![Form1]![Combo0] & ""*"") AND ((Table1.OMC) Like ""*"" & [Forms]![Form1]![Combo2] & ""*""));" End If Me.Combo4 = Null Me.Combo4.Requery Me.Requery End Sub Private Sub Combo4_AfterUpdate() If Len(Me.Combo0 & "") = 0 And Me.Combo2 = 0 And Me.Combo4 = 0 Then Me.Form.RecordSource = "Table1" ElseIf Len(Me.Combo0 & "") = 0 And Me.Combo2 = 0 And Me.Combo4 > 0 Then Me.Form.RecordSource = "SELECT Table1.WC, Table1.OMC, Table1.Day, Table1.ID FROM Table1 WHERE (((Table1.Day) Like ""*"" & [Forms]![Form1]![Combo4] & ""*""));" ElseIf Len(Me.Combo0 & "") > 0 And Me.Combo4 > 0 Then Me.Form.RecordSource = "SELECT Table1.ID, Table1.WC, Table1.OMC, Table1.DAY FROM Table1 WHERE (((Table1.WC) Like ""*"" & [Forms]![Form1]![Combo0] & ""*"") AND ((Table1.OMC) Like ""*"" & [Forms]![Form1]![Combo2] & ""*"") AND ((Table1.day) Like ""*"" & [Forms]![Form1]![Combo4] & ""*""));" End If End Sub واليك القاعدة بعد اضافة الاكواد بحث بواسطة ثلاث كومبوبوكس.accdb @alzahrani07 تم اصلاح