أبوبسمله

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

وعليكم السلام اخى الفاضل لدمج حقول مع بعضها نستخدم هذه الطريقه ولوضع اى شىء بينهم يكون بعد & وبين علامات التنصيص [text1] & "/" & [text2] & "/" & [text3] بالتوفيق

السلام عليكم اخى @ازهر عبد العزيز اتفضل اخى ازهر بعد محاولات الردود وجزاه الله خيرا مهندسنا الغالى @محمد طاهر وجميع القائمين على الموقع وتطويره كان هناك مشكله وان شاء الله تكون قد انحلت لدى الجميع ان صادفتهم جرب ووافنى بالنتيجه بعد الاختيار من النموذج الفرعى من الكمبو idserum Private Sub idserum_AfterUpdate() Me.z = Me.x * Me.y DoCmd.RunCommand acCmdSaveRecord Forms!Fexperience.SetFocus Forms!Fexperience!m = IIf([idexperience] <> "", Nz(DSum("z", "Qtest", "idexperience=" & [idexperience]), 0), 0) Forms!Fexperience!xy = Forms!Fexperience!m End Sub بالتوفيق اخى test(4).accdb

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

مشاركه مع اخى واستاذى @kanory جزاه الله خيرا 💐 جرب المرفق التالى لعله ما تريد على نفس فكرتك بالتوفيق New_autoNum-DCount - 2.accdb

واياكم وفيك بارك الله كلنا نتعلم من بعضنا ومن اخواننا واساتذتنا جزاهم الله خيرا عندما تقف فى اى شئ قم بالبحث اولا فالمنتدى وخارجه فسوف يفدك البحث كثيرا وان لم تصل الى شىء افتح موضوع بالمنتدى واشرح به ما تريد مع مثال للتوضيح وان شاء الله تجد العون باذن الله اما شرح الكود سوف اشرحه ببساطه lastNum متغير واسندت له قيمه آخر سجل بالداله -Dlast- من الاستعلام qryFilter بعد فرزه بناء على 2 الكمبوكس Nz(DLast("ItemCode", "qryFilter"), 0) ثم اضفت متغير بالسطر الذى بعده strNum واسندت الرقم الخاص بالترقيم بعد اقتصاصه بهذا الجزء وبه 3 دوال Right(lastNum, Len(lastNum) - InStrRev(lastNum, "-")) ثم اضافه + 1 ثم السطر الذى بعده متغير strLeft اسندت له الجزء المقصوص قبل الرقم بالجزء وبه 2 داله Left(lastNum, InStrRev(lastNum, "-")) ثم قمنا باستخدام if الشرطيه اذا كان المتغير lastNum =0 يضع القيمه الناتجه من السطر التالى Me.ItemCode = Me.ItemType.Column(2) & "-" & Me.GradName.Column(2) & "-" & 1 والا ضع القيمه بالزياده ارجو ان اكون وفقت بالشرح والتوضيح بالتوفيق اخى

السلام عليكم مشاركه مع اخى واستاذى @kanory اتفضل مثال من مكتبتى وجزاهم الله خيرا اخواننا واساتذتنا 💐 ده الكود وغير فيه ومرفق المثال للاطلاع Private Sub ReNum_Click() Me.RecordSource = "" DoCmd.SetWarnings False ' حذف الفهرسة من حقل الرقم DoCmd.RunSQL "DROP INDEX الرقم ON جدول1;" ' حذف حقل الرقم DoCmd.RunSQL "alter table جدول1 drop الرقم;" ' إضافة حقل الرقم DoCmd.RunSQL "alter table جدول1 Add column الرقم autoincrement;" ' إضافة الفهرسة إلى حقل الرقم DoCmd.RunSQL "CREATE UNIQUE INDEX الرقم on جدول1(الرقم) ;" DoCmd.SetWarnings True Me.RecordSource = "جدول1" End Sub بالتوفيق اعادة الترقيم.rar

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

وعليكم السلام اخى @ازهر عبد العزيز اتفضل محاوله بسيطه ان شاء الله تكون ما تريد Private Sub idserum_AfterUpdate() Dim myCriteria As String myCriteria = "[idexperience]=" & Me.idexperience myCriteria = myCriteria & " And [idserum]=" & Me.idserum Me.used_quantity = 1 If DCount("*", "TBtest", myCriteria) > 0 Then Dim stry As Integer stry = Me.idserum Me.Undo Dim rs As Object myCriteria = "[idserum]=" & stry Set rs = Me.Recordset.Clone rs.FindFirst myCriteria If Not rs.EOF Then Me.Bookmark = rs.Bookmark Me.used_quantity = Me.used_quantity + 1 End If DoCmd.GoToRecord , , acNewRec End Sub بالتوفيق عذرا نسيت ارفاق الملف test(3).accdb

السلام عليكم حاجه على قد الحال ان شاء الله تلبى طلبك تم عمل استعلام qryFilter لتصفيه البيانات بناء على 2 كومبوكس للتصفيه وجلب اخر سجل ثم فى حدث بعد التحديث لـ GradName تم وضع الكود التالى لجلب اخر سجل واضافه 1 عليه جرب ووافنا بالنتيجه Private Sub GradName_AfterUpdate() lastNum = Nz(DLast("ItemCode", "qryFilter"), 0) strNum = Right(lastNum, Len(lastNum) - InStrRev(lastNum, "-")) + 1 strLeft = Left(lastNum, InStrRev(lastNum, "-")) If lastNum = 0 Then Me.ItemCode = Me.ItemType.Column(2) & "-" & Me.GradName.Column(2) & "-" & 1 Else Me.ItemCode = strLeft & strNum End If End Sub بالتوفيق New Microsoft Access Database (3) - Copy.accdb

السلام عليكم اخى @فايز.. برجاء الاطلاع على هذه المشاركه لاخى واستاذى العزيز @ابوخليل واخى @kaser906 جزاهم الله خيرا واعتقد ان فى مشاركات اخر للاستاذ رمهان بالاضافه للوحده النمطيه لاستاذنا ابوهادى حول هذا الموضوع ان شاء الله تجد الحل الامثل لعملك بالتوفيق ابوعبدالرحمن

وعليكم السلام اخى الفاضل استخدم استعلام تحديث ثم شغل الاستعلام بالماكرو وبعدها ريكويرى UPDATE tblYesNo SET tblYesNo.[YesNo] = -1; بالتوفيق

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

الف مبروك اخى @Khalf واعانك الله عليها وتمنياتى لك وللجميع بالتوفيق 💐

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

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

وعليكم السلام وهل قمت بادراج الوحده النمطيه لديك Playsound Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long Function Playsound(sWavFile As String) apisndPlaySound sWavFile, 1 End Function اضف الكود فى وحده نمطيه وجرب مره اخرى ووافنا بالنتيجه بالتوفيق

وعليكم السلام مشاركه مع اخوانى نفس الحل المقدم من اخى واستاذى @kanory جزاه الله خيرا 💐 بالتوفيق m1.accdb

حياك الله اخى ومعلمنا العزيز @jjafferr 💐 و جزاك الله خيرا شرح اكثر من رائع وبسيط وسهل بارك الله لنا فيك وبارك لك في كل ماتحب بالتاكيد معلمنا العزيز سوف اضيفه الى مكتبتى ولاستزيد من علمكم جزاك الله عنا كل خير 💐

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 والشكر موصول لاخى واستاذى حسين @د.كاف يار جزاه الله خيرا 💐 اتفضل ان شاء الله يكون ما تريد Option Compare Database 'Option Explicit Private Sub btnSave_Click() DoCmd.GoToRecord , , acNewRec LastNum End Sub Private Sub Form_Load() LastNum End Sub Private Sub LastNum() lR = Nz(DLast("[رقم الوثيقة]", "[ضد الغير]"), 0) strRnum = Right(lR, Len(lR) - InStrRev(lR, "/")) + 1 strT = Left(lR, InStrRev(lR, "/")) Me.numW = strT & strRnum End Sub بالتوفيق k222 - 1.accdb

مساء النور اخى محمد الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 والشكر موصول لاخى واستاذى @kanory جزاه الله خيرا 💐

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

السلام عليكم مشاركه مع اخى واستاذى @kanory جزاه الله خيرا 💐 لعله يكون ما تريد Private Sub Form_Current() If Not Me.NewRecord Then Me.UserName = Me.UserName.OldValue Else Me.UserName = [Forms]![UserLogin]![n1] End If End Sub بالتوفيق 233.accdb

السلام عليكم اخى @سالم محمد مشاركه مع اخى واستاذى حسين @د.كاف يار جزاه الله خيرا فى حالة انك بترك رقم الوثيقه فارغ سيتم جلب اخر سجل تم تسجيله وزياده +1 اما اذا قمت بكتابه رقم وثيقه جديد اى فى حاله التغيير سيتم تسجيله ثم بعد ذلك يتم جلب اخر سجل تم تسجيله وزياده +1 جرب ووافنا بالنتيجه Private Sub nameTamin_AfterUpdate() If Len(numW & "") = 0 Then lR = Nz(DLast("[رقم الوثيقة]", "[ضد الغير]"), 0) strRnum = Right(lR, Len(lR) - InStrRev(lR, "/")) + 1 strT = Left(lR, InStrRev(lR, "/")) Me.numW = strT & strRnum Else Me.numW = Me.numW End If End Sub بالتوفيق ان شاء الله k222 - 1.accdb