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

ولكن عندك المرفق ، تقدر تشوف طريقة عمله !! بإختصار: يجب عليك اولا ان تختار سجل ، حتى نعرف قيم حقوله ، ثم نفتح التقرير بتصفية ، حسب الحقل الذي تريد تصفيه ، وسواء الحقل رقم او نص (الحقل ID رقمي ، والحقل fName نص) ، فطريقة معاينة تقرير عادي بتصفية بأحد هذه الحقول يكون: للحقل الرقمي DoCmd.OpenReport "rpt_Names", acViewPreview, , "[ID]=" & Me.ID او للحقل النصي DoCmd.OpenReport "rpt_Names", acViewPreview, , "[fName]='" & Me.fName & "'" . وامر تصدير / طباعة التقرير rpt_Names على صيغة pdf هو (والذي يطبع جميع السجلات): DoCmd.OutputTo acOutputReport, "rpt_Names", acFormatPDF, File_name_and_path . وبما اننا نريد ان ان نصدر سجل واحد ، والامر عاليه لا يسمح لنا بذلك ، فنقوم بمعاينة التقرير كما عملنا سابقا ، فلما يأتي امر التصدير الى pdf ، يأخذ بياناته من التقرير المفتوح (بدلا ان يأخذ جميع السجلات) ، ولكنه لا يبدو جيدا ان يرى المستخدم التقرير مفتوحا امامه ، لذلك نفتح التقرير بصورة مخفيّه (حيث يراها البرنامج ولا يراها المستخدم) ، هكذا: للحقل الرقمي DoCmd.OpenReport "rpt_Names", acViewPreview, , "[ID]=" & Me.ID , acHidden او للحقل النصي DoCmd.OpenReport "rpt_Names", acViewPreview, , "[fName]='" & Me.fName & "'" , acHidden . والشئ الاخير هو اسم الملف ومسار حفظه ، فاذا لم يكن معرّفا (لم تكون فيه قيمة) ، فيفتح لك الاكسس نافذة اختيار المجلد واسم الملف) جعفر

اثراءً للموضوع هذه المعادلة في N5 استعملها مع (Ctrl+Shift+Enter) ثم اسحب يساراً و نزولاً =SUM(($C$2:$C$25=$M5)*(D$2:D$25))

برنامج_مخازن_جديد.xlsm

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

السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذا الموضوع قد قتل بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكن هو طلب لأحد الاعضاء ( الاخ الكريم / alredha ) ولكني اردت ان اجعله موضوع بعنوان واضح ليستفيد من الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة افتتاحية باسم مستخدم ورقم سري ولايظهر الاكسيل الا بعد اعطاء الشاشة البيانات الصحيحة وطبعاً والاكيد كله من علمكم اساتذتي الكرام وفي الدرس القادم سنتعرف علي طريقة عمل اكواد الشاشة لتعمل معنا علي اي برنامج لدينا او اي برنامج سنقوم بتصميمه فيما بعد جزاكم الله خيرا اساتذتنا طريقة عمل الشاشة الافتتاحية شرح علي الورد1.rar شرح عمل شاشة افتتاحية فيديو1.rar طريقة عمل الشاشة الافتتاحية اكسيل1.rar

أخي العزيز / أبو حمادة ضع هذا الكود في حدث الفورم Private Sub TextBox1_Change() Set ws = Worksheets("ورقة1") Lr = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row For Each cl In Range("b5:b" & Lr) If Me.TextBox1.Text = cl.Text Then MsgBox ("هذا الاسم موجود مسبقا قم باختياراسم آخر") End If Next cl End Sub

أخي العزيز / سيد تيجر هل يلزم في توزيع المتوسط على خانات درجات الأشهر أن يكون العدد صحيحا أو لا يضر وجودكسر مثلا ( 7.5) وإذا كان لا يضر الكسر هل يلزم الإختلاف في توزيع الدرجات في الثلاثة الأشهر مثلا لو كان المتوسط ( 38 ) هل يكون المجموع في كل الأشهر (38 ) أو أنه يختلف بحيث يكون مثلا الشهر الأول ( 37 ) والثاني ( 38 ) والثالث ( 39 ) والعفو

وعليكم السلام البطء في الاستعلام . 1. انت تستخدم امر VBA في SQL ، مما يبطئ العملية ، 2. من المعروف ان Dlookup (كذلك امر VBA) بطيئ ، وانت محظوظ ان بياناتك قليلة ، وإلا فالبطء سيكون اكثر ، 3. انت تنتظر الحقل SumOfin و SumOfOut ليحصلوا على نتائج الجمع ، ثم تأخذ النتائج منهم وتطرحهم من بعض. والتعديل: . إضافة الجدول Item Names الى الاستعلام ، 1. تم تغيير الامر الى احد اوامر SQL وهو is Null (وليس IsNull امر VBA) ، 2. لسنا بحاجة الى اي معادلة ، لأننا جلبنا الجدول الى الاستعلام ، ثم وضعنا الحقل Products في الاستعلام مباشرة ، 3. نقوم بعملية الجمع مباشرة في الحقل جعفر

عمل نسخ احتياطي امر مهم جدا للغاية اذا تعمل اي شي كان من المهم ان يكون عندك نسخة احتياطي مع تقدير

السلام عليكم جربى هذا الحل لعله يفى بالغرض AgeQuery.rar

ما اعرف هل فهمت سؤالك بالصحيح ام لا اذا نعم هذا الرابط راح يفيدك كتير مع تقدير

فعلا اخى الزباري هناك خطأ ما فى الوصول للملف

السلام عليكم أخي محمود ، اخبرك ايش المشكلة: انت لم توضح بالضبط ما يجب علينا عمله ، ولا الخطوات ، ولم تذكر النموذج Home ولم تشر اليه !! لهذا السبب ومن اول مشاركة لي كل تركيزي كان على النموذج Add_Wife ، وهو لو نظرت اليه لرأيت كانه نموذج رئيسي (نموذج فردي Single) وفيه نموذج فرعي (نموذج جداول DataSheet) ، وعملت لك الطريقة لأخفاء النموذج الفرعي (والذي اخبرتك انه ليس نموذج فرعي ، وانما نموذجك عبارة عن نموذج SplitForm ، والذي يظهر كأنه نموذج رئيسي وفرعي ، وانت اكدت ذلك) . الآن فقط فهمت قصدك ، وسؤالك كان يجب ان يكون هكذا: عندي نموذج رئيسي Home ، وفيه النماذج الفرعية Add_Wife و sons ، اريد ان يكون في النماذج الفرعية زر ، عند الضغط عليها تُغلق/تختفي. وجوابي كان سيكون ، تفضل ، هذا كود الزر لإخفاء النموذج Add_Wife Private Sub cmd_Hide_Sub_Table_Click() Me.Parent.ID.SetFocus Me.Parent.Add_Wife.Visible = False End Sub جعفر 547.2.Close.accdb.zip

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

وعليكم السلام اهلا وسهلا بك في المنتدى عملت لك طريقتين مختلفتين ، بالرقم ، وبالنص ، وباستخدام نافذة الحفظ ، وباستخدام نافذة الحفظ التي يقدمها اكسس لحفظ اسم الملف ، وهذا كود حدث النموذج: Option Compare Database Private strInputFileName As String Private Sub cmd_Show_PDF_Click() On Error GoTo err_cmd_Show_PDF_Click 'Call Get_File_Click Call Get_File_Click If Len(strInputFileName & "") = 0 Then Exit Sub DoCmd.OpenReport "rpt_Names", acViewPreview, , "[ID]=" & Me.ID, acHidden DoCmd.OutputTo acOutputReport, "rpt_Names", acFormatPDF, strInputFileName DoCmd.Close acReport, "rpt_Names", acSaveNo ' PauseTime = 1 ' Set duration. ' Start = Timer ' Set start time. ' Do While Timer < Start + PauseTime ' DoEvents ' Yield to other processes. ' Loop Application.FollowHyperlink strInputFileName Exit Sub err_cmd_Show_PDF_Click: If Err.Number = 53 Then 'file does not exist Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub Private Sub Get_File_Click() Dim strFilter As String 'set what files should be filtered when the open dialog popsup 'strFilter = ahtAddFilterItem(strFilter, "All Files (*.*)", "*.*") 'strFilter = ahtAddFilterItem(strFilter, "Word document (*.doc)", "*.doc") 'strFilter = ahtAddFilterItem(strFilter, "Excel sheet (*.xls)", "*.xls") 'strFilter = ahtAddFilterItem(strFilter, "Ms Access files(mdb , accdb)", "*.mdb; *.accdb") strFilter = ahtAddFilterItem(strFilter, "PDF files ( pdf )", "*.pdf") 'OpenFile=True means Open dialog, 'OpenFile=False means Save dialog, strInputFileName = ahtCommonFileOpenSave(InitialDir:="C:\", _ Filter:=strFilter, OpenFile:=False, _ DialogTitle:="Please select a Ms Access File...", _ Flags:=ahtOFN_HIDEREADONLY) 'the user clicked cancel, and didn't select a file If strInputFileName = "" Then Exit Sub End Sub Private Sub Save_This_File_Click() On Error GoTo err_Save_This_File_Click Me.fName.SetFocus DoCmd.OpenReport "rpt_Names", acViewPreview, , "[fName]='" & Me.fName & "'", acHidden DoCmd.OutputTo acOutputReport, "rpt_Names", acFormatPDF, abc Exit_Save_This_File_Click: DoCmd.Close acReport, "rpt_Names", acSaveNo Exit Sub err_Save_This_File_Click: If Err.Number = 2501 Then Resume Exit_Save_This_File_Click Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 542.reprtPdf2.accdb.zip

LOF: ترمز إلى long file open بمعنى حجم محتوى الملف من حروف وفراغات والذي يقرأه بشكل تلقائي جرب بأن تستبدل (1) LOF بالرقم 10مثلاً ستشاهد بأنه قلل شاشة العرض حيث تحتوي على 10 خانات.

ثانياً: القراءة (read): وهي نفس مبدأ الكتابة ولكنها تختلف في أمرين وهما: - استخدام كلمة input بدلاً من output - تخزين البيانات لعرضها بدلاً من نقلها مثال: Sub read() Dim FilePath As String Dim FileContent As String ' تحديد مسار الملف المطلوب قراءته FilePath = "C:\testfolder\create.txt" 'فتح الملف النصي Open FilePath For Input As #1 'تخزين البيانات FileContent = Input(LOF(1), #1) 'عرض البيانات المخزنة MsgBox FileContent 'إغلاق الملف النصي Close #1 End Sub جرب الكود بعد تغيير مسار الملف المطلوب قراءته. لاحظ بأنه لا يمكن قراءة الملف إذا لم يكن موجود.

السلام عليكم ورحمة الله وبركاته الأخوه الأفاضل والسادة خبراء أكسيل بالمنتدى لدى قاعدة بيانات فى اكسيل بها مجموعه من الشركة كل شكة تقوم بشراء اصناف مختلفه على مدار الشهر كما فى المثال المرفق اريد عمل ملخص امام كل شركة بجملة تعاملتها من كل صنف من الجدول سواء بالكود او المعادلات ولكم جزيل الشكر exm1.rar

و هذه معادلة ثانية (في حال كانت رؤوس الاعمدة غير مرتبة في الجدولين) توضع في N5 استعملها مع (Ctrl+Shift+Enter) ثم اسحب يساراً و نزولاً ";" في حال لم تعمل المعادلة استبدل الفاصلة "," بفاصلة منقوطة =SUMPRODUCT(INDEX($D$2:$H$25,,MATCH(N$4,$D$1:$H$1,0))*($C$2:$C$25=$M5))

اخي الفاضل Shivan Rekany السلام عليكم ورحمة الله وبركاته اولا الف شكر علي جهودك العظيمه ولك مني الف شكر اخي الفاضل اكتشفت بالصدفه خطاء في هذا الكود Val(Replace(Trim((Mid([barcode];InStr([barcode];"-")+1;10000)));"-";"")) الخطاء هو ان الكود لايحدف الفراغات فقط ولاكن لو وجد صفر في بداية اي رقم يحذفه فلذالك واجهتني مشكله ارجو منك حل هذه المشكلة لان اغلب ارقام الموردين عندي تبدأ بسفر وتنتهي بسفر ولباركود كذالك

ضع الحل هنا ليستفيد الجميع ..تقبل تحياتي

ولهذا السبب جعلنا نفكر بالتعامل مع ملفات النصوص text files.. سنعرف ذلك عندما سنشرح طريقة عمل الكود.. تابعنا

بجد الله ينور ياباشا زادك الله علما الشهابي الف شكر ليك ولكل من ساهم في مساعدى طائع وجزاكم كل خيرا

أخي العزيز / أبو حمادة سبب الخطأ أنك استخدمت دالة ( ) وهي تعتمد في البحث بالرقم جرب استبدال الكود السابق بهذا الكود إن شاء الله يكون مطلوبك Private Sub ComboBox1_Change() Dim LR As Long Set ws = ThisWorkbook.Sheets("ورقة1") LR = ws.Cells(Cells.Rows.Count, "B").End(xlUp).Row For Each CL In ws.Range("b5:b" & LR) If ComboBox1 = CL.Text Then Me.TextBox1 = CL.Offset(0, 1).Value Me.TextBox2 = CL.Offset(0, 2).Value Me.TextBox3 = CL.Offset(0, 3).Value Me.TextBox4 = CL.Offset(0, 4).Value End If Next CL End Sub ولا بد أن أيضا من تغير مدى النطاق المسمى ( بيانات ) ليأخذ بياناته من العمود (B) ولو كان مدى دناميكي أفضل بهذا الشكل =OFFSET(ورقة1!$B$5;;;COUNTA(ورقة1!$B$5:$B$1000)) تقبل تحياتي

بعض الأكواد البسيطة والمطلوبة بعض الأكواد البسيطة التى يسأل عنها الأخوة الأعضاء ووجدتها في موقعنا الحبيب أوفسينا فجمعتها بعد إذن كاتبيها وتكون هذه دعوة لباقى الأخوة وعمالقتهم لتزويدنا بأكواد جديدة أو مشابهة .. والله الموفق 1- فتح الملف على اليوزرفورم Userform. يمكن فتح الملف على فورم بدلا من صفحة الإكسل المعروفة بكود بسيط تجده في كثير من ملفات الأخوة بالموقع وخطوات ذلك كالتالي: أ‌- أضف للملف يوزرفورم وذلك في محرر الفيجوال بيسك من قائمة إدراج(Insert) نختار (UserForm). ب- في قسم المشروع (Project) انقر مزدوجا ThisWorkbook ب‌- في نافذة الكود اكتب الكود التالي Private Sub Workbook_Open() UserForm1.Show End Sub وهذا الكود ليس به إلا سطر واحد يأمر الإكسل بفتح الملف على اليوزر فورم وهذا السطر هو UserForm1.Show بعد انتهاء العمل نجد أن الملف يفتح على الفورم ونجد ان الفورم يمكن تحريكه في أي اتجاه كما يمكننا أن نغلقه من مفتاح الغلق في أقصى يمين الفورم من أعلى كما نلاحظ أن ملف الإكسل يظهر وراء الفورم. أنظر First.rar 2- فتح الملف على اليوزرفورم مع إخفاء صفحة الإكسل. رأينا في المثال السابق ولإخفاء ملف الإكسل ضف السطر التالي للكود السابق ليصبح الكود بالصورة أن الملف يفتح على الفورم لكن ملف الإكسل يظهر وراء الفورم Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub هذا السطر Application.Visible = False يجعل ملف الإكسل مخفيا انظر المرفق Second.rar 3- فتح الفورم على مقاس الشاشة. والأن.. ماذا نفعل لنفتح الفورم على مقاس الشاشة؟ تابع معي: الفكرة أن نجعل أبعاد الفورم مثل أبعاد الشاشة ولكن باختلاف المستخدمين للملف سيكون هناك أبعاد مختلفة من حاسوب وآخر ولذلك يمكن عمل الكود التالي: ()Private Sub UserForm_Activate With Application Me.Top = .Top Me.Left = .Left Me.Height = .Height Me.Width = .Width End With ونجد أن الكود يطلب أن يكون اتساع الفورم كما اتساع التطبيق وارتفاع الفورم كإرتفاع التطبيق والآن جرب الكود في نافذة كود الفورم. انظر التطبيق Third.rar ولكن قم بتحريك الفورم في كل الاتجاهات، هل يستجيب الفورم للحركة؟ 4- نثبت الفورم (الفريم) بحيث لايمكن تحريكه الى اي اتجاه. يمكن نثبت الفورم بحيث لايمكن تحريكه الى اي اتجاه وذلك بكتابة هذا الكود في نافذة كود الفورم. Private Sub UserForm_Layout() With Me .Left = Application.Left .Top = Application.Top End With End Sub انظر التطبيق Forth.rar 5- الغاء رمز الاغلاق(x). يمكن إلغاء عمل رمز الأغلاق في أفصى يمين أعلى الفورم بالكود التالي ولكن هذا أن يجعلك تستطيع إغلاق الفورم أو الإكسل ولذلك أقترح أن تضع على الفورم مفتاح تسمية "إغلاق" ويكون له كود فقم أولا بكتابة الكودين المرفقين ()Private Sub CommandButton1_Click Unload Me End Sub )Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer If CloseMode = vbFormControlMenu Then Cancel = True End If End Sub لاحظ أن هذا الكود سيمنع إغلاف الفورم من (X) ولكن يمكن إغلاق الفورم من زر إغلاق الذي أضفناه، وإذا أردنا إغلاق الفور وملف الإكسل معا نضع السطر التالي في كود المفتاح بعد "Unload Me": ActiveWorkbook.Close True انظر التطبيق Fifth.rar 6- عمل شاشة افتتاحية. يحتاج بعض مطورى البرامج لأن يبدأ عمل ملفه بظهور شاشة أفتتاحية فعلى سبيل المثال "نريد عمل صفحه تبدأ مع فتح ملف الاكسيل، ويكون بها ايقونات بمسميات الشيتات الموجوده بالملف، وعند الضغط على احد الايقونات يتم النقل الى الشيت المطلوب بعض النظر عن الشيت الذي أقفل البرنامج عليه" فهيا معا نبنى هذا التطبيق: أ‌- افتح ملف جديد ثم ضف إليه في الصفحة الأولى شكلين أكتب على الأول كلمة "الورقة الثانية" وعلى الشكل الثاني كلمة "الورقة الثانية" ثم أربط كل شكل مع ورقة العمل المناسبة لما كتب عليع وذلك ربطا تشعبيا" ب‌- كرر العمل في الورقة الثانية والثالثة مع تغيير ما يلزم. ت‌- أضف فورم للملف وضع عليه ثلاثة مفاتيح أكتب على الأول "الورقة الأولى" والثاني "الورقة الثانية" والثالث "الورقة الثالثة" ث‌- أكتب الكود التالي في مكان كود الفورم ()Private Sub CommandButton1_Click Unload Me Worksheets("Sheet1").Activate End Sub ()Private Sub CommandButton2_Click Unload Me Worksheets("Sheet2").Activate End Sub ()Private Sub CommandButton3_Click Unload Me Worksheets("Sheet3").Activate End Sub ج‌- اكتب الكود التالي في مكان كود "ThisWorkbook": ()Private Sub WorkBook_Open UserForm1.Show End Sub انظر التطبيق "شاشة أفتتاحية.rar" إخواني الأعزاء أسمحوا لي أن أتوقف هنا وإذا كنتم أستفدتم فسأكمل. والله الموفق ربنا يبارك فيك بحق الله اخي رؤوف1951 =============================================== بعض الأكواد البسيطة.rar =========================== سر على بركة الله واكمل

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

السلام عليكم أخي صالح هذه المعلومة تقريبا صحيحة ، والصحيح 1 سم يساوي 567 وحدة تويب ، ولكن يجب عليك الحذر ، حيث ان 1 بوصة Inch يساوي 1440 تويب ، مثلا: عند عملك البرنامج ، وتريد ان تأخذ قيمة عرض الحقل (مثلا) وتتلاعب به ، فمن المهم ان تعرف ان هذه القيمة بالسنتيمتر او البوصة (لا تنسى ان لكل كمبيوتر تنصيب يختلف عن الآخر ، وبحسب الدولة التي هو فيها كذلك) انا استعمل الوحدة النمطية التالية لأحصل على بعض معلومات الكمبيوتر ، منها وحدة القياس: Option Compare Database ' This code was originally written by Dev Ashish. ' It is not to be altered or distributed, ' except as part of an application. ' You are free to use it in any application, ' provided the copyright notice is left unchanged. ' ' Code Courtesy of ' Dev Ashish ' Public Const LOCALE_ILANGUAGE = &H1 ' language id Public Const LOCALE_SLANGUAGE = &H2 ' localized name of language Public Const LOCALE_SENGLANGUAGE = &H1001 ' English name of language Public Const LOCALE_SABBREVLANGNAME = &H3 ' abbreviated language name Public Const LOCALE_SNATIVELANGNAME = &H4 ' native name of language Public Const LOCALE_ICOUNTRY = &H5 ' country code Public Const LOCALE_SCOUNTRY = &H6 ' localized name of country Public Const LOCALE_SENGCOUNTRY = &H1002 ' English name of country Public Const LOCALE_SABBREVCTRYNAME = &H7 ' abbreviated country name Public Const LOCALE_SNATIVECTRYNAME = &H8 ' native name of country Public Const LOCALE_IDEFAULTLANGUAGE = &H9 ' default language id Public Const LOCALE_IDEFAULTCOUNTRY = &HA ' default country code Public Const LOCALE_IDEFAULTCODEPAGE = &HB ' default code page Public Const LOCALE_SLIST = &HC ' list item separator Public Const LOCALE_IMEASURE = &HD ' 0 = metric, 1 = US Public Const LOCALE_SDECIMAL = &HE ' decimal separator Public Const LOCALE_STHOUSAND = &HF ' thousand separator Public Const LOCALE_SGROUPING = &H10 ' digit grouping Public Const LOCALE_IDIGITS = &H11 ' number of fractional digits Public Const LOCALE_ILZERO = &H12 ' leading zeros for decimal Public Const LOCALE_SNATIVEDIGITS = &H13 ' native ascii 0-9 Public Const LOCALE_SCURRENCY = &H14 ' local monetary symbol Public Const LOCALE_SINTLSYMBOL = &H15 ' intl monetary symbol Public Const LOCALE_SMONDECIMALSEP = &H16 ' monetary decimal separator Public Const LOCALE_SMONTHOUSANDSEP = &H17 ' monetary thousand separator Public Const LOCALE_SMONGROUPING = &H18 ' monetary grouping Public Const LOCALE_ICURRDIGITS = &H19 ' # local monetary digits Public Const LOCALE_IINTLCURRDIGITS = &H1A ' # intl monetary digits Public Const LOCALE_ICURRENCY = &H1B ' positive currency mode Public Const LOCALE_INEGCURR = &H1C ' negative currency mode Public Const LOCALE_SDATE = &H1D ' date separator Public Const LOCALE_STIME = &H1E ' time separator Public Const LOCALE_SSHORTDATE = &H1F ' short date format string Public Const LOCALE_SLONGDATE = &H20 ' long date format string Public Const LOCALE_STIMEFORMAT = &H1003 ' time format string Public Const LOCALE_IDATE = &H21 ' short date format ordering Public Const LOCALE_ILDATE = &H22 ' long date format ordering Public Const LOCALE_ITIME = &H23 ' time format specifier Public Const LOCALE_ICENTURY = &H24 ' century format specifier Public Const LOCALE_ITLZERO = &H25 ' leading zeros in time field Public Const LOCALE_IDAYLZERO = &H26 ' leading zeros in day field Public Const LOCALE_IMONLZERO = &H27 ' leading zeros in month field Public Const LOCALE_S1159 = &H28 ' AM designator Public Const LOCALE_S2359 = &H29 ' PM designator Public Const LOCALE_SDAYNAME1 = &H2A ' long name for Monday Public Const LOCALE_SDAYNAME2 = &H2B ' long name for Tuesday Public Const LOCALE_SDAYNAME3 = &H2C ' long name for Wednesday Public Const LOCALE_SDAYNAME4 = &H2D ' long name for Thursday Public Const LOCALE_SDAYNAME5 = &H2E ' long name for Friday Public Const LOCALE_SDAYNAME6 = &H2F ' long name for Saturday Public Const LOCALE_SDAYNAME7 = &H30 ' long name for Sunday Public Const LOCALE_SABBREVDAYNAME1 = &H31 ' abbreviated name for Monday Public Const LOCALE_SABBREVDAYNAME2 = &H32 ' abbreviated name for Tuesday Public Const LOCALE_SABBREVDAYNAME3 = &H33 ' abbreviated name for Wednesday Public Const LOCALE_SABBREVDAYNAME4 = &H34 ' abbreviated name for Thursday Public Const LOCALE_SABBREVDAYNAME5 = &H35 ' abbreviated name for Friday Public Const LOCALE_SABBREVDAYNAME6 = &H36 ' abbreviated name for Saturday Public Const LOCALE_SABBREVDAYNAME7 = &H37 ' abbreviated name for Sunday Public Const LOCALE_SMONTHNAME1 = &H38 ' long name for January Public Const LOCALE_SMONTHNAME2 = &H39 ' long name for February Public Const LOCALE_SMONTHNAME3 = &H3A ' long name for March Public Const LOCALE_SMONTHNAME4 = &H3B ' long name for April Public Const LOCALE_SMONTHNAME5 = &H3C ' long name for May Public Const LOCALE_SMONTHNAME6 = &H3D ' long name for June Public Const LOCALE_SMONTHNAME7 = &H3E ' long name for July Public Const LOCALE_SMONTHNAME8 = &H3F ' long name for August Public Const LOCALE_SMONTHNAME9 = &H40 ' long name for September Public Const LOCALE_SMONTHNAME10 = &H41 ' long name for October Public Const LOCALE_SMONTHNAME11 = &H42 ' long name for November Public Const LOCALE_SMONTHNAME12 = &H43 ' long name for December Public Const LOCALE_SABBREVMONTHNAME1 = &H44 ' abbreviated name for January Public Const LOCALE_SABBREVMONTHNAME2 = &H45 ' abbreviated name for February Public Const LOCALE_SABBREVMONTHNAME3 = &H46 ' abbreviated name for March Public Const LOCALE_SABBREVMONTHNAME4 = &H47 ' abbreviated name for April Public Const LOCALE_SABBREVMONTHNAME5 = &H48 ' abbreviated name for May Public Const LOCALE_SABBREVMONTHNAME6 = &H49 ' abbreviated name for June Public Const LOCALE_SABBREVMONTHNAME7 = &H4A ' abbreviated name for July Public Const LOCALE_SABBREVMONTHNAME8 = &H4B ' abbreviated name for August Public Const LOCALE_SABBREVMONTHNAME9 = &H4C ' abbreviated name for September Public Const LOCALE_SABBREVMONTHNAME10 = &H4D ' abbreviated name for October Public Const LOCALE_SABBREVMONTHNAME11 = &H4E ' abbreviated name for November Public Const LOCALE_SABBREVMONTHNAME12 = &H4F ' abbreviated name for December Public Const LOCALE_SABBREVMONTHNAME13 = &H100F Public Const LOCALE_SYSTEM_DEFAULT& = &H800 Public Const LOCALE_USER_DEFAULT& = &H400 Const cMAXLEN = 255 Private Declare Function apiGetLocaleInfo Lib "kernel32" _ Alias "GetLocaleInfoA" (ByVal Locale As Long, _ ByVal LCType As Long, ByVal lpLCData As String, _ ByVal cchData As Long) As Long '''' Function CountryName() As String Dim lngLocale As Long Dim strLCData As String, lngData As Long Dim lngX As Long strLCData = String$(cMAXLEN, 0) lngData = cMAXLEN - 1 lngX = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SCOUNTRY, strLCData, lngData) If lngX <> 0 Then CountryName = Left$(strLCData, lngX - 1) End If End Function '''' Function fLocaleInfo(lngLCType As Long) As String Dim lngLocale As Long Dim strLCData As String, lngData As Long Dim lngX As Long strLCData = String$(cMAXLEN, 0) lngData = cMAXLEN - 1 lngX = apiGetLocaleInfo(LOCALE_USER_DEFAULT, lngLCType, _ strLCData, lngData) If lngX <> 0 Then fLocaleInfo = Left$(strLCData, lngX - 1) End If End Function Function fLOCALE_IMEASURE() As String ' 0 = metric, 1 = US Dim lngLocale As Long Dim strLCData As String, lngData As Long Dim lngX As Long strLCData = String$(cMAXLEN, 0) lngData = cMAXLEN - 1 lngX = apiGetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_IMEASURE, _ strLCData, lngData) If lngX <> 0 Then fLOCALE_IMEASURE = Left$(strLCData, lngX - 1) End If End Function . وطريقة استخدامي لوحدة القياس في النموذج هكذا: 'call the function to Get the Unit of Measurment from Windows Regional Measurment If fLOCALE_IMEASURE = 0 Then '0 = metric t = 567 Else '1 = US t = 1440 End If . جعفر

For i = 1 To Me.InsideHeight Me.InsideHeight = Me.InsideHeight - 40 Me.InsideWidth = Me.InsideWidth - 90 Next If Me.InsideHeight <= 0 Then DoCmd.Close End If السلام عليكم جرب هذا الكود

اسم البرنامج : Employs رقم الاصدار : 3.1.0 اسم المبرمج : almaistro وصف البرنامج : البرنامج عبارة عن قاعدة بيانات للموظفين يسجل فيها كل بيانات الموظف كما تشاهد بالصورة المرفقة ايضا تستطيع عمل نسخ احتياطى للبيانات (اختيارى) تستطيع ايضا وضع شاشة دخول للبرنامج (إجبارى) تستطيع حفظ واسترجاع قاعدة البيانات (اختيارى) تستطيع حفظ صورة لكل موظف مع تشفير الصورة ووضعها بملف خارجى تستطيع طباعة كشف المرتبات لكل فرع (جديد) تستطيع تسجيل الحضور والانصراف لكل موظف(جديد) تستطيع إستعراض حضور موظف خلال فترة مع حساب اجرة الاضافى(جديد) واشياء اخرى اكتشفها بنفسك ،،، كلمة المرور للبرنامج :arafa صورة للبرنامج انتظرو ادائما جديد البرنامج Employs v3.1.0.rar