نجوم المشاركات

,تفضل أخي @Elsayed Bn Gemy مرفق البحث.accdb

حياك الله والحمد لله رب العالمين

تسلم يداك اخى الكريم وهو المطلوب بالظبط حاولتاستخدام الدالة like مع mid بس مظبطتش معايا كان ينقصنى الكود شكراااااااااااااا جزيلا لك

,وعليكم السلام ورحمة الله حياك أخي @Elsayed Bn Gemy لو ارفقت مثال مبسط حتى نطبق الكود عليه ... بارك الله فيك

الله يخليك ، اجلس واقرأ ، اخاف لا تطيح لما تعرف شو اللي عملته حذفت الحقل التالي: جعفر

السلام عليكم احتاج الى اعادة ترقيم الحقل ID في الجدول Data من رقم معين استطيع كل مره تغييره فمثلا اعادة ترقيم الحقل يبدا من 55 و 56 و57 و 58 اي عندما احدد اول عدد يقوم على التوالي بترقيم تصاعديا وشكرا Access.rar

استخدم هذا Txt = Combo.Text vlv = 0 Txt.SetFocus Combo.Requery Combo.SetFocus rr = vlv If vlv = 1 Then Combo.Dropdown

If Me.[وقت الخروج] < Me.[وقت الدخول] Then MsgBox "لا يمكن الحفظ لأن وقت الدخول هو اكبر من الوقت الدخول" Else DoCmd.RunCommand acCmdSaveRecord DoCmd.GoToRecord , , acNewRec End If Database391test.accdb

اثناء فتح البرنامج او قبل تنقر على البرنامج اضغط على زر shift واستمر ضاغط وانت تفتح البرنامج سيفتح لك التصميم

شكرا لك وجزاك الله خير

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

لو ممكن رفع الملف مرة اخرى فبه مشكلة عند فك الضغط

السلام عليكم إخوتى الكرام وكل عام و أنتم بخير لدى نموذج غير معتمد على جدول أو استعلام قمت بفتح recordset عن طريق ال ado قمت بجعل مصدر بيانات النموذج هو ال recordset المسماة adorec كما قمت بإسناد مربعات النصوص لل recordset كل مربع نص إلى حقل فى recordset أنشأت أزرارا للسابق و اللاحق و الأول و الأخير ...... كما ترون بالصورة المشكلة أنشأت زرا لإضافة سجل جديد لكنه لم يقبل و ظهرت رسالة تفيد بأنه لا يمكننى الانتقال للسجل المحدد جربت إضافة سجل جديد بالكود Docmd.gotorecord,,acnewrecord و عن طريق إضافة زر جاهز كل هذا لم يقبله أرجو النصيحة من خبراء المنتدى الأفاضل هل لا يمكن إضافة سجل جديد لنموذج تم تحميل مصدر بياناته ب الريكورد سيت من خلال الكود هذا هو كود الفتح Dim iBink As Integer Dim ForeColor As Long Dim adocon As ADODB.Connection Dim adorec As ADODB.Recordset Private Sub cmdcancel_Click() Me.Undo End Sub Private Sub cmdend_Click() DoCmd.Close acForm, (Me.Name) End Sub Dim adocon As ADODB.Connection Dim adorec As ADODB.Recordset Private Sub Form_Load() Set adocon = CurrentProject.AccessConnection Set adorec = New ADODB.Recordset With adorec Set .ActiveConnection = adocon .Source = "SELECT * FROM tblmain" .LockType = adLockOptimistic .CursorType = adOpenKeyset .Open End With هنا إسناد الريكورد سيت لتكون مصدر بيانات النموذج Set Me.Recordset = adorec و هذه جمل لتحديد مصدر بيانات مربعات النصوص لتكون حقول فى recordset txtfind.ControlSource = "=[" & adorec.Fields(0).Name & "]" txtname.ControlSource = "=[" & adorec.Fields(5).Name & "]" txtqawmy.ControlSource = "=[" & adorec.Fields(4).Name & "]" txtqaydn.ControlSource = "=[" & adorec.Fields(20).Name & "]" txtfn.ControlSource = "=[" & adorec.Fields(13).Name & "]" txtmn.ControlSource = "=[" & adorec.Fields(16).Name & "]" txtwn.ControlSource = "=[" & adorec.Fields(22).Name & "]" txtmelad.ControlSource = "=[" & adorec.Fields(31).Name & "]" End Sub Set adorec = Nothing Set adocon = Nothing End Sub

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

وعليكم السلام لوسمحت ترفق لي قاعدة بياناتك اللي فيها بيانات ، علشان اقدر اشوفها جعفر

وعليكم السلام تفضل ، جرب هذا التعديل: Private Sub cmd_Do_The_Changes_Click() 'make Reference to Microsoft DAO x.xx Object Library Dim rst As DAO.Recordset Dim biggest_Number As Long Dim i As Integer Dim j As Integer Dim RC As Integer Dim Multiply_by As String biggest_Number = Len(DMax("[ID]", "Data")) 'what number to multiply with Multiply_by = 1 For i = 1 To biggest_Number Multiply_by = Multiply_by & "0" Next i 'we have to do this in two steps: '1 based on the Biggest Number, lets multiply it by 10, so that No number id duplicated '2 then Seq based on the required Seq '1 Set rst = CurrentDb.OpenRecordset("Select * From Data") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC 'change the existing numbers to BIGGER NUMBERS rst.edit rst!ID = rst!ID * Val(Multiply_by) rst.Update rst.MoveNext Next i '2 rst.MoveFirst For i = 0 To RC - 1 'change the BIGGER NUMBERS to the new Seq rst.edit rst!ID = Me.int_Start + i rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing MsgBox "Done" End Sub جعفر 927.1.Access2.accdb.zip

جزاكم الله الخير كله

شكرا استاذ طلعت محمد الله يبارك بيك

شكراً أستاذ @رمهان لقد نجحت الطريقة ...