اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابوبسمله

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    918

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    11

Community Answers

  1. ابوبسمله
    ابوبسمله's post in كيف يتم السماح بادخال قيمة فارغة لحقل من نوع تاريخ was marked as the answer   
    وعليكم السلام اخى واستاذى @sandanet
    اتفضل ان شاء الله يكون ما تريد
    Private Sub Command25_Click() Dim mydb, mydac Dim strSQL As String mydb = IIf(Nz(Me!textbox2.Value) = "", "Null", "#" & Me!textbox2.Value & "#") strSQL$ = ("INSERT INTO table1 ([fullname] , [date_birth]) VALUES('" & Me!textbox1 & "', " & mydb & ")") CurrentDb.Execute strSQL, dbFailOnError subfrm.Requery MsgBox "تم حفظ البيانات بنجاح", vbInformation + vbMsgBoxRight, "تنبيه" End Sub بالتوفيق اخى
    example(1).accdb
  2. ابوبسمله
    ابوبسمله's post in كيف يتم السماح بادخال قيمة فارغة لحقل من نوع تاريخ was marked as the answer   
    وعليكم السلام اخى واستاذى @sandanet
    اتفضل ان شاء الله يكون ما تريد
    Private Sub Command25_Click() Dim mydb, mydac Dim strSQL As String mydb = IIf(Nz(Me!textbox2.Value) = "", "Null", "#" & Me!textbox2.Value & "#") strSQL$ = ("INSERT INTO table1 ([fullname] , [date_birth]) VALUES('" & Me!textbox1 & "', " & mydb & ")") CurrentDb.Execute strSQL, dbFailOnError subfrm.Requery MsgBox "تم حفظ البيانات بنجاح", vbInformation + vbMsgBoxRight, "تنبيه" End Sub بالتوفيق اخى
    example(1).accdb
  3. ابوبسمله
    ابوبسمله's post in كيف يتم السماح بادخال قيمة فارغة لحقل من نوع تاريخ was marked as the answer   
    وعليكم السلام اخى واستاذى @sandanet
    اتفضل ان شاء الله يكون ما تريد
    Private Sub Command25_Click() Dim mydb, mydac Dim strSQL As String mydb = IIf(Nz(Me!textbox2.Value) = "", "Null", "#" & Me!textbox2.Value & "#") strSQL$ = ("INSERT INTO table1 ([fullname] , [date_birth]) VALUES('" & Me!textbox1 & "', " & mydb & ")") CurrentDb.Execute strSQL, dbFailOnError subfrm.Requery MsgBox "تم حفظ البيانات بنجاح", vbInformation + vbMsgBoxRight, "تنبيه" End Sub بالتوفيق اخى
    example(1).accdb
  4. ابوبسمله
    ابوبسمله's post in ضرب حقلين داخل استعلام بواسطة فاكشن was marked as the answer   
    شكرا اخى ابواشرف @عبد اللطيف سلوم على المساعده ولكن ليس هذا المطلوب المطلوب هو جمع عمود القيم الناتج عن الفنكشن
    اتفضل اخى @Matin_Murad
    تم تغيير بسيط فالفنكشن
    Function test(a, b) test = Nz(a, 0) * Nz(b, 0) End Function
    بالتوفيق اخوانى
    price_fa(2).accdb
  5. ابوبسمله
    ابوبسمله's post in تحديث النموذج مع البقاء على نفس المكان was marked as the answer   
    السلام عليكم
    اتفضل اخى هل هذا ماتريد؟
     
    Requery(1).accdb
  6. ابوبسمله
    ابوبسمله's post in مطلوب تنسيق الوقت was marked as the answer   
    السلام عليكم
    مشاركه مع اخى واستاذى العزيز @biskra جزاه الله خيرا 💐
    اتفضل اخى @Matin_Murad هل هذا ما تريد
    Private Sub Form_Load() Call strTime End Sub Private Sub Form_Timer() Call strTime End Sub Sub strTime() x = CDbl(Now) - CDbl(TimeValue("12:00:00")) Me.xxx = Format(TimeValue(CDate(x)), "HH:NN:SS") End Sub
    بالتوفيق
    ساعة رقمية 12.accdb
  7. ابوبسمله
    ابوبسمله's post in مجموع للصفحة فى تكست بوكس was marked as the answer   
    وعليكم السلام @abouelhassan
    اتفضل ان شاء الله يكون ما تريد
    =Nz([Store_1];0)+Nz([Store_2];0)+Nz([Store_3];0)+Nz([Store_4];0)+Nz([Store_5];0)+Nz([Store_6];0)+Nz([Store_7];0) بالتوفيق
     
    DATA12(1).mdb
  8. ابوبسمله
    ابوبسمله's post in دالة لربط حقل رقمي في جدول برقم اخر موجود بين رقمين في جدول اخر was marked as the answer   
    الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا
    اتفضل
    Function strFind(txtFind As Integer) Dim db As DAO.Database Dim rs As DAO.Recordset Dim rs1 As DAO.Recordset Dim strSQL As String Dim strSQL1 As String On Error Resume Next strSQL = "SELECT tablesnadat.firstnosanad ,tablesnadat.namemandop,tablesnadat.endnosanad " & _ "FROM tablesnadat " & _ "WHERE tablesnadat.firstnosanad <=" & txtFind & " And tablesnadat.endnosanad >= " & txtFind Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) Set rs1 = db.OpenRecordset("tableestelame") For i = 0 To rs1.RecordCount - 1 rs.MoveLast: rs.MoveFirst For ii = 0 To rs.RecordCount - 1 If rs1.Fields(2) >= rs.Fields(0) And rs1.Fields(2) <= rs.Fields(2) Then rs1.Edit rs1.Fields(3) = rs.Fields(0) rs1.Fields(1) = rs.Fields(1) rs1.Update End If rs.MoveNext Next rs1.MoveNext Next rs.Close Set rs = Nothing Set db = Nothing End Function  
    exambledataNew - 2.accdb
  9. ابوبسمله
    ابوبسمله's post in دالة لربط حقل رقمي في جدول برقم اخر موجود بين رقمين في جدول اخر was marked as the answer   
    الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا
    اتفضل
    Function strFind(txtFind As Integer) Dim db As DAO.Database Dim rs As DAO.Recordset Dim rs1 As DAO.Recordset Dim strSQL As String Dim strSQL1 As String On Error Resume Next strSQL = "SELECT tablesnadat.firstnosanad ,tablesnadat.namemandop,tablesnadat.endnosanad " & _ "FROM tablesnadat " & _ "WHERE tablesnadat.firstnosanad <=" & txtFind & " And tablesnadat.endnosanad >= " & txtFind Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) Set rs1 = db.OpenRecordset("tableestelame") For i = 0 To rs1.RecordCount - 1 rs.MoveLast: rs.MoveFirst For ii = 0 To rs.RecordCount - 1 If rs1.Fields(2) >= rs.Fields(0) And rs1.Fields(2) <= rs.Fields(2) Then rs1.Edit rs1.Fields(3) = rs.Fields(0) rs1.Fields(1) = rs.Fields(1) rs1.Update End If rs.MoveNext Next rs1.MoveNext Next rs.Close Set rs = Nothing Set db = Nothing End Function  
    exambledataNew - 2.accdb
  10. ابوبسمله
    ابوبسمله's post in دالة لربط حقل رقمي في جدول برقم اخر موجود بين رقمين في جدول اخر was marked as the answer   
    الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا
    اتفضل
    Function strFind(txtFind As Integer) Dim db As DAO.Database Dim rs As DAO.Recordset Dim rs1 As DAO.Recordset Dim strSQL As String Dim strSQL1 As String On Error Resume Next strSQL = "SELECT tablesnadat.firstnosanad ,tablesnadat.namemandop,tablesnadat.endnosanad " & _ "FROM tablesnadat " & _ "WHERE tablesnadat.firstnosanad <=" & txtFind & " And tablesnadat.endnosanad >= " & txtFind Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) Set rs1 = db.OpenRecordset("tableestelame") For i = 0 To rs1.RecordCount - 1 rs.MoveLast: rs.MoveFirst For ii = 0 To rs.RecordCount - 1 If rs1.Fields(2) >= rs.Fields(0) And rs1.Fields(2) <= rs.Fields(2) Then rs1.Edit rs1.Fields(3) = rs.Fields(0) rs1.Fields(1) = rs.Fields(1) rs1.Update End If rs.MoveNext Next rs1.MoveNext Next rs.Close Set rs = Nothing Set db = Nothing End Function  
    exambledataNew - 2.accdb
  11. ابوبسمله
    ابوبسمله's post in مساعدة في طباعة تقرير بعد الفرز was marked as the answer   
    اتفضل
    تحت زر التقرير
    Private Sub أمر1_Click() DoCmd.OpenReport "ur", acViewReport, , Forms!form3!form1.Form.Filter End Sub بالتوفيق
    ur.accdb
  12. ابوبسمله
    ابوبسمله's post in مطلوب حذف الفاصلة بين الأرقام was marked as the answer   
    وعليكم السلام
    هل هذا ما تريد ؟
    Replace([num];".";"")
  13. ابوبسمله
    ابوبسمله's post in ممكن اظهار رسالة بعدم وجود الاسم المطلوب في البحث was marked as the answer   
    السلام عليكم
    جرب ووافنا بالنتيجه
    Private Sub btn_search_Click() Set db = CurrentDb Set rs = db.OpenRecordset("select * from tbl_company ") Dim ser As String Me.txt_search.SetFocus ser = "*" & Me.txt_search.Text & "*" If IsNull(Trim(Me.txt_search.Value)) Then MsgBox "ادخل اسم الشركة للبحث عنها ", vbCritical, "البحث" Me.txt_search.SetFocus Exit Sub ElseIf IsNull(DLookup("[company_name]", "tbl_company", "company_name like '" & ser & "'")) Then MsgBox "هذه الشركة غير موجودة", 16, "بحث" ElseIf Not (Me.txt_search.Text = "") Then Me.sub_company.Form.Filter = "company_name like '" & ser & "'" Me.sub_company.Form.FilterOn = True Else Me.sub_company.Form.FilterOn = False Me.sub_company.Form.Refresh Me.txt_search = Null End If rs.Close Set rs = Nothing Set db = Nothing End Sub بالتوفيق
  14. ابوبسمله
    ابوبسمله's post in serch in combobox was marked as the answer   
  15. ابوبسمله
    ابوبسمله's post in تعديل خانة بنموذج بشرط معين بناء على قيمة خانة أخرى was marked as the answer   
    اتفضل اخى حسام
    وحاول تعدل علشان تتلافى المشاكل دى وخلى التسميات بالعربى فى تسميه توضيحيه
    Private Sub kindEsal_AfterUpdate() 'kindEsal - نوع الاصال If kindEsal = "دفع نقدى" Then If Len(Forms("البيانات الرئيسيه").Form.[ZDate] & "") = 0 Then Forms("البيانات الرئيسيه").Form![krd] = 0 Forms("البيانات الرئيسيه").Form.[numKrd] = 0 Forms("البيانات الرئيسيه").Form.[kst] = 0 End If End If End Sub بالتوفيق
  16. ابوبسمله
    ابوبسمله's post in تعديل خانة بنموذج بشرط معين بناء على قيمة خانة أخرى was marked as the answer   
    اتفضل اخى حسام
    وحاول تعدل علشان تتلافى المشاكل دى وخلى التسميات بالعربى فى تسميه توضيحيه
    Private Sub kindEsal_AfterUpdate() 'kindEsal - نوع الاصال If kindEsal = "دفع نقدى" Then If Len(Forms("البيانات الرئيسيه").Form.[ZDate] & "") = 0 Then Forms("البيانات الرئيسيه").Form![krd] = 0 Forms("البيانات الرئيسيه").Form.[numKrd] = 0 Forms("البيانات الرئيسيه").Form.[kst] = 0 End If End If End Sub بالتوفيق
  17. ابوبسمله
    ابوبسمله's post in تعديل خانة بنموذج بشرط معين بناء على قيمة خانة أخرى was marked as the answer   
    اتفضل اخى حسام
    وحاول تعدل علشان تتلافى المشاكل دى وخلى التسميات بالعربى فى تسميه توضيحيه
    Private Sub kindEsal_AfterUpdate() 'kindEsal - نوع الاصال If kindEsal = "دفع نقدى" Then If Len(Forms("البيانات الرئيسيه").Form.[ZDate] & "") = 0 Then Forms("البيانات الرئيسيه").Form![krd] = 0 Forms("البيانات الرئيسيه").Form.[numKrd] = 0 Forms("البيانات الرئيسيه").Form.[kst] = 0 End If End If End Sub بالتوفيق
  18. ابوبسمله
    ابوبسمله's post in دمج حقلين معا في الجدول was marked as the answer   
    مشاركه مع الدكتور حسنين جزاه الله خيرا 💐
    محاوله بسيطه على قدر معرفتى
    [fatora1] & Left([fatora2];2) & Mid([fatora2];4;2)

    filed.accdb
  19. ابوبسمله
    ابوبسمله's post in دمج حقلين معا في الجدول was marked as the answer   
    مشاركه مع الدكتور حسنين جزاه الله خيرا 💐
    محاوله بسيطه على قدر معرفتى
    [fatora1] & Left([fatora2];2) & Mid([fatora2];4;2)

    filed.accdb
  20. ابوبسمله
    ابوبسمله's post in طريقة لجمع كمية بين تاريخين في استعلام was marked as the answer   
    الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا
    تعديل تجميع حسب لحقل التاريخ الى WHERE
    SELECT Table1.nom, Table1.Designation, Sum(Table1.ts) AS Sumts FROM Table1 WHERE (((DateValue([datefacture]))>=#1/8/2021# And (DateValue([datefacture]))<=#1/9/2021#)) GROUP BY Table1.nom, Table1.Designation; بالتوفيق
  21. ابوبسمله
    ابوبسمله's post in مشكلة فى ظهور رسالة خطأ عند فتح نموذج was marked as the answer   
    وعليكم السلام
    اتفضل جرب ووافنا بالنتيجه
    تم التغيير هذا السطر فالكود
    stLinkCriteria = "[Number]=" & Me![Combo1].Column(1) الكود
    Private Sub R_Click() On Error GoTo Err_R_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "Item" stLinkCriteria = "[Number]=" & Me![Combo1].Column(1) DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_R_Click: Exit Sub Err_R_Click: MsgBox err.Description Resume Exit_R_Click End Sub والمعيار فالاستعلام TransactionS استعلام
    لحقل name
    ونصيحه لك حاول ان تبتعد عن الاسماء المحجوز مثل name  وغيرها من الاسماء المحجوزه
    وده رابط للكلمات المحجوزه لاخى واستاذى وشيخنا الجليل ابوخليل جزاه الله خيرا
    ومن ميكروسوفت
    https://support.microsoft.com/ar-sa/office/الكلمات-والرموز-المحجوزة-في-access-ae9d9ada-3255-4b12-91a9-f855bdd9c5a2
     
    بالتوفيق
    Root220.rar
  22. ابوبسمله
    ابوبسمله's post in استبدال بيانات حقل ببيانات حقل من جدول آخر بشرط was marked as the answer   
    وعليكم السلام
    اتفضل اخى @nssj ان شاء الله يكون ما تريد
    عندك استعلام تحديث
    UPDATE b01 INNER JOIN b02 ON b01.hno = b02.hno SET b01.nass = [b02].[nass]; بالتوفيق
    b01.accdb
  23. ابوبسمله
    ابوبسمله's post in انتهاء السطر عند كتابة الكود was marked as the answer   
    وعليكم السلام
    مشاركة مع اساتذتى الافاضل
    دى جملة السيكول بعد التحويل بالمحول المرفق من الاستاذ مهتدى جزاهم الله كل خير  هو واستاذنا العزيز مصلح
    ولو نظرت هتلاقى ان الاستاذ جعفر جزاه الله خيرا اداك نفس الاجابه من الاول
    ويمكن استخدام كذلك طريقه اخرى مظلله بالاخضر بالكود بالمرفق
    Dim strSQL As String strSQL = "INSERT INTO " & "[" & y & "]" & " ( [Full Name]" & vbCrLf strSQL = strSQL & " , 2" & vbCrLf strSQL = strSQL & " , 3" & vbCrLf strSQL = strSQL & " , 4" & vbCrLf strSQL = strSQL & " , 5" & vbCrLf strSQL = strSQL & " , 6" & vbCrLf strSQL = strSQL & " , 7" & vbCrLf strSQL = strSQL & " , 8" & vbCrLf strSQL = strSQL & " , 9" & vbCrLf strSQL = strSQL & " , 10" & vbCrLf strSQL = strSQL & " , 11" & vbCrLf strSQL = strSQL & " , 12" & vbCrLf strSQL = strSQL & " , 13" & vbCrLf strSQL = strSQL & " , 14" & vbCrLf strSQL = strSQL & " , 15" & vbCrLf strSQL = strSQL & " , 16" & vbCrLf strSQL = strSQL & " , 17" & vbCrLf strSQL = strSQL & " , 18" & vbCrLf strSQL = strSQL & " , 19" & vbCrLf strSQL = strSQL & " , 20" & vbCrLf strSQL = strSQL & " , 21" & vbCrLf strSQL = strSQL & " , 22" & vbCrLf strSQL = strSQL & " , 23" & vbCrLf strSQL = strSQL & " , 24" & vbCrLf strSQL = strSQL & " , 25" & vbCrLf strSQL = strSQL & " , 26" & vbCrLf strSQL = strSQL & " , 27" & vbCrLf strSQL = strSQL & " , 28" & vbCrLf strSQL = strSQL & " , 29" & vbCrLf strSQL = strSQL & " , 30" & vbCrLf strSQL = strSQL & " , 31" & vbCrLf strSQL = strSQL & " , 32" & vbCrLf strSQL = strSQL & " , 33" & vbCrLf strSQL = strSQL & " , 34" & vbCrLf strSQL = strSQL & " , 35" & vbCrLf strSQL = strSQL & " , 36" & vbCrLf strSQL = strSQL & " , 37" & vbCrLf strSQL = strSQL & " , 38" & vbCrLf strSQL = strSQL & " , 39" & vbCrLf strSQL = strSQL & " , 40" & vbCrLf strSQL = strSQL & " , 41" & vbCrLf strSQL = strSQL & " , 42" & vbCrLf strSQL = strSQL & " , 43" & vbCrLf strSQL = strSQL & " , 44" & vbCrLf strSQL = strSQL & " , 45" & vbCrLf strSQL = strSQL & " , 46" & vbCrLf strSQL = strSQL & " , 47" & vbCrLf strSQL = strSQL & " , 48" & vbCrLf strSQL = strSQL & " , 49" & vbCrLf strSQL = strSQL & " , 50" & vbCrLf strSQL = strSQL & " , 51" & vbCrLf strSQL = strSQL & " , 52" & vbCrLf strSQL = strSQL & " , 53" & vbCrLf strSQL = strSQL & " , 54" & vbCrLf strSQL = strSQL & " , 55" & vbCrLf strSQL = strSQL & " , 56" & vbCrLf strSQL = strSQL & " , 57" & vbCrLf strSQL = strSQL & " , 58" & vbCrLf strSQL = strSQL & " , 59" & vbCrLf strSQL = strSQL & " , 60" & vbCrLf strSQL = strSQL & " , 61" & vbCrLf strSQL = strSQL & " , 62" & vbCrLf strSQL = strSQL & " , 63" & vbCrLf strSQL = strSQL & " , 64" & vbCrLf strSQL = strSQL & " , 65" & vbCrLf strSQL = strSQL & " , 66" & vbCrLf strSQL = strSQL & " , 67" & vbCrLf strSQL = strSQL & " , 68" & vbCrLf strSQL = strSQL & " , [Sign On Date]" & vbCrLf strSQL = strSQL & " , 70" & vbCrLf strSQL = strSQL & " , 71" & vbCrLf strSQL = strSQL & " , 72" & vbCrLf strSQL = strSQL & " , 73" & vbCrLf strSQL = strSQL & " , 74" & vbCrLf strSQL = strSQL & " , 75" & vbCrLf strSQL = strSQL & " , 76" & vbCrLf strSQL = strSQL & " , 77" & vbCrLf strSQL = strSQL & " , 78" & vbCrLf strSQL = strSQL & " , 79" & vbCrLf strSQL = strSQL & " , 80" & vbCrLf strSQL = strSQL & " , 81" & vbCrLf strSQL = strSQL & " , 82" & vbCrLf strSQL = strSQL & " , 83" & vbCrLf strSQL = strSQL & " , 84" & vbCrLf strSQL = strSQL & " , 85" & vbCrLf strSQL = strSQL & " , 86" & vbCrLf strSQL = strSQL & " , 87" & vbCrLf strSQL = strSQL & " , 88" & vbCrLf strSQL = strSQL & " , 89" & vbCrLf strSQL = strSQL & " , 90" & vbCrLf strSQL = strSQL & " , 91" & vbCrLf strSQL = strSQL & " , 92" & vbCrLf strSQL = strSQL & " , 93" & vbCrLf strSQL = strSQL & " , 94" & vbCrLf strSQL = strSQL & " , 95" & vbCrLf strSQL = strSQL & " , 96" & vbCrLf strSQL = strSQL & " , 97" & vbCrLf strSQL = strSQL & " , 98" & vbCrLf strSQL = strSQL & " , 99" & vbCrLf strSQL = strSQL & " , 100" & vbCrLf strSQL = strSQL & " , 101" & vbCrLf strSQL = strSQL & " , 102" & vbCrLf strSQL = strSQL & " , 103" & vbCrLf strSQL = strSQL & " , 104" & vbCrLf strSQL = strSQL & " , 105" & vbCrLf strSQL = strSQL & " , 106" & vbCrLf strSQL = strSQL & " , 107" & vbCrLf strSQL = strSQL & " , 108" & vbCrLf strSQL = strSQL & " , 109" & vbCrLf strSQL = strSQL & " , 110" & vbCrLf strSQL = strSQL & " , 111" & vbCrLf strSQL = strSQL & " , 112" & vbCrLf strSQL = strSQL & " , 113" & vbCrLf strSQL = strSQL & " , 114" & vbCrLf strSQL = strSQL & " , 115" & vbCrLf strSQL = strSQL & " , 116" & vbCrLf strSQL = strSQL & " , 117" & vbCrLf strSQL = strSQL & " , 118" & vbCrLf strSQL = strSQL & " , 119" & vbCrLf strSQL = strSQL & " , 120" & vbCrLf strSQL = strSQL & " , 121" & vbCrLf strSQL = strSQL & " , 122" & vbCrLf strSQL = strSQL & " , 123" & vbCrLf strSQL = strSQL & " , 124" & vbCrLf strSQL = strSQL & " , 125" & vbCrLf strSQL = strSQL & " , 126" & vbCrLf strSQL = strSQL & " , 127" & vbCrLf strSQL = strSQL & " , 128" & vbCrLf strSQL = strSQL & " , 129" & vbCrLf strSQL = strSQL & " , 130" & vbCrLf strSQL = strSQL & " , 131" & vbCrLf strSQL = strSQL & " , 132" & vbCrLf strSQL = strSQL & " , 133" & vbCrLf strSQL = strSQL & " , 134" & vbCrLf strSQL = strSQL & " , 135" & vbCrLf strSQL = strSQL & " , 136" & vbCrLf strSQL = strSQL & " , 137" & vbCrLf strSQL = strSQL & " , 138" & vbCrLf strSQL = strSQL & " , 139" & vbCrLf strSQL = strSQL & " , 140" & vbCrLf strSQL = strSQL & " , 141" & vbCrLf strSQL = strSQL & " , 142" & vbCrLf strSQL = strSQL & " , 143" & vbCrLf strSQL = strSQL & " , 144 )SELECT [Full Name] " & vbCrLf strSQL = strSQL & " , [2]" & vbCrLf strSQL = strSQL & " , [3]" & vbCrLf strSQL = strSQL & " , [4]" & vbCrLf strSQL = strSQL & " , [5]" & vbCrLf strSQL = strSQL & " , [6]" & vbCrLf strSQL = strSQL & " , [7]" & vbCrLf strSQL = strSQL & " , [8]" & vbCrLf strSQL = strSQL & " , [9]" & vbCrLf strSQL = strSQL & " , [10]" & vbCrLf strSQL = strSQL & " , [11]" & vbCrLf strSQL = strSQL & " , [12]" & vbCrLf strSQL = strSQL & " , [13]" & vbCrLf strSQL = strSQL & " , [14]" & vbCrLf strSQL = strSQL & " , [15]" & vbCrLf strSQL = strSQL & " , [16]" & vbCrLf strSQL = strSQL & " , [17]" & vbCrLf strSQL = strSQL & " , [18]" & vbCrLf strSQL = strSQL & " , [19]" & vbCrLf strSQL = strSQL & " , [20]" & vbCrLf strSQL = strSQL & " , [21]" & vbCrLf strSQL = strSQL & " , [22]" & vbCrLf strSQL = strSQL & " , [23]" & vbCrLf strSQL = strSQL & " , [24]" & vbCrLf strSQL = strSQL & " , [25]" & vbCrLf strSQL = strSQL & " , [26]" & vbCrLf strSQL = strSQL & " , [27]" & vbCrLf strSQL = strSQL & " , [28]" & vbCrLf strSQL = strSQL & " , [29]" & vbCrLf strSQL = strSQL & " , [30]" & vbCrLf strSQL = strSQL & " , [31]" & vbCrLf strSQL = strSQL & " , [32]" & vbCrLf strSQL = strSQL & " , [33]" & vbCrLf strSQL = strSQL & " , [34]" & vbCrLf strSQL = strSQL & " , [35]" & vbCrLf strSQL = strSQL & " , [36]" & vbCrLf strSQL = strSQL & " , [37]" & vbCrLf strSQL = strSQL & " , [38]" & vbCrLf strSQL = strSQL & " , [39]" & vbCrLf strSQL = strSQL & " , [40]" & vbCrLf strSQL = strSQL & " , [41]" & vbCrLf strSQL = strSQL & " , [42]" & vbCrLf strSQL = strSQL & " , [43]" & vbCrLf strSQL = strSQL & " , [44]" & vbCrLf strSQL = strSQL & " , [45]" & vbCrLf strSQL = strSQL & " , [46]" & vbCrLf strSQL = strSQL & " , [47]" & vbCrLf strSQL = strSQL & " , [48]" & vbCrLf strSQL = strSQL & " , [49]" & vbCrLf strSQL = strSQL & " , [50]" & vbCrLf strSQL = strSQL & " , [51]" & vbCrLf strSQL = strSQL & " , [52]" & vbCrLf strSQL = strSQL & " , [53]" & vbCrLf strSQL = strSQL & " , [54]" & vbCrLf strSQL = strSQL & " , [55]" & vbCrLf strSQL = strSQL & " , [56]" & vbCrLf strSQL = strSQL & " , [57]" & vbCrLf strSQL = strSQL & " , [58]" & vbCrLf strSQL = strSQL & " , [59]" & vbCrLf strSQL = strSQL & " , [60]" & vbCrLf strSQL = strSQL & " , [61]" & vbCrLf strSQL = strSQL & " , [62]" & vbCrLf strSQL = strSQL & " , [63]" & vbCrLf strSQL = strSQL & " , [64]" & vbCrLf strSQL = strSQL & " , [65]" & vbCrLf strSQL = strSQL & " , [66]" & vbCrLf strSQL = strSQL & " , [67]" & vbCrLf strSQL = strSQL & " , [68]" & vbCrLf strSQL = strSQL & " , Date() AS SDate " & vbCrLf strSQL = strSQL & " , [70]" & vbCrLf strSQL = strSQL & " , [71]" & vbCrLf strSQL = strSQL & " , [72]" & vbCrLf strSQL = strSQL & " , [73]" & vbCrLf strSQL = strSQL & " , [74]" & vbCrLf strSQL = strSQL & " , [75]" & vbCrLf strSQL = strSQL & " , [76]" & vbCrLf strSQL = strSQL & " , [77]" & vbCrLf strSQL = strSQL & " , [78]" & vbCrLf strSQL = strSQL & " , [79]" & vbCrLf strSQL = strSQL & " , [80]" & vbCrLf strSQL = strSQL & " , [81]" & vbCrLf strSQL = strSQL & " , [82]" & vbCrLf strSQL = strSQL & " , [83]" & vbCrLf strSQL = strSQL & " , [84]" & vbCrLf strSQL = strSQL & " , [85]" & vbCrLf strSQL = strSQL & " , [86]" & vbCrLf strSQL = strSQL & " , [87]" & vbCrLf strSQL = strSQL & " , [88]" & vbCrLf strSQL = strSQL & " , [89]" & vbCrLf strSQL = strSQL & " , [90]" & vbCrLf strSQL = strSQL & " , [91]" & vbCrLf strSQL = strSQL & " , [92]" & vbCrLf strSQL = strSQL & " , [93]" & vbCrLf strSQL = strSQL & " , [94]" & vbCrLf strSQL = strSQL & " , [95]" & vbCrLf strSQL = strSQL & " , [96]" & vbCrLf strSQL = strSQL & " , [97]" & vbCrLf strSQL = strSQL & " , [98]" & vbCrLf strSQL = strSQL & " , [99]" & vbCrLf strSQL = strSQL & " , [100]" & vbCrLf strSQL = strSQL & " , [101]" & vbCrLf strSQL = strSQL & " , [102]" & vbCrLf strSQL = strSQL & " , [103]" & vbCrLf strSQL = strSQL & " , [104]" & vbCrLf strSQL = strSQL & " , [105]" & vbCrLf strSQL = strSQL & " , [106]" & vbCrLf strSQL = strSQL & " , [107]" & vbCrLf strSQL = strSQL & " , [108]" & vbCrLf strSQL = strSQL & " , [109]" & vbCrLf strSQL = strSQL & " , [110]" & vbCrLf strSQL = strSQL & " , [111]" & vbCrLf strSQL = strSQL & " , [112]" & vbCrLf strSQL = strSQL & " , [113]" & vbCrLf strSQL = strSQL & " , [114]" & vbCrLf strSQL = strSQL & " , [115]" & vbCrLf strSQL = strSQL & " , [116]" & vbCrLf strSQL = strSQL & " , [117]" & vbCrLf strSQL = strSQL & " , [118]" & vbCrLf strSQL = strSQL & " , [119]" & vbCrLf strSQL = strSQL & " , [120]" & vbCrLf strSQL = strSQL & " , [121]" & vbCrLf strSQL = strSQL & " , [122]" & vbCrLf strSQL = strSQL & " , [123]" & vbCrLf strSQL = strSQL & " , [124]" & vbCrLf strSQL = strSQL & " , [125]" & vbCrLf strSQL = strSQL & " , [126]" & vbCrLf strSQL = strSQL & " , [127]" & vbCrLf strSQL = strSQL & " , [128]" & vbCrLf strSQL = strSQL & " , [129]" & vbCrLf strSQL = strSQL & " , [130]" & vbCrLf strSQL = strSQL & " , [131]" & vbCrLf strSQL = strSQL & " , [132]" & vbCrLf strSQL = strSQL & " , [133]" & vbCrLf strSQL = strSQL & " , [134]" & vbCrLf strSQL = strSQL & " , [135]" & vbCrLf strSQL = strSQL & " , [136]" & vbCrLf strSQL = strSQL & " , [137]" & vbCrLf strSQL = strSQL & " , [138]" & vbCrLf strSQL = strSQL & " , [139]" & vbCrLf strSQL = strSQL & " , [140]" & vbCrLf strSQL = strSQL & " , [141]" & vbCrLf strSQL = strSQL & " , [142]" & vbCrLf strSQL = strSQL & " , [143]" & vbCrLf strSQL = strSQL & " , [144]" & vbCrLf strSQL = strSQL & " FROM " & "[" & x & "]" & " WHERE ([Full Name]='" & z & "');" DoCmd.RunSQL strSQL بالتوفيق
    New_1 (6).rar
  24. ابوبسمله
    ابوبسمله's post in جلب الاجمالي ومجموع الدفعات والباقي الى التقرير بواسطة دالة DSUM - لكي يتم طباعتها مع التقرير was marked as the answer   
    وعليكم السلام
    اتفضل استاذ @عبد اللطيف سلوم ان شاء الله يكون ما تريد
    بالتوفيق
     
     
    Dsum2021 (2).accdb
  25. ابوبسمله
    ابوبسمله's post in المطلوب احضار الاجمالي ومجموع الدفعات لكي نستخرج الرصيد وذلك من خلال Dsum وليس من خلال استعلام was marked as the answer   
    عذرا اخى @عبد اللطيف سلوم  لم انتبه انه نموذج ادخال تم وقف حدث الحالى
    جرب الان ووافنى بالنتيجه
    Dsum2021.accdb
×
×
  • اضف...

Important Information

  I accept