أبوبسمله

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

جزاك الله خيرا 💐 استاذى العزيز هل هو مجانى ام لا ولو امكن وصله لتحميله

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

السلام عليكم اتفضل اخى @عمر طاهر جرب ووافنا بالنتيجه بالتوفيق test.accdb

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

اتفضل اخى INSERT INTO [C:\Users\Nada\Desktop\pwd2003\Data2.mdb;pwd=123456].tblData SELECT tblData.SName AS SName, tblData.SDate AS SDate FROM tblData; pwd2003.rar

مشاركة مع معلمنا العزيز جعفر جزاه الله كل خير واحسن الله اليه كما يحسن لطلاب العلم غير الكود الى Private Sub MODELS_BeforeUpdate(Cancel As Integer) If DCount("MODELS", "MARKA", "[MODELS]= " & Trim(Me.MODELS.Column(0))) > 0 Then MsgBox "åÐå ÇáãÇÑßÉ ãÓÌá ãÓÈÞÇð", vbCritical + vbDefaultButton1 + 1572864 Cancel = True Me.Undo End If End Sub بالتوفيق

السلام عليكم ماشاء الله معلمنا العزيز @jjafferr جزاك الله خيرا واحسن الله لكم كما تحسنون لطلاب العلم 💐 لعل هذا ما تريد قاعده Data2 هى اللى عليها باسوورد 123456 افتحها واطلع عالجدول ستجده فارغ ادخل عالقاعد Data1 ستجد بها استعلام الحاق قم بتشغيله سيتم نقل بيانات الجدول للقاعده 2 INSERT INTO [C:\Users\Nada\Desktop\pwd\Data2.accdb;pwd=123456].tblData SELECT tblData.SName, tblData.SDate FROM tblData; بالتوفيق pwd.rar

السلام عليكم مشاركه مع الاستاذ كريم جرب الكود بعد التعديل وهو باضافه PtrSafe Option Compare Database Declare PtrSafe Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Function resizefrom(frm As Form, bestw As Integer, besth As Integer) On Error Resume Next wrate = DisplaySize(0) / bestw hrate = DisplaySize(1) / besth frm.InsideWidth = frm.InsideWidth * wrate frm.InsideHeight = frm.InsideHeight * hrate Dim fc As Control For Each fc In frm.Controls fc.Top = fc.Top * hrate fc.Left = fc.Left * wrate fc.Width = fc.Width * wrate fc.Height = fc.Height * hrate fc.FontSize = fc.FontSize * wrate Next End Function

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

وعليكم السلام ورحمه الله وبركاته @abouelhassan التاريخ يتم كتابته بين علامتى الشباك ## #01/01/2020# بالتوفيق

جزاكم الله خيرا اخووانى واساتذتى 💐 ومشاركه مع اخوانى واساتذتى حاجه ع قد حالى وتاكيدا على وجود جدول خاص بالاسماء قمت بانشاء جدول خاص بالاسماء ولبيان السبب انظر الاستعلام رقم 1 هتلاقى عندك 4 اسماء والاستعلام الثانى 5 SELECT tblNames.Sname, DSum("[عدد العمليات]","Table1","[الاسم] Like '*" & [Sname] & "*'") AS Expr1 FROM tblNames; دى صوره الاستعلام الاول ودى صورة الاستعلام الثانى جزاكم الله خيرا اخوانى واساتذتى بالتوفيق op_1.accdb

واياكم اخى ازهر وياريت تتفضل وترفق حلك الذى توصلت اليه لتعدد الحلول بارك الله فيك

وعليكم السلام اتفضل اخى @ازهر عبد العزيز ان شاء الله يكون ما تريد Private Sub idx_NotInList(NewData As String, Response As Integer) Dim strSql As String, x As Integer x = MsgBox("هذا الاسم غير موجود .. هل ترغب في إضافته؟", vbYesNo + vbDefaultButton1) If x = vbYes Then strSql = "Insert Into tbx (x1) values ('" & NewData & "')" CurrentDb.Execute strSql Response = acDataErrAdded Else Response = acDataErrContinue End If End Sub بالتوفيق XY.accdb

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

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير اللهم آمين وجميع المسلمين والمسلمات والمؤمنين والمؤمنات ان شاء الله نعم اضف ما تريد ثم حدثهم بالترتيب من الاصغر الى الاكبر يعنى 2 ثم 3 وهكذا وده تعديل بسيط باضافه كمبو تختار منه Private Sub btnRun_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb strSql = "SELECT tbl_Items.iPage " & _ "FROM tbl_Items " & _ "WHERE tbl_Items.iPage >= " & Me!cmbIPageID.Column(0) If IsNull(cmbIPageID) Then MsgBox "من فضلك اختر القيمه التى تريد تحديثها" Me.cmbIPageID.SetFocus Me.cmbIPageID.Dropdown Exit Sub End If Set rs = db.OpenRecordset(strSql) rs.MoveLast: rs.MoveFirst For i = 0 To rs.RecordCount - 1 rs.Edit rs.Fields(0) = rs.Fields(0).Value + 1 rs.Update rs.MoveNext Next Me!cmbIPageID = "" rs.Close db.Close Set rs = Nothing Set db = Nothing End Sub بالتوفيق DATA14_2.mdb

وعليكم السلام اخى الفاضل @abouelhassan اتفضل حاجه بسيطه على قد حالى وع قد ما فهمت تم اضافه فورم frmUPDate وبه حقل نص واحد وزر امر بعد ان تقوم بالتعديلات التى تعملها شوف الرقم اللى قمت باضافته بقى رقم كام افتح فورم frmUPDate وفى حقل النص ضع هذا الرقم ثم قم بالضغط عالزر Private Sub btnRun_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb strSql = "SELECT tbl_Items.iPage " & _ "FROM tbl_Items " & _ "WHERE tbl_Items.iPage >= " & Me!txtUPDate If IsNull(Me!txtUPDate) Then Exit Sub Set rs = db.OpenRecordset(strSql) rs.MoveLast: rs.MoveFirst For i = 0 To rs.RecordCount - 1 rs.Edit rs.Fields(0) = rs.Fields(0).Value + 1 rs.Update rs.MoveNext Next End Sub قمت بوضع نفس المسمى المديونات بقى رقم 3 ضع رقم 3 فالحقل و اضغط عالزر جرب ووافنا بالنتيجه بالتوفيق DATA14(1).mdb

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

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

السلام عليكم مشاركه مع اخى الفاضل @ابو محمد 316 جزاه الله خيرا 💐 اتفضل اخى @mrbakr ان شاء الله يكون ما تريد Private Sub Command405_Click() Dim strSql As String Dim TempQdf As QueryDef Dim db As DAO.Database Set db = CurrentDb strSql = "Select * from الموظفين" If Me.Fr_U.Form.Filter <> "" Then strSql = strSql & " WHERE " & Me.Fr_U.Form.Filter End If Set TempQdf = db.CreateQueryDef("ExportFiltered", strSql) DoCmd.OutputTo acOutputQuery, TempQdf.Name, acFormatXLSX, "", True, "", , acExportQualityPrint db.QueryDefs.Delete TempQdf.Name 'DoCmd.OutputTo acOutputQuery, "u", acFormatXLSX, "", True, "", , acExportQualityPrint End Sub بالتوفيق 123_1.accdb

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

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

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

معلمى العزيز @ابوخليل طالما سوف يتم النظر الى الشهر فيجب النظر الى الشهر والسنه معا اليس كذلك وعليه يجب تعديل السطر التالى ويتم الاستغناء عن الاستعلام qryAmountInMonth يجب ادخال التاريخ قبل المبلغ j = DSum("amount", "qryAmountInMonth", "emp_name=" & emp_name) الى j = Nz(DSum("amount", "salary", "emp_name=" & emp_name & " And Year([dated])=" & Year([dated]) & " And Month([dated])=" & Month([dated])), 0) delete2.accdb