محمد أبوعبدالله

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

كل عام وانتم الى الله اقرب تحياتي

وعليكم السلام ورحمة الله وبركاته نعم اخي الكريم كلمة Set من الكلمات المحجوزة في access وهناك الكثير ايضاً محجوز مثل add , all , and ... الخ وعند استخدام هذه الكلمات كإسم حقل او اسم جدول يحدث تعارض في الاوامر كما حدث معك تماماً تحياتي

حزاكم الله خيرا استاذنا الفاضل موفق دائماً باذن الله تحياتي

وعليكم السلام ورحمة الله وبركاته اخي الكريم غير اسم الجدول set الى اي اسم اخر وليكن مثلا set1 لتكون جملة sql كالتالي ctype = " select * from set1 where ([rashaqa]='" & Me.a & "')" تحياتي

بالاضافة الى ما تفضل به اساتذتي الكرام ولهم الشكر قم بعمل استعلام وقم بعمل علاقة بيني حقلي Inv_Date في كلا الجدولين ليكون الاستعلام كالتالي SELECT DISTINCT [فاتورة المبيعات]![M&YS] AS [الشهر والسنة], DSum("[TotalS1]","[فاتورة المبيعات]","[M&YS]='" & [M&YS] & "'" & " and [op_type] = '" & "مرتجع مبيعات" & "'") AS [مرجع المبيعات], DSum("[TotalS1]","[فاتورة المبيعات]","[M&YS]='" & [M&YS] & "'" & " and [op_type] = '" & "فاتورة بيع" & "'") AS المبيعات, DSum("[Discount]","[فاتورة المبيعات]","[M&YS]='" & [M&YS] & "'" & " and [op_type] = '" & "فاتورة بيع" & "'") AS [الخصم المسموح به], DSum("[TotalP1]","[فاتورة المشتريات]","[M&YP]='" & [M&YP] & "'" & " and [op_type] = '" & "فاتورة شراء" & "'") AS المشتريات, DSum("[TotalP1]","[فاتورة المشتريات]","[M&YP]='" & [M&YP] & "'" & " and [op_type] = '" & "مرجع مشتريات" & "'") AS [مرجع المشتريات], DSum("[Discount]","[فاتورة المشتريات]","[M&YP]='" & [M&YP] & "'" & " and [op_type] = '" & "فاتورة شراء" & "'") AS [الخصم المكتسب] FROM [فاتورة المبيعات] INNER JOIN [فاتورة المشتريات] ON [فاتورة المبيعات].Inv_Date = [فاتورة المشتريات].Inv_Date; تحياتي

تفضل اخي الكريم تم عمل استعلام تحديث وهو كالتالي UPDATE Table1 SET Table1.m = DateAdd("yyyy",60,[datebirth]-1); Database1(3).rar تحياتي

وعليكم السلام ورحمة الله وبركاته قم بعمل استعلام تحديث لكافة البيانات او قوم بوضع الكود في وحدة نمطية وقم بعمل تشغيل له من زر امر في النموذج او ارفاق مثال لعمل اللازم ملاحظة اخي الكريم : لا يحب تكرار طرح الموضوع ثلاث مرات متتالية فهذا محالف لقوانين الموقع ممنوعات : تعرض المشاركة للالغاء الفوري 1. ممنوع نهائيا وبشكل قاطع تكرار الموضوع نفسه أو فتح موضوع جديد للمطالبة برد في موضوع سابق https://www.officena.net/Tips/Questions.htm تحياتي

وعليكم السلام ورحمة الله وبركاته نعم توجد اداة في الاكسيس باسم webbrowser لها استخدامات عديدة تفضل هذا الموضوع يمكنك الاستفادة منه تحياتي

جزاك الله خيرا اخي الكريم والشكر موصول لاستاذنا الفاضل @احمد الفلاحجي تحياتي

السلام عليكم نفضل اخي الكريم تحياتي

وعليكم السلام ورحمة الله وبركاته اخي الكريم غير خاصية الحقول التي تريد الزام تعبئتها الى مطلوب / Required الى نعم كما في الصورة تحياتي

وعليكم السلام ورحمة الله وبركاته اضف السطر التالي للكود Me.Undo ليكون الكود كاملاً كالتالي Private Sub أمر25_Click() Call NoEmptyTexts If ii = 1 Then Exit Sub DoCmd.CancelEvent Me.Undo Else Me.Refresh MsgBox " تمت عمليةاضافة موظف جديد ( " & صفحة1.Form.اللقب1 & ") بنجاح ", vbInformation + vbOKOnly, "تنبيه" End If DoCmd.GoToRecord , الموظف, acNewRec DoCmd.CancelEvent End Sub تحياتي

راجع المرفق التالي بارك الله فيك UserLog.rar تحياتي

نفع الله بك استاذنا @jjafferr دمتم بكل خير تحياتي

وعليكم السلام ورحمة الله وبركاته انظر استعلام q1 وتقرير rep1 ارجو ان يكون هو المطلوب tt.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم UserLog.rar تحياتي

استاذنا الغالي بزيادة @jjafferr ما شاء الله عليك وزادك الله من فضله وعلمه لكنها اكثر من رائعة تحياتي

جميل يا غالي اذا نعتمد على حقل username واذا كان يبدأ بمشرف نعطيه رقم واحد واذا كان حاج نعطيه رقم 2 ليكون كود تحديد degree كالتالي On Error Resume Next ' تصفير حقل degree mySQL = "Update tbl_Tsjeel" mySQL = mySQL & " SET degree = 0" CurrentDb.Execute (mySQL) ' اذا كان مشرف يأخذ رقم 1 واذا كان حاج ياخذ رقم 2 mySQL = "Select * From tbl_Tsjeel" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst Do While Not rst.EOF For i = 1 To 5 rst.Edit If Left(rst!UserName, 4) = "مشرف" Then rst!degree = "1" Else rst!degree = "2" End If rst.Update rst.MoveNext Next Loop rst.Close: Set rst = Nothing ارجو ان يكون تم اصلاح هذا الجزء الكود كامل كالتالي On Error Resume Next ' تصفير حقل degree mySQL = "Update tbl_Tsjeel" mySQL = mySQL & " SET degree = 0" CurrentDb.Execute (mySQL) ' اذا كان مشرف يأخذ رقم 1 واذا كان حاج ياخذ رقم 2 mySQL = "Select * From tbl_Tsjeel" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst Do While Not rst.EOF For i = 1 To 5 rst.Edit If Left(rst!UserName, 4) = "مشرف" Then rst!degree = "1" Else rst!degree = "2" End If rst.Update rst.MoveNext Next Loop rst.Close: Set rst = Nothing '============================================================== 'توزيع المشرفين على 5 باصات mySQL = "Select * From tbl_Tsjeel" mySQL = mySQL & " WHERE degree = '1'" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst Do While Not rst.EOF For i = 1 To 5 rst.Edit rst!busNum = Str(i) rst.Update rst.MoveNext Next Loop rst.Close: Set rst = Nothing '============================================================== 'توزيع الحجاج على 5 باصات mySQL = "Select * From tbl_Tsjeel" mySQL = mySQL & " WHERE degree = '2'" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst Do While Not rst.EOF For i = 1 To 5 rst.Edit rst!busNum = Str(i) rst.Update rst.MoveNext Next Loop rst.Close: Set rst = Nothing '============================================================== 'توزيع المرافقين على 5 باصات mySQL = "Update tblSub_Tsjeel" mySQL = mySQL & " SET busNum = 0" CurrentDb.Execute (mySQL) Dim strSQL As String strSQL = "UPDATE tbl_Tsjeel " & vbCrLf strSQL = strSQL & " INNER JOIN tblSub_Tsjeel " & vbCrLf strSQL = strSQL & " ON tbl_Tsjeel.userid = tblSub_Tsjeel.userid SET tblSub_Tsjeel.busNum = [tbl_Tsjeel]![busNum];" CurrentDb.Execute (strSQL) بانتظارك ان شاء الله تحياتي

بالتوفيق اخي الكريم تحياتي

تفضل اخي الكريم Dim excelFilePath As String excelFilePath = CurrentProject.Path & "\" & "employee.xlsx" ' حذف الجدول القديم DoCmd.DeleteObject acTable, "employee" ' استيراد الجدول الجديد DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel16, "employee", excelFilePath, True ملاحظة : acSpreadsheetTypeExcel16 يتغير حسب اصدار الاوفيس لديك سيظهر معك الان كجدول مرتبط قم بعمل استعلام الحاق للجدول الاساسي لاضافة البيانات اليه تحياتي

اضف حقل في الجدول ثم اعرضه في النموذج تحياتي

وعليكم السلام ورحمة الله وبركاته بالاضافة الى ما تفضل به استاذنا الفاضل @أحمد الفلاحجى وله الشكر تفضل اخي الكريم الكود التالي If IsNull(txtcategorie) Then MsgBox "la case est vide", vbCritical Me.txtcategorie.SetFocus Else Dim db As DAO.Database Dim Rs As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT Categories.*FROM Categories;") Rs.AddNew Rs("IdCategorie") = DMax("[IdCategorie]", "Categories") + 1 Rs("LibCategorie") = Me.txtcategorie Rs.Update Rs.Close End If testInsert.accdb تحياتي

السلام عليكم النموذج مضدره استعلام تجميعي والاستعلام التجميعي لن تستطيع الكتابة فيه الافضل ان تتم العمليات الحسابية ( جمع ، طرح ... الخ ) في الاستعلام والنموذج والتقرير اخيراً استخدم دالة NZ في العمليات الحسابية ليعيطك اجابات صحيحة مثال Nz([T_Qty])*Nz([T_meter's]) تحياتي

وعليكم السلام ورحمة الله وبركاته لانك تريد استيراد جدول employee وهو موجود اساساً اذا كنت تريد استيراد البيانات فقط قم بعمل ربط لملف اكسيل ثم قم بعمل استعلام الحاق اما اذا كنت تريد حذف الجدول القديم واستيراد الجدول الجديد نفذ الامر التالي DoCmd.DeleteObject acTable, "employee" تحياتي