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

السلام عليكم و رحمة الله و بركاتة برنامج شاشة الدخول مع صلاحيات المستخدمين جاهز للاستخدام و بها صفحات عمل جاهزة فقط ادخل و اضف اليه اعمالك مهما كان العمل . شكرا لك استاذى محمد هشام الذي قام بتعديل الاكواد. استاذى محمد هشام إنه لمن دواعي فخري وامتناني الكبير أن أقول للجميع كم نحن محظوظون لوجودك معنا، حقا لقد ابدعت و تميزت ، فأنت أهل للشكر، ولك منى كلّ الثناء! وجزاك الله خير الجزاء و جعله الله فى موازين حسناتك و صدقة جارية لى و لك اسم المستخدم : حسين كلمة المرور :123 شاشة الدخول مع صلاحيات المستخدمين.xlsb

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

بعد اذن استاذ محمد هشام.حبيت اشارك بشي بسيط طبعا مجهودك كبير لان عملت معادلة صغير تقرا من sheet 1 وتعطى النتائج فى Sheet2 وكلنا نجتهد لارسال المعلومة وشكرا البحث.xlsx

جرب، أنا الآن أكتب من ذاكرتي، وقد مررنا بتجارب عديدة وعرفنا أمورا كثيرة بالتجارب، منها عملية الإنشاء أو التعديل على النماذج أو التقارير، لا تنسى أتحدث عن صيغة mde وليس mdb.

جرب هذا 🙂 : قائمة قابلة للزيادة حسب عدد السجلات.accdb

أول خطوة في الوصول لمعلومة تفيدك في مطلوبك هي استعمال محرك البحث الخاص بالمنتدى وتطبيق ما تعلمته من هذه المواضيع ربما تفيدك هذه الروابط https://www.officena.net/ib/search/?q=التصدير الاكسس&quick=1&type=forums_topic&nodes=135&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

السلام عليكم 🙂 في الكثير من الاحيان لما نكون في وضع التصميم ، في النموذج او التقرير ، نتمنى لو انه بإمكاننا تكبير الشاشة حتى نرى تفاصل الكائنات ونضعها بجوار بعضها بدقة ، ولكن للأسف الاكسس لا يقدم لنا هذه الخاصية (مثل الاكسل والبوربوينت مثلا) 🙂 في الواقع الوندوز يقدم لنا هذه الخدمة ، ولكن كبرنامج مستقل 🙂 يمكنك استخدام برنامج التكبير بطريقة مستقلة ، بإستخدام ازرار الكيبورد: 1. لإغلاق البرنامج ، زر الوندوز + Esc 2. لتكبير الشاشة ، وتكون ثابته ، زر الوندوز + Alt + F 3. لتكبير الشاشة كمكبر يدوي ، زر الوندوز + Alt + L . وهذه هي الاعدادات التي استعملها انا : . والآن اليكم هذه الطريقة في برنامج الاكسس (يمكننا استعمال اختصارات الوندوز اعلاها في عملنا كذلك) : نموذج به نوعين من تكبير الشاشة ، تستعمل الطريقة التي تفضلها لوضعك 🙂 . الكود هو: Private Sub btn_Zoom_Click() 'open/close the magnify glass If Me.btn_Zoom = -1 Then 'turn ON the magnifying glass 'Shell "cmd /c C:\Windows\System32\Magnify.exe /lens", vbHide Shell "cmd /c C:\Windows\System32\Magnify.exe /fullscreen", vbHide Else 'manually close it: ' Win key & Esc key 'call the Function to kill the magnifying glass process Call WMI_KillProcesse("Magnify.exe") End If End Sub Private Sub btn_Zoom_lens_Click() 'open/close the magnify glass If Me.btn_Zoom_lens = -1 Then 'turn ON the magnifying glass Shell "cmd /c C:\Windows\System32\Magnify.exe /lens", vbHide 'Shell "cmd /c C:\Windows\System32\Magnify.exe /fullscreen", vbHide Else 'manually close it: ' Win key & Esc key 'call the Function to kill the magnifying glass process Call WMI_KillProcesse("Magnify.exe") End If End Sub . واما كود اغلاق برنامج التكبير ، اي يوقف تشغيله من الكمبيوتر: '--------------------------------------------------------------------------------------- ' Procedure : WMI_KillProcesse ' Author : Daniel Pineault, CARDA Consultants Inc. ' Website : http://www.cardaconsultants.com ' Purpose : Forcibly kill all the instances of a specified process ' Copyright : The following is release as Attribution-ShareAlike 4.0 International ' (CC BY-SA 4.0) - https://creativecommons.org/licenses/by-sa/4.0/ ' Req'd Refs: Uses Late Binding, so none required ' ' Input Variables: ' ~~~~~~~~~~~~~~~~ ' sProcessName : Name of the process to kill ' sHost : Host computer to query, omit for the local PC ' ' Usage: ' ~~~~~~ ' Call WMI_KillProcesse("explorer.exe") ' Call WMI_KillProcesse("excel.exe") ' Call WMI_KillProcesse("calculator.exe") ' ' Revision History: ' Rev Date(yyyy-mm-dd) Description ' ************************************************************************************** ' 1 2015-05-28 Initial Release ' 2 2020-08-21 Added Proc Header ' Code updated ' Updated Error Handler ' Made it Option Explicit compliant '--------------------------------------------------------------------------------------- Public Function WMI_KillProcesse(sProcessName As String, Optional sHost As String = ".") As Boolean On Error GoTo Error_Handler Dim oWMI As Object 'WMI object to query about the PC's OS Dim sWMIQuery As String 'WMI Query Dim oCols As Object Dim oCol As Object Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & sHost & "\root\cimv2") sWMIQuery = "SELECT Name FROM Win32_Process" Set oCols = oWMI.ExecQuery(sWMIQuery) For Each oCol In oCols If LCase(sProcessName) = LCase(oCol.Name) Then oCol.Terminate ' Kill this instances of the process End If Next oCol WMI_KillProcesse = True Error_Handler_Exit: On Error Resume Next Set oCol = Nothing Set oCols = Nothing Set oWMI = Nothing Exit Function Error_Handler: MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _ "Error Number: " & Err.Number & vbCrLf & _ "Error Source: WMI_KillProcesse" & vbCrLf & _ "Error Description: " & Err.Description & _ Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _ , vbOKOnly + vbCritical, "An Error has Occurred!" Resume Error_Handler_Exit End Function جعفر Magnify.mdb

هذه محاولة في الوصول للحل تعتمد على تقسيم الاسم إلى الاسم ثنائي وثلاثي ورباعي تم وضع معادلاتها يمكنك وضع معادلات العمود B والمقارنة بأربع مستويات بدالة match مثلا أولها تطابق الاسمين في العمود A & B وفي حالة الخطأ تتم المقارنة بين عمودين الاسم الرباعي وفي حالة الخطأ تتم المقارنة بين عمودين الاسم الثلاثي واعتمادا على نتيجة المقارنة تكتب الحالة بالتوفيق نموذج طلب مقارنة.xlsx

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

وعليكم السلام ورحمة الله وبركاته اخى ارفق ملفك

كل الشكر تم حل المشكلة

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

ما الحكمة ؟ 🙂 ليش ؟

فكرة ذكية، أما الإنشاء مع صيغة mde لن تعمل كما أعتقد.

أرفع لك قبعتي أستاذي الكبير ، ولكن هذه الفكرة طبقتها ولكنها ليست كما وصفت ، الفكرة زر يتم انشائه برمجياً ، وليست نموذج فرعي مسند إلى الجدول . بمعنى آخر كما وصفت سابقا كود عند تشغيل النموذج وظيفته فقط تتبع اسماء الأزرار وما لم يجده في سجلات الجدول يقوم بإنشائه تلقائياً ( وليس مهم مكان وموقع الانشاء بالنموذج ليست مشكلة بالنسبة لي . الطيب لا يبعتث إلا بالطيب فكيف بالجميل ( قلبت غزل )

وهذه لمسة جمالية بالتنسيق الشرطي 🙂 قائمة قابلة للزيادة حسب عدد السجلات.accdb

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي Sub Recher_des_valeurs() Dim MyRng As Range, MyCell As Range Set WSdata = Sheets("Sheet1") Application.ScreenUpdating = False With WSdata .Range("E3", Range("E" & Rows.Count).End(4)).ClearContents For Each MyRng In .Range("B3:B" & .Cells(Application.Rows.Count, 2).End(xlUp).Row) Set MyCell = .Columns(9).Find(MyRng.Value, , xlValues, xlPart) If Not MyCell Is Nothing Then MyRng.Offset(, 3).Value = MyCell.Offset(, 3).Value Else MyRng.Offset(, 3).Value = 0 Next MyRng End With Application.ScreenUpdating = True End Sub البحث 2.xlsb

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

خير الكلام ما قل و دل ابدعت ابدعت و انرت الطريق للجميع بسطور معدودة سهلة الفهم و بكفرة ابداعية خارجة عن المألوف

ملحوظة ملاحظة جميلة من الاستاذ @Foksh حول ازرار اختيار الشعبة .. ماذا لو استجد مستقبلا زيادة في الشعب لذا فالحل المرن المحكم هو استبدال الازرار بمربع تحرير يتم الاختيار منه تجدون ادناه تعديل على المرفق السابق TT3.rar

اعتقد مر علي مثال شبيه لما تطلب في المنتدى كان المثال لطلبات مطعم ... والله اعلم

السلام عليكم ورحمه الله وبركاته بارك الله فيك اخي والشكر موصل للاستاذ المبدع @محمد هشام. دائما لا يبخل في مساعدة الاخرين ولا ننسى كامل الشكر والتقدير لكل الاخوة الخبراء والزملاء

مستغر ب ليه؟ نحن رفقاء درب واكيد يوجد تزامن بين مخك ومخي تعقيب : من يتتبع مشاركاتي حول هذا الخصوص يلاحظ انني انهج هذالنهج وانصح بشدة باستخدام الجدول الواحد ما امكن ذلك ويسعدني ان تكون افكاري مشابهة لفكر قامة برمجية معتبرة .. الى درجة توحي بالاقتباس

الف مبروووووووووك لخبرائنا واساتذتنا الاجلاء زادكم الله علما من علمه .... ونفعنا بعلمكم ان شاء الله ,,,

اتفضل اتنمي ده ما تريده ما تم عمله كود جبل البيانات من الجدول او الاستعلام ووضع جميع السجلات فى سطر واحد للعرض وتخزينها فى المتغير xTEXT Dim db As DAO.Database Dim rst As DAO.Recordset Dim xTEXT As String Dim delimiter As String Set db = CurrentDb Set rst = db.OpenRecordset("TablTest", dbOpenDynaset) xTEXT = "" delimiter = " - " With rst Do While Not .EOF xTEXT = xTEXT & ![ID] & " " & ![TextName1] & " " & ![TextName2] & " " & ![TextName3] & delimiter .MoveNext Loop .Close End With Set rst = Nothing db.Close Set db = Nothing If Right(xTEXT, Len(delimiter)) = delimiter Then xTEXT = Left(xTEXT, Len(xTEXT) - Len(delimiter)) End If AutoText.Caption = xTEXT وهذا الكود يتم وضعه فى حدث عند التحميل ثم نأتي لكود التحريك لمربع التسميه فى حدث عند عداد الوقت Private Sub Form_Timer() AutoText.Caption = Mid(AutoText.Caption, 2) & Left(AutoText.Caption, 1) End Sub وخلاص كده ^_^ واتفضل ملف للمراجعه شريط اخبار مصدره جدول.rar

الف مبروك وجزاكم الله خيرا على جهودكم @عمر ضاحى @Foksh

مشاركة مع اخوتي .. تم تحقيق الفكرة مع مراعاة تغير نظام الحضور ( الشتوي / الصيفي) Public Function funTestTimes() On Error GoTo err_idt Dim idt As String idt = DLookup("[hour_no]", "[Ttime]", "[time_from] <=#" & Time() & "# And [time_to] >=#" & Time() & "# ") funTestTimes = idt err_exit: Exit Function err_idt: If idt = "" Then MsgBox "لا يوجد حصص في الوقت الحالي" Resume err_exit End If End Function TT2.rar

جرب المرفق بعد التعديل TT.accdb

اهلا اخونا @شايب

جرب المرفق ، واخبرني بالنتيجة ، انشغلت في العمل قليلاً وإلا لأرسلت المرفق منذ مدة TT.accdb

جرب TT.accdb

جرب هذا الملف TT.rar

اولا هتحتاج الى هذه الدالة ضعها فى مديول Function XDayNumber() As Integer XDayNumber = Weekday(Date, vbSunday) End Function فى الاتسعلام ممكن تستخدم هذا الاستعلام SELECT Timetable.ID, Timetable.EVENT1, Timetable.GRP_CD, Timetable.DAY_NO, Timetable.HOUR_NO, Timetable.CRS_CD, Timetable.ROOM_CD, Timetable.TCH_SC_NO, Timetable.NAM, Timetable.SEC_NM, Timetable.EVENT FROM Tdays INNER JOIN Timetable ON Tdays.ID = Timetable.DAY_NO WHERE (((Timetable.GRP_CD)=[Forms]![result]![GRP_CD]) AND ((Timetable.DAY_NO)=XDayNumber()));

أخي الكريم بعد الإطلاع على المرفق ممكن توضيح المسميات ( الحصة - الشعبة - ..... الخ )

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

صراحة لا أعلم ، فأنا لم أجرب و انما أفضل ال asp لهذه المسألة ، لأنه علي ما أعتقد الحل المناسب لها فما هو مطروح هنا هو تطبيق ديناميكي علي الويب ، و أعتقد أن الاكسيس حتي نسخة اكس بي ليس الحل الامثل له الا اذا كان هناك فى النسخة الجديدة للأوفيس التي صدرت مؤخرا اضافات بهذا الشأن (2003)

اذا قصدت تصميم نموذج بالاكسيس ، فعلي حد علمي لا يمكن ذلك و بالنسبة لل asp هي ليست معقدة ، و لكن تحتاج لان تتعلمها و هي اختصارا مزيج بين اومر لغة تحرير الصفحات html و اوامر ال SQL و اما vbscript او Java script أي أنها تعتبر بيئة تجمع بين هذه الامور و ليست لغة مستقلة و ان أردت ، فلي سلسلة دروس تغطي ال html بالكامل ، و هي منشورة فى قسم الدروس فى موقع الفريق العربي للويب و أسأل الله أن يتاح لي اكمال باقي ال asp بالكامل ، و لكن يصعب علي توفير الوقت حاليا دروس الهتمل http://www.arab-team.com/lesson/html_lesson/ و ال html تعتبر اكثر من ثلث الطريق الي ال asp أو أي لغة برمجة ويب أخري و بالنسبة لصفحات الاكسيس ، فلم أجرب استخدامها علي النت ، و اعتقد أنها معدة اصلا للاستخدام علي الانترانت ( فى شبكة داخلية ) لكن معلوماتي بخصوصها ليست مكتملة و تنقصها التجربة ، و لكن كما قرات فى الرابط السابق من موقع ميكروسوفت يمكن تشغيلها علي الانترنت مع مراعاة الاعتبارات فى المقال .