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

أهلا بكم.. أعتقد أنه يمكن ذلك عن طريق استخدام Google Drive API أحاول أجهز مثال على أكسس وأشرح طريقته إن شاء الله

يمكنك عملها في استعلام إجماليات هكذا : هناك عدة طرق للحصول على المطلوب .. وتعتمد على الكيفية التي تريد استخدام النتيجة فيها .. XY.accdb

السلام عليكم ورحمة الله وبركاته أخي الكريم أرجو أن يكون المطلوب في الملف المرفق شيت المديرية الصف الرابع الابتدائي لغات.xlsm

هذا هو المطلوب كود بسيط وسهل ماقصرت أخي الحبيب Barna الحين احس روحي أني قهرت الأكسس هههههههههههه😄

السلام عليكم مشاركة مع اساتذتي واحبتي تفضل هذا المرفق ارجو ان يكون فيه طلبك ملاحظة : اعتقد ان الدالة dlast ستكون غير مفيدة في هذه الحالة لانها تتعامل مع الاسبقية في ادخال البيانات ولا تراعي اسبقية تاريخ الحقل Root4.rar

استخدم دالة Dmax or DLast اسهل طريقة اعمل استعلام تجميعى واعمل معيار للرقم العميل ليقوم بالقلترة على العميل فقك وفى حقل التاريخ استخدم فى التجميع Last or Max ولو الاوفيس عندك عربى مش عارف هيكون اسمهم ايه

اهلا بك ... بالمناسبة هناك طرق كثيرة للقيام بهذه المهمة ولكن خذ هذه على عجالة .... استخدمنا هذه الشيفرة ..... قم بالضغط على تسجيل جديد وسجل الكتب وأعلمنا بالنتيجة ... Me.tafasel_alktab.Visible = True Me.تسمية6.Visible = True On Error Resume Next Dim Db As DAO.Database Dim Rc As DAO.Recordset Dim ChequesFound Dim ChequeNoStart As Long Dim ChequeNoEnd As Long Dim i As Long Set Db = CurrentDb Set Rc = Db.OpenRecordset("Barna") Do While Not Rc.EOF Rc.MoveNext Loop If Rc.RecordCount = 0 Then rkm_alktab = Year(Date) & "\" & "001" DoCmd.Requery GoTo cmdDisplay_Exit Else DoCmd.GoToRecord , "", acNewRec max_id = DMax("[Brojevtxti]", "barna") + 1 rkm_alktab = Year(Date) & "\" & Right(max_id, 3) End If cmdDisplay_Exit: Set Rc = Nothing Set Db = Nothing تفضل ملفك .... Database41.accdb

أحسن الله إليك أخي الكريم @ابايوسف الحقيقة نظرت في ملفك ومن خلال ما رأيت أقول: إما أنك لم ترفع نسخة عن ملفك الأساسي تظهر فيها رؤوس الأعمدة التي تضيف تحتها البيانات بشكل واضح،والبيانات التي وضعتها كررت فيها اسماً محدداً لعدة صفوف 1- يحتاج الملف أولاً لتصفية تلقائية حسب اسم المخول كما ذكرت. 2- يحتاج أيضاً وضوح مسميات رؤوس الأعمدة. 3- بيانات وهمية تحاكي الواقع ليبنى على تلك الحاجات ما ترغبه في طباعة إيصالات ، حتى الإيصالات تحتاج لخلية بدء وخلية انتهاء لتكون حدود الطباعة واضحة تقبل تحياتي العطرة. والسلام عليكم

يمكنك فعل ذالك عن طريق هذه الدالة dlookupPlus وهي من عمل أحد الإخوة جزاه الله خيرا .. وقد أخذتها من قناته في اليوتيوب .. وظيفتها هي القيام بإحضار جميع القيم الفرعية الخاصة بسجل رئيسي معين .. وليس فقط القيمة الأولى مثل ما هو الحال عند دالة Dlookup المعتادة . أولا : ضع هذه الدالة في موديول : Function dlookupPlus(Fieldname As String, Domain As String, Optional Criteria = "") Dim db As dao.Database Dim rs As Recordset Dim strsql As String Dim i As Integer Dim st, stt As String On Error GoTo dlookup_err Fieldname = Trim(Fieldname): Domain = Trim(Domain) If IsNull(Criteria) Or Criteria = "" Then strsql = "select " & Fieldname & " from " & Domain Else Criteria = Trim(Criteria) strsql = "select " & Fieldname & " from " & Domain & " where " & Criteria End If Debug.Print "StrSql >> " & strsql Set db = CurrentDb Set rs = db.OpenRecordset(strsql, dbOpenDynaset) rs.MoveLast rs.MoveFirst Debug.Print rs.RecordCount For i = 0 To rs.RecordCount - 1 st = rs(Fieldname).Value & " , " stt = stt & st ' Debug.Print "stt" & stt rs.MoveNext Next dlookupPlus = Left(stt, Len(stt) - 2) dlookup_err: Exit Function End Function ثانيا : استخدمها بنفس طريقة استخدامك لدالة Dlookup العادية ولكن بالمسمى الجديد ( والشرط يكون رقم الفاتورة مثلا ) هكذا : dlookupPlus("Nots","TableName","[FatoorhID]=" & Me.FatoorhID ) طبعا تضع الكود أعلاه كمصدر بيانات مربع النص الذي تريد جمع الملاحظات فيه .

السلام عليكم أخي الكريم لعله يفيدك بإذن الله أضف المعادلات التالية إلى الخلايا S6 ----------- T6-----------U6 =IF(ISTEXT(P6);"غائب";IF(P6>=85*$P$4/100;"ممتاز";IF(P6>=65*$P$4/100;"جيد جدا";IF(P6>=50*$P$4/100;"جيد";IF(P6<50*$P$4/100;"ضعيف"))))) =IF(ISTEXT(Q6);"غائب";IF(Q6>=85*$Q$4/100;"ممتاز";IF(Q6>=65*$Q$4/100;"جيد جدا";IF(Q6>=50*$Q$4/100;"جيد";IF(Q6<50*$Q$4/100;"ضعيف"))))) =IF(ISTEXT(R6);"غائب";IF(R6>=85*$R$4/100;"ممتاز";IF(R6>=65*$R$4/100;"جيد جدا";IF(R6>=50*$R$4/100;"جيد";IF(R6<50*$R$4/100;"ضعيف"))))) واسحب نزولاً.

جعلت عملية الاختيار تتم عن طريق مربع التحرير والسرد في صفحة الويب.. إذا أردت أن أجعل الاختيار يتم عن طريق أزرار الاختيار في النموذج فهذا أسهل للفهم.. لكني أفضل أن يكون التعامل مع صفحة البيانات مباشرة! طريقة عمل التبديل بين المخططات تمرير قيمة نصية باسم نوع المخطط إلى المعامل ChartType ضمن الإجراء CHARTS(ChartLabels, ChartData, ChartType) Public Sub CHARTS(ChartLabels, ChartData, CharType) Dim J As String ' ------- All these codes implemented in Web browser document '------- Chart container J = J & "var ctx=document.getElementById('chart-bar').getContext('2d');" '------- Chart Type J = J & "var myChart=new Chart(ctx,{type:'" & CharType & "'," '------- Chart Data J = J & "data:{labels: [" & ChartLabels & "]," J = J & "datasets: [{label: 'Count Of Transaction Type',data: [" & ChartData & "]," '------- Styling Chart components J = J & "backgroundColor:" J = J & "['rgba(255, 99, 132, 0.2)','rgba(54, 162, 235, 0.2)','rgba(255, 206, 86, 0.2)'," J = J & "'rgba(75, 192, 192, 0.2)', 'rgba(153, 102, 255, 0.2)','rgba(255, 159, 64, 0.2)']," J = J & "borderColor:" J = J & "['rgba(255,99,132,1)','rgba(54, 162, 235, 1)','rgba(255, 206, 86, 1)'," J = J & "'rgba(75, 192, 192, 1)','rgba(153, 102, 255, 1)','rgba(255, 159, 64, 1)']," J = J & "borderWidth: 1}]}," '------- Chart options added here,refer to ChartJS documentation for more practicing J = J & "options: {responsive:true,scales:{yAxes:[{ticks:{beginAtZero:true}}]}}});" '--- Execute JScript code WF.PW.execScript (J) End Sub الإجراء سابق الذكر لا يقوم بتنفيذ رسم المخطط بذاته ولكن يقوم بتجميع شفرة JavaScript وكتابتها في صفحة الويب وهذه الأخيرة تقوم بتنفيذه.. والأفضل أن نقوم بكتابة شفرة JavaScript في بنية الصفحة ضمن الجدول WebCode ثم نقوم باستدعاءها من داخل أكسس بعد تمرير قيم المعاملات إليها.. وسبب كون الخيار الثاني هو الأفضل .. صعوبة الأول: لأن كتابة شفرة جافا بهذه الطريقه يوقع في الخطأ لا محالة.. .. أما الثاني: سهولة كتابة الشفرة مباشرة، لكونها أسهل شفرة يمكن كتابتها بين الشفرات البرمجية! كما أنه يمكن اقتباسها من الويب ولصقها في الجدول من دون قلق! أقول هذا لأني وقعت في اشكال بسيط واحتجت معه إلى استدعاء أحد إجراءات الشفرة.. ولتوضيح السبب.. حيث أننا قمنا باستعاء الإجراء CHARTS مرتين: مرة عند إقلاع النموذج، والمرة الثانية عند اختيار نوع المخطط؛ فإن شفرة الجافا تقوم بإشاء رقعة الرسم مرتين، مرة للمخطط الأساسي ومرة للرسم المختار من القائمة.. عند المرور بالمؤشر على رقعة الرسم فسوف نرى أن الصفحة تقوم بالتبديل بين الرسمين! وهذا أمر سيء للغاية، ولذا احتجنا إلى انهاء الأول قبل رسم الثاني وذلك باستخدام إجراء متعلق بالمخطط اسمه Destroy قبل اختيار المخطط الجديد Private Sub WebBrowser0_TitleChange(ByVal Text As String) If Not Text Like "about:*" Then JS.mychart.destroy ' انهاء الرسم السابق Call CHARTS(TransData.Labels, TransData.Data, Text) End If End Sub المرفق بعد التعديل.. Web Charts3.zip

السلام عليكم ورحمة الله وبركاته وبها نبدأ ادخال البيانات مكتوبه بطريقه خاطئه جرب هذا التعديل بصمة.xlsx

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة بالتنسيق الشرطى =C$2=$G3 تنسيق 1شرطي.xlsx

تفضل هذه الطريقة انشئ وحدة نمطينة جديدة Module و الصق الكود التالي Public Function RNumber(etText As Integer) As Integer Dim i As Integer, NewNumber As Integer For i = 1 To Nz(DMax("م", "tbl_BB"), 1) If Nz(DLookup("م", "tbl_BB", "[م]=" & i), 0) = 0 Then NewNumber = i Debug.Print NewNumber Exit Function Else NewNumber = Nz(DMax("م", "tbl_BB"), 0) + 1 End If Next i RNumber = NewNumber End Function و في ازرار الحفظ ضع التالي txt = RNumber(txt) سيتم جلب الرقم الشاغر و في حال عدم وجود رقم شاغر سيتم استكمال الترقيم التلقائي

السلام عليكم سبق وعملت موضوع بخصوص طبع الوصولات - واشارة الى توجيهات الاخوة عملت هذا الملف المطلوب - طبع الوصولات جملة واحدة حسب الرقم الموجود في شيت الارقام المختارة طبع الوصولات جملة واحدة حسب الارقام المختارة.xlsm

السلام عليكم 🙂 كنت اتصفح الانترنت واقرأ عن مستقبل الاكسس ، فوجدت احد محترفي الاكسس عنده صفحة جديدة في اليوتيوب ، وبها رأيت انه هناك محترف آخر عمل ربط بين بيانات الاكسس المحلية ، وكود/شفرة جافا على الانترنت ، وهذه الشفرة متخصصه في عمل رسومات بيانية في صفحات الانترنت ، وهنا تفاصيل الشفرة https://www.chartjs.org/docs/latest/samples/information.html قمت بإنزال الملف واسمه Better-Access_Charts.accdb من موقع https://github.com/team-moeller/better-access-charts وهذه احد الرسومات البيانية اللي فيه: . ونتحكم بنوع الرسومات وتفاصيل المحاور وووو ، من النموذج التالي ، ثم ننقر على الزر الذي عليه السهم الاحمر ، ليعمل تغيير في نموذج الرسومات البيانية . (وهناك ملف آخر هنا https://github.com/team-moeller/better-access-pivottable جميل ان يتم الاطلاع عليه ايضا). تواصلت مع اخي الاستاذ @أبو إبراهيم الغامدي لكي ينظر في الملف وطريقة عمله ، فما شاء الله عليه امدّني بملف اسمه Web Charts.zip وهو برنامج مختصر ومبسّط للملف الآخر ، وهذه احدى صور رسومات البيانات منه: . واتمنى على اخي أبو إبراهيم ان يجعل برنامجه يقبل تغيير انواع الرسومات البيانية كما في البرنامج الآخر 🙂 ميزات الموضوع: فتح باب جديد لطريقة عمل/عرض الاكسس وربطه مع ميزات حديثة من الانترنت . عيوب الموضوع: يجب ان تعرف مكان وجود هذه الشفرات في الانترنت ، وتعرف كيفية استعمالها ، وتتعلم كيف تربطها بالاكسس ، لا تتوقع الحصول على مساعدة من منتدى الاكسس لحل مشكلتك ، فنحن لا نفهم لغة الجافا او HTML . جعفر Better-Access_Charts.accdb.zip Web Charts.zip

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

جزيت خيرا هو المطلوب يرحم والديك

الف الف شكر استاذنا / محمد الحسن تعبت حضرتك معايا وتمام الملف كدا بارك الله لك وشكرا

السلام عليكم انظر للصوره ويمكن بدل كتابه المعيار فالاستعلام اجعله كالتالى او اي شىء مث ادخل رقم الشهر بالعربى براحتك [Enter Num of Month] بالتوفيق

صحيح .. وينطبق عليه التحديث ايضا اذا جعلت خصائص العلاقة (تتالي التحديث ) بشرط ان الا تجعل العلاقة الرأس ترقيم تلقائي

وعليكم السلام ورحمة الله وبركاته أرجو أن يكون الحل مناسباً طبع الوصولات جملة واحدة حسب الارقام المختارة.xlsm

حياك الله ..... وعشان ما يقهرك الاكسس .... هذه طريقة اخرى ربما ابسط ..... تفضل وجرب وأعلمنا بالنتيجة ... Me![r] = Me![sh] + 1 Me![rkm_alktab] = x & "/" & Format(r, "000") Database41.accdb

@محمد حسن المحمد شكرا لك اخى الكريم

مشاركه مع اخى العزيز محمد @ابو جودي نعم بعمل اتقرير مبنى على استعلام تجميعى واستخدم داله max للحصول على اعلى تاريخ وفى المعايير <>date() او <>forms!formName!txtDate اسم الدوال max and alst فالاوفيس العربى بالتوفيق

اخى @HiTec انا لم اغير تنسيق خلايا انا كتبت الوقت فقط مضاف اليه AM او PM

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

احسنت ممكن متابعة هذا الملف الخاص بي https://www.officena.net/ib/topic/112387-طبع-الوصولات-جملة-واحدة-على-اساس-اسم-المخول/

m = sh.Cells(Rows.Count, 1).End(xlUp).Row + 2 lionheart This code is correct

السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً أخي الكريم @hassona229 بارك الله بكم

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

Try to increase the variable m by two instead of 1 to be like that m = m + 2

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

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

جزاكم الله كل خير أستاذ/ Ali Mohamed Ali وجعله في ميزان حسناتكم وهذا هو المطلوب الذي كنت أبحث عنه ،،، وشكراً علي سرعة الرد

هل بحثت في المنتدى ولم تجد طلبك ؟؟؟

Sub Test() Dim ws As Worksheet, sh As Worksheet, r As Long, m As Long, n As Long Application.ScreenUpdating = False Set ws = Sheet1: Set sh = Sheet4 m = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1 n = m For r = 5 To ws.Cells(Rows.Count, 1).End(xlUp).Row If ws.Cells(r, 1).Value <> "" And ws.Cells(r, 1).Value <> ws.Range("A4").Value Then sh.Cells(m, 1).Resize(, 12).Value = ws.Cells(r, 1).Resize(, 12).Value m = m + 1 End If Next r sh.Range("A" & n - 2 & ":L" & n - 1).Copy sh.Range("A" & n & ":L" & m - 1).PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

Replace "Sales Bill" in th code with the Arabic characters Sub Test() Dim x, ws As Worksheet, sh As Worksheet, r As Long, lr As Long Set ws = Sheet5: Set sh = Sheet8 For r = 5 To ws.Cells(Rows.Count, "G").End(xlUp).Row If ws.Cells(r, 7).Value = "Sales Bill" Then ws.Cells(r, 11).Value = "Sales Bill" Else x = Application.Match(ws.Cells(r, 8).Value, sh.Columns(3), 0) If Not IsError(x) Then ws.Cells(r, 11).Value = sh.Cells(x, 4).Value End If End If Next r End Sub

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

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

تفضل حسب البيانات الموجودة في الجدول ولو زدتنا زدناك Database3.accdb

نعم .. طريقة البحث ممتازة، لا سيما وأنه يبحث داخل الـ (comboBox) نفسه وليس عبر مربع نص خارجي، ثم يخرج النتائج مع التغيير أثناء الكتابة وليس بعد التحديث أو عند الخروج أما بخصوص التنقل بين النتائج، فقد تمكنت بفضل الله من حل هذه المشكلة بوضع هذا الكود في حدث (عند مفتاح للأسفل) If KeyCode = 40 And Shift = 0 Or KeyCode = 38 And Shift = 0 Then G = 1 End If مع إضافة بسيطة في أول كود البحث كما في الملف المرفق فأصبح يتنقل بين النتائج باستخدام مفتاحي: للأعلى وللأسفل فأرجو أن يكون تصرفي هو الحل الصحيح ولدي ملاحظة أخرى بخصوص هذا الكود: فهو يبحث عن الحروف حتى لو كانت متتالية في أكثر من كلمة، وبالنسبة لي فالمطلوب البحث عن الحروف متتابعة أو متلاصقة في نفس الكلمة يعني عند طلب البحث عن (زج) تخرج النتائج بهذا الشكل والنتيجة الأخيرة غير مطلوبة بالنسبة لي، ولكنه يبحث عن الحروف المدخلة حتى إذا لم تكن متتابعة في نفس الكلمة، لذلك أخرج النتيجة الأخيرة لأنه وجد حرف (ز) في كلمة (زاهد) ثم وجد حرف (ج) في كلمة (للتجارة) وهذه الطريقة في البحث قد تناسب غيري بل قد تكون بغيته المنشودة، لكن بالنسبة لي فالنتيجة المطلوبة هي وتمكنت بفضل الله من الوصول إليها بعد عدة تجارب ومحاولات في حذف بعض أسطر الكود .. حذفتها من باب التجربة لأني بصراحة لا أعلم ماذا تعني ؟؟ 😅 فلست من أهل الاختصاص وإنما من أهل التجارب والمحاولات 🙂 ونتيجة هذه التجارب في نموذج (Search_combo 2) في نفس الملف المرفق، لعل أحد الإخوة من ذوي الخبرة ينظر فيه ويعطينا رأيه .. لأني عندما طبقت هذا الكود في قاعدة بياناتي واجهتني بعض المشاكل البسيطة في تظليل الكلمة المدخلة في مربع البحث .. فقد تكون هناك طريقة أفضل للوصول للمطلوب: البحث عن الحروف متتابعة في نفس الكلمة Search_inside_Combo X.accdb

يمكنك استعمال هذا الكود عند تغيير كومبوكس2 Private Sub ComboBox2_Change() Dim i As Long, lastrow As Long, ws As Worksheet Set ws = Sheets("بيان") lastrow = ws.Range("e" & Rows.Count).End(xlUp).Row Me.TextBox1.Value = "" For i = 2 To lastrow If Me.ComboBox2.Value = ws.Cells(i, "e") And Evaluate("=EDATE(" & CDbl(CDate(Me.ComboBox1.Value)) & ",-1)") = CDate(ws.Cells(i, "d")) Then Me.TextBox1.Value = ws.Cells(i, "g").Value End If Next i End Sub ولا تنس أن تحذف الخلايا التي بها الشرح في الصف 12 و 13 بالتوفيق

- تم التعديل على بنية الملف 1 1- العداد في العامو الأول أوتوماتيكي (تتم اضافة الرقم اذا كانت الخلية المجاورة غير فارغة) 2 عامود المعادلات (AI) يدرج لك المعادلة اذا كان هناك اسم في العامود الثاني 3- التلوين في السطر (اخضر يتم اذا كان هناك اسم في العامود الثاني)New_File.xlsm 4- التلوين في السطر ( احمر يتم اذا كان هناك اسم في العامود الثاني واذا كانت اي خلية تختوي على حرف "ع") 5- لا لزوم لعمل فلتر للأعمدة (سهم الفلتر في كل عامود ظاهر) مما يشوه منظر الشيت 6- بالنسبة لحماية خلية الشهر عند طلب تغيير خلية الشهر يقوم اكسل بتوجيه رسالة تطلب الباسورد الباسورد هو كلمة Salim أ- اذا كانت الكلمة صحيحة يقوم اكسل بتغيير التواريخ المطلوبة ب_اذا كانت كلمة المرور غير صحيحة يقوم البرنامج بمسح كل شيء في الصفوف 3 و 4 و تفريغ خلية الشهر و يعطيك رسالة احرى ان الباسورد غير صحيح 7- أكثر من هكذا لا أستطيع اتحسين الملف New_File.xlsm

وعليكم السلام-تفضل لك كل ما طلبت بصمة-1 5.xlsm