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

الكود لا يضر الموقع ولا يظهر عندهم الكود يقوم بما يقوم به المستخدم ولكن بصورة آلية تحتاج قبل البدء معرفة ID حقل اسم المستخدم وكذلك كلمة المرور وكذلك زر الدخول وبعدها ID لكل حقل سيتم تعبئته من الشيت وكل زر سيتم الضغط عليه لمعرفة ID لعنصر نضغط بزر الفارة الأيمن على العنصر في المتصفح ونختار inspect element وبعدها نستخدم كود انشاء نسخة من كائن متصفح انترنت اكسبلورر بمثل هذا الكود Dim IE As Object, site as String Set IE = CreateObject("InternetExplorer.Application") site = "https://www.example.com/" With IE .Visible = True .navigate site Do Until Not IE.Busy And IE.readyState = 4 DoEvents Loop End With IE.Document.getElementById("username").Value = range("aa1").value IE.Document.getElementById("password").Value = range("ab1").value IE.Document.getElementById("login_go").Click Do Until Not IE.Busy And IE.readyState = 4 DoEvents Loop وهكذا في كتابة قيم الحقول من الشيت نستعمل حلقة تكرارية مثل for - next وهكذا الضغط على اي زر لحفظ البيانات مثلا بالتوفيق

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

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

نفس العمل تقوم به عند اغلاق النموذج الثاني ... عند حدث اغلاق النموذج الثاني تضع الكود For Each ctrl In forms![form1].Controls If ctrl.Tag = "*" Then ctrl.BackColor = vbWhite End If Next forms![form1].Detail.BackColor = vbWhite طبعا تضع لون الخلفية الاصلي للنموذج بدلا من vbWhite

في زر الخروج للنموذج الاول ضع الكود التالي Dim ctrl As Control For Each ctrl In Me.Controls If ctrl.Tag = "*" Then ctrl.BackColor = RGB(192, 192, 192) End If Next Me.Detail.BackColor = RGB(192, 192, 192) DoCmd.OpenForm "form2", acNormal مع الانتباه ان تضع لل Tag لكل العناصر في النموذج علامة * حتى تأخذ لون واحد مع النموذج

جرب المرفق داتا-1 (2).xlsm

اود ان اوضح انه في مثل هذه الحالات البسيطة فقط دمج ثلاث حقول من جدول الى حقل في جدول اخر بشكل عمودي ممكن ان نصل للنتيجة بدون الحاجة الى اكواد وبعدة طرق ومن باب تعدد الحلول سوف اشرح طريقة واحدة اضافية وقبل ذلك من المعلوم ان لدينا انواع متعددة من الاستعلامات ومنها استعلام توحيد وهذا النوع يستخدم في العادة لدمج حقول متشابهه من جدولين او اكثر في استعلام واحد ولكن ايضا ممكن دمج حقول من نفس الجدول لذا ممكن ان نصيغ جملة الاستعلام بالشكل التالي SELECT [The Main].[no], [The Main].dx FROM [The Main] union all SELECT [The Main].[no], [The Main].dd FROM [The Main] UNION ALL SELECT [The Main].[no], [The Main].dh FROM [The Main]; والخطوة التالي نعمل استعلام الحاق مصدر بياناته استعلام التوحيد INSERT INTO sd ( id, a ) SELECT q_1.[no], q_1.dx FROM q_1 ORDER BY q_1.[no]; ونحصل على نفس نتيجة استخدام الاكواد تحياتي

السلام عليكم 🙂 الجوازات والبطاقات الشخصية والهويات الحكومية ، في اسفلها كود يسمى MRZ وفيه معلومات من الوثيقة ، الجواز ، وفي اسفله سطرين من كود MRZ : . والهوية ، وفي اسفلها 3 اسطر من كود MRZ : . وهناك عدة اجهزة (هي في الواقع سكانرات) التي يمكنها قراءة هذه الوثائق ، وتستعمل نظام OCR وتحول الصورة الى نص ، ومن ضمن هذه الاجهزة ، جهاز 3M CR100 https://www.gemalto.com/govt/document-readers/cr100 والظاهر ان هذا الجهاز معتمد من قِبل البوابة الالكترونية الموحدة لحجاج الخارج . . تنزيل وتنصيب برنامج التشغيل : http://www.3m.com/ssdcp/3M Swipe Readers/SDK/3M Swipe Reader SDK 1.2.1.2 Setup.exe خلونا نستعمل هذا الجهاز عن طريق الاكسس 🙂 بعد تنصيب برنامج تشغيل الجهاز ، يقوم برنامج الاكسس بتشغيل برنامج الجهاز في الكمبيوتر (فإذا ما عملت تنصيب للبرنامج ، اوقف عمل السطر : ) Private Sub Form_Load() On Error GoTo err_Form_Load 'turn ON the scanner xml program ' Call Restart_XML '<<< اوقفوا عمل هذا السطر . النموذج يكون جاهز على الحقل Line_0 ، والذي يبدا بأخذ نتيجة OCR ، . . وتكون النتيجة بهذه الطريقة (انا وضعت الارقام امام الاسطر) : 0'START 1'OCR Line 1: IDOMN1900000<<3<<<<<<<<<<<<<<< 2'OCR Line 2: 7008529M2018227OMN<<<<<<<<<<<6 3'OCR Line 3: ALI<MOHAMMED<HUSSAIN<<AL<MOOSA 4'MSR Track 1: 5'MSR Track 2: 6'MSR Track 3: 7'End . لعمل البرنامج ، اضطررت لعمل الاكواد بنفسي ، لأن SDK الجهاز كانت للغات اخرى غير VBA ، وهذه الوحدة النمطية التي تقوم بتفكيك الكود اعلاه ، سواء لجواز او بطاقة او فيزا : Public Function Parse_MRZ(frmN As String) On Error GoTo err_Parse_MRZ ' '08-06-2018 'by jjafferr ' Dim L1 As String Dim L2 As String Dim L3 As String Dim gDocType As String Dim Pass_Type As String Dim gLastName As String Dim gFirstName As String L1 = Replace(Forms(frmN)!Line_1, "OCR Line 1: ", "") L2 = Replace(Forms(frmN)!Line_2, "OCR Line 2: ", "") L3 = Replace(Forms(frmN)!Line_3, "OCR Line 3: ", "") gDocType = Mid(L1, 1, 1) Select Case gDocType Case "P", "V" 'passport , Visa Forms(frmN)!gDocType = gDocType 'LINE 1 Pass_Type = Mid(L1, 2, 1) 'Either < or Passport type Forms(frmN)!gIssuing = Mid(L1, 3, 3) gLastName = Mid(L1, 6, InStr(L1, "<<") - 6) gLastName = Replace(gLastName, "<", " ") Forms(frmN)!gLastName = Trim(gLastName) gFirstName = Mid(L1, InStr(L1, "<<") + 2, InStr(InStr(L1, "<<") + 1, L1, "<<") - InStr(L1, "<<") - 2) gFirstName = Replace(gFirstName, "<", " ") Forms(frmN)!gFirstName = Trim(gFirstName) Forms(frmN)!gDocNumber = Mid(L2, 1, 9) 'LINE 2 Forms(frmN)!gCountry = Mid(L2, 11, 3) Forms(frmN)!gDOB = DateSerial(Mid(L2, 14, 2), Mid(L2, 16, 2), Mid(L2, 18, 2)) Forms(frmN)!gGender = Mid(L2, 21, 1) Forms(frmN)!gDocExpiry = DateSerial(Mid(L2, 22, 2), Mid(L2, 24, 2), Mid(L2, 26, 2)) Forms(frmN)!gAddInfo = Mid(L2, 29, InStr(L2, "<<") - 29) Case "I", "A", "C" 'ID Forms(frmN)!gDocType = Mid(L1, 1, 2) Pass_Type = Mid(L1, 2, 1) 'Either < or completing the first letter Forms(frmN)!gIssuing = Mid(L1, 3, 3) Forms(frmN)!gDocNumber = Mid(L1, 6, InStr(L1, "<<") - 6) Forms(frmN)!gDOB = DateSerial(Mid(L2, 1, 2), Mid(L2, 3, 2), Mid(L2, 5, 2)) 'LINE 2 Forms(frmN)!gGender = Mid(L2, 8, 1) Forms(frmN)!gDocExpiry = DateSerial(Mid(L2, 9, 2), Mid(L2, 11, 2), Mid(L2, 13, 2)) Forms(frmN)!gCountry = Mid(L2, 16, 3) gFirstName = Mid(L3, 1, InStr(L3, "<<") - 1) 'LINE 3 gFirstName = Replace(gFirstName, "<", " ") Forms(frmN)!gFirstName = Trim(gFirstName) gLastName = Mid(L3, InStr(L3, "<<") + 2) gLastName = Replace(gLastName, "<", " ") Forms(frmN)!gLastName = Trim(gLastName) End Select Exit_Parse_MRZ: Exit Function err_Parse_MRZ: If Err.Number = 9 Then 'susbcription out of order, ignore Resume Next ElseIf Err.Number = 13 Then 'Type mismatch, ignore Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Parse_MRZ End If End Function برنامجي الذي في الخدمة ، يقرأ بيانات الجوازات والهويات في اقل من 3 ثواني ، بالأضافة الى قراءة باركود بعض الهويات الاخرى ، وادخال يدوي لأنواع اخرى من الهويات ، لهذا السبب كان يتطلب مني استعمال هذه الاحداث🙂 Public Sub Line_0_BeforeUpdate(Cancel As Integer) Private Sub Line_0_KeyDown(KeyCode As Integer, Shift As Integer) Private Sub Line_0_AfterUpdate() Private Sub Line_7_AfterUpdate() . احد اهم الامور التي اخذت مني وقت طويل لمعرفتها هي ، يجب ان تكون لغة الكيبورد بالانجليزي ، وقت قراءة البطاقة ، وإلا فالنتائج تعطيك خطأ ، لهذا السبب فالبرنامج تلقائيا يحول اللغة الى انجليزي ، لما التركيز يكون في حقل Line_0 🙂 الجدول و الكود قد يكون فيه بقايا من برنامجي ، ولكن لن يضروكم ان شاء الله 🙂 جعفر CR100 card reader.zip

السلام عليكم ورحمة الله وبركاته اسجل شكرى واعجابي بهذا الموقع القيم والمفيد واحب ان اشكر المهندس قاسم على توجيهاته القيمة والجهد الذي بذله معي لاستكمال البرنامج في صورته لقد قمت بتصميم هذ البرنامج البسيط لحصر عهدة مخازن بجهة حكومية والحمد لله يؤدي الغرض المطلوب منه وفي حدود معرفتي المحدودة بالاكسيس ولكن قابلتني مشكلة لا اعرف سببها او حلها وهى قمت بعمل الجداول والاستعلامات والنماذج والتقارير والحمد كله تمام ولكني احتجت الى عمل جدول اخر وهو alnasahatname وعند عمل العلاقة بهذا الجدول تختفي البيانات من الاستعلامات وبالتالي من التقارير ولا ادي ما السبب في ذلك ارجو من حضراتكم المساعدة في حل هذه المشكلة كما ارجو توضيح لماذا حدث ذلك والحل ولكم جزيل الشكر والامتنان برنامج حصر عهدة الفرع طبقا لجر 2022 2023 - Copy.rar

نعم استاذي ... هو هذا ما افكر به ايضا

هذا هو الصحيح استاذي @Barna لكن لماذا تظهر له 8 تقارير بالصور .. وبعدها لاتظهر له الصور كنت افكر بان Resulation لبقية الصور عالي ولهذا لاتظهر الصور مجرد فكرة !!

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

يرجع ذلك لأن الأرقام التي في الخلايا منسقة ك نص ولذلك تجد ظهور مثلث أصفر يخبر بهذا الخطأ the number in this cell is formatted as text والحل تحديد جميع الخلايا ثم الضغط على المثلث الأصفر واختيار convert to number بالتوفيق

اخي شاهد المرفق المصنف1.xlsm

شكرا جزيلا لك وجزاك الله كل خير هذا هو المطلوب واعتذر منك على الاطالة وكثرة التعديلات

وعليكم السلام لم اعمل على mysql وليس معي نظام ماك ..لكن ممكن هذا الفيديو يفيدك

ليس مهم اللقب في المنتدى ...انما عملك عمل خبير

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

الملف مرفق Database511.accdb

تفضل اوفيسنا بحث معدل 3.xlsm

شكر وتقدير واحترام من اخيك

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

جزاك الله خير 🌹

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

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

ملاحظة تجنب تسمية الاحقول بالارقم الملف مرفق Database51.accdb

وعليكم السلام-وبما انك لم تقم برفع الملف .. فعليك بإستخدام خاصية البحث بالمنتدى ,,, فطلبك تكرر كثير جدا !!!!!!!!!

ضع مثال لما تريد 17. إذا لم يكن السؤال يسهل فهمه عن طريق الشرح فقط، يجب إرفاق مثال. 18. المرفقات يجب تحوي مثال مبسط وعينة كافية من البيانات بحيث تعم الفائدة دون الحاجة لتحميل ملفات كبيرة الحجم 19. تجنب نشر بيانات حقيقية يخشى نشرها ويمكن أن تطلب حذفها لاحقاً.

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أثناء تجولي في الإنترنت وجدت ملفاً يعرض معلومات النظام ومنها مثلا سيريال الهارد ديسك رقم المعالج رقم المازر بورد وغيرها الكثير فأحببت مشاركتكم فيه .... أترككم معه وأتمنى تجربة الملف على أنظمة تشغيل مختلفة يعني xp و 7 و vista وسيفن و 8 و 8.1 و 10 وينندوز بالنواة 32 أو 64 وإخباري بالنتيجة SystemInfo.rar

لا يحتاج الموضوع إلى تنزيل شيء فقط تنشيط المرجع في نافذة محرر الفيجوال بيسك من قائمة tools ثم references ثم تبحث عن المرجع المطلوب وتضغط في المربع الموجود بجواره

أشكر كل من شارك في هذا الموضوع اللهم ارزقنا علما نافعا وعملا متقبلا نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

بسم الله الرحمن الرحيم تكملة لمشوار الأساتذة وتجميعاً للجهود قمت بهذا العمل التجميعي وبعد إذن أخونا خبور خير تم تعديل الكود الخاص به كدالة mas_Max_Req1.rar

بارك الله لك أخي عبد الله ولكن هل جربت هذه المعادلة؟؟!! جرب أن تغيب أحد الموظفين في أيام أخرى غير الأحد بحيث يكون الأحد هو الأكثر غياباً عندي أحضرت نتائج غير صحيحة

عذرا أخي الكريم لعدم فهمي المطلوب الخاص بعدد مرات غياب اليوم نفسه ولعمل هذا ضع هذه المعادلة في الخلية h7 =IF(MAX(AI7:AO7)>0;INDEX(AI7:AO7;MATCH(AG7;$AI$6:$AO$6;0));0) وبالنسبة لعمل كل هذا بمعادلة واحدة فلست متفرغاً لدرجة البحث فيها مع إمكانية حدوثها إن شاء الله

تفضل أخي الكريم تم التحايل على الموضوع بحيلة بسيطة وهي عمل جدول يخص عدد مرات الغياب لكل يوم من أيام الأسبوع ثم إحضار اسم اليوم الذي يحتوي على أكبر عدد وربما يكون لدى الإخوة حلول أخرى mas_Max_Req.rar

الحمد لله هكذا نستعمل هذا الكود في ربط البرنامج بجهاز المستخدم من خلال رقم الهارد ورقم المعالج ورقم اللوحة الأم معاً ونحن متأكدون من عمله على كل أنظمة تشغيل ويندوز للعلم رقم الهارد ديسك الذي يحضره الكود لا يتغير بعد الفورمات كما هو الحال في هذا الكود CreateObject("Scripting.FileSystemObject").GetDrive("c:\").serialnumber ولكن عذراً لم أتبين من الإخوة هل الكود يعمل في ويندوز 64 بت بدون تغيير الكود إلى Win64_ أم احتاج الأمر لتغييرها؟؟!!

الحمد لله ولكن أتمنى أن يجرب الكود أحد الإخوة الذين يملكون أنظمة من نوع 64bit

شكرا لمرورك أخي الكريم نارت ولكن ياريت معلومات تفصيلية يعني هل ظهر عندك رقم المازر بورد؟ أم لا؟ نسختك 32bit أم 64bit ؟