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

تفضل 🙂 هذا لملف واحد 🙂 Dim ImportFileName As String, myField As String Dim rst1 As DAO.Recordset, rst2 As DAO.Recordset Dim i As Long, j As Long ImportFileName = Me.txtPath CurrentDb.Execute ("Delete * From Table1") CurrentDb.Execute ("Delete * From Temp4") DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Temp4", ImportFileName, False Set rst2 = CurrentDb.OpenRecordset("Select * From Table1") 'there are 2 columns per sheet: F2 and F8 For j = 2 To 8 Step 6 myField = "F" & j Set rst1 = CurrentDb.OpenRecordset("Select " & myField & " From Temp4 Where " & myField & " Is Not Null") rst2.AddNew Do Until rst1.EOF i = i + 1 If i = 1 Then rst2![Academic Year] = rst1(myField) ElseIf i = 2 Then rst2![Academic Num] = Mid(rst1(myField), InStrRev(rst1(myField), " ") + 1) ElseIf i = 3 Then rst2![StName] = rst1(myField) ElseIf i = 4 Then rst2![F1] = rst1(myField) ElseIf i = 5 Then rst2![Subjects] = rst1(myField) i = 0 rst2.Update rst2.AddNew End If rst1.MoveNext Loop Next j rst1.Close: Set rst1 = Nothing rst2.Close: Set rst2 = Nothing MsgBox "تم استيراد البيانات بنجاح" والى ان انت تعمل التغيير ، مثل برامجك الماضية ، في اختيار ملف او اختيار الكل ، آخذ قيلوله 🙂 جعفر 1206.Posters.zip

السلام عليكم ورحمة الله استخدم هذا الكود Private Sub CommandButton1_Click() Dim C As Range For Each C In Sheet1.Range("A2:A" & Sheet1.Range("A" & Rows.Count).End(xlUp).Row) If IsEmpty(C.Offset(0, 1)) Then C.Offset(0, 1).Value = "غ" End If Next End Sub

مثال تطبيقي حول التعامل مع المتصفح: الدخول إلى موقع أوفيسنا في متصفح Internet Explorer من خلال الأكسس المثال التالي يمكننا من إدخال اسم المستخدم و كلمة مرور أوفيسنا و عند الضغط على زر الدخول يفتح الموقع بحسابك الخاص في متصفح أنترنت أكسبلورر Dim HTMLDoc As HTMLDocument Dim oBrowser As InternetExplorer Dim oHTML_Element As IHTMLElement Dim sURL As String On Error GoTo Err_Clear sURL = "https://www.officena.net/ib/login/" Set oBrowser = New InternetExplorer oBrowser.Silent = True oBrowser.Navigate sURL oBrowser.Visible = True Do ' Wait till the Browser is loaded Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE Set HTMLDoc = oBrowser.Document HTMLDoc.all.auth.Value = Me.str_UserName HTMLDoc.all.Password.Value = Me.str_Password HTMLDoc.getElementById("elSignIn_submit").Click ' oBrowser.Refresh ' Refresh If Needed Err_Clear: If Err <> 0 Then 'Debug.Assert Err = 0 Err.Clear Resume Next End If فتح موقع أوفيسنا.rar

بمجرد أن يكون اليوم أكبر من أو يساوي 12 غالبا تنتهي مشاكل التاريخ بسبب الخلط بين اليوم والشهر متأثرا بتنسيق نظام التشغيل. ولكن إذا قل اليوم عن 12 وهو القيمة الكبرى للشهور تبدأ أحيانا مشاكل الخلط وبالتالي اختلاف قيمة التاريخ وخصوصا إذا كتب التاريخ على شكل نص وحصره بعلامتي الرقم #. طريقتي في الاحتراز: تحويل التاريخ إلى رقم باستخدام أربع دوال كالتالي: - إذا كان التاريخ بدون وقت يمكن استخدام دالة CLng. - إذا كان التاريخ يحتوي على وقت ينصح باستخدام دالة CDbl. - إذا كان التاريخ على شكل نص مثل #10/04/2020# وهذا أخطرها ينصح باستخدام دالة DateSerial ليصبح DateSerial(2020, 4, 10). - وإذا كان على شكل نص ويحتوي على وقت مثل #10/4/2020 11:43:30 PM# ينصح بإضافة دالة TimeSerial ليصبح DateSerial(2020, 4, 10) + TimeSerial(23, 43, 30). قد يستثقلها المبرمج ويرى فيها تعقيدا ولكن كاحتراز فهي مطلوبة بشدة وخصوصا إذا كانت البرامج لها علاقة بحسابات وأمور يترتب علي أخطائها أضرارا. هذا اجتهادي وقد أكون صائبا وقد أكون مخطئا.

لم أتعود على كتابة الأمثلة وهذه مقدرتي ، من يمتلك هذه الملكة فليقوم بالاختبارات وعمل أمثلة أكثر وضوحا. من أهم ما أشدد على الالتزام به هو أن تستخدم دالة تحويل التاريخ إلى رقم لجهتي المقارنة أي حقل الجدول و قيمة البحث. Sub Test4() Dim TestDate As Date Dim SearchText As String '----------------------------------------------------------- 'المعتاد SearchText = "Birthdate=" & #10/4/2020# 'الاحترازي TestDate = DateSerial(2020, 4, 10) SearchText = "CLng(Birthdate)=" & CLng(TestDate) '-------------------------------------------------------- 'المعتاد SearchText = "Birthdate=" & #10/4/2020 11:43:30 PM# 'الاحترازي TestDate = DateSerial(2020, 4, 10) + TimeSerial(23, 43, 30) SearchText = "CDbl(Birthdate)=" & CDbl(TestDate) End Sub Sub Test5() Dim SearchText As String SearchText = #10/4/2020# Debug.Print CDate(SearchText) 'الناتج 04/10/2020 Debug.Print DateSerial(2020, 4, 10) 'الناتج 10/04/2020 '-------------------------------------------------------- SearchText = #4/13/2020# 'كتبتها 13/4/2020 وحولها المحرر 4/13/2020 Debug.Print CDate(SearchText) 'الناتج 13/04/2020 Debug.Print DateSerial(2020, 4, 13) 'الناتج 13/04/2020 End Sub

الآن انزلت برنامجك ، واتضح انك تحفظ قيمة num3 في الجدول ، لهذا السبب فطريقتي لا تنفعك 🙂 جعفر

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

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

هل هذا ما تريد test.accdb

وعليكم السلام اخى ازهر فى حدث عند الخروج num 2 اكتب الكود التالى Me.num3 = Me.نص17 بالتوفيق ان شاء الله اخى ازهر test.accdb

شكرا جزيلا 🙂 جعفر

سبحان الله ـ رُب ضارة ، نافعة !! طبعا انت قصدك Dim rst1, rst2 As ADODB.Recordset, rst3 As DAO.Recordset . انا اعرف انه ممكن ان نستعمل المعرف Variant للرقم او النص ، ولكن الذي لم اكن اعرفه انه ممكن استعمال Variant مع Recordset !! وبما انني استعملت الكود التالي ، واعطاني الاجابة الصحيحة : Dim rst1, rst2 As DAO.Recordset هذا يجعلني اقارن Variant بالـ Object في : Dim xlApp As Object 'Excel.Application Dim xlWB As Object 'Excel.Workbook فإذا استعملنا Variant او Object ، فالكود يكون صحيح ، ونحصل على اجابة صحيحة ، ولكننا لا نستطيع الاستفادة من Intellisense الكود في اعطائنا تكملة للكود (عند كتابة . او مسافة) 🙂 هذه معلومة جديدة لي ، شكرا اخوي الهاوي 🙂 جعفر

وعليكم السلام مشاركه مع اخى خالد @Khalid Jnb جزاه الله خيرا هل تقصد هكذا جرب ان لم يكن ارفق مثال لما لديك واشرح ما تريد واخوانك واساتذتنا لا يقصرون IIf([d] Between #01/04/2020# And #30/04/2020#;50;0) بالتوفيق ان شاء الله

بعد اذن اخي ابراهيم هذا الكود (من سطر واحد) وبدون حلقات تكرارية Sub test() On Error Resume Next Range("A2", Range("A1"). _ End(4)).Offset(, 1). _ SpecialCells(4).Value = "Abscent" End Sub

لست بحاجة الى كود لتنفيذ هذا العمل شاهذ المرفق My_ ITEM 1111.xlsm

تفضل ملاحظه اي تغير في موضع الخلايا المستهدفه في اوراق المقاولات ستكون النتائج خاطئة 11 - Copy.xlsm

آسف زملائي . ارسلت الملف الخطأ. و قمت بتجريب ملف آخر هذا الملف الصحيح. 'طباعة1.xlsm

عند التجربه فقد اعطانى القيمه لنوع المتغير وهذا جدول من ميكروسوفت لمعرفه نوع رقم المتغيرات https://support.office.com/en-us/article/vartype-function-1e08636c-1892-40c2-aff3-2b894389e82d وهذا رابط اخر http://www.java2s.com/Code/VBA-Excel-Access-Word/Data-Type/ValuesreturnedbytheVarTypefunction.htm وللحصول على اسم المتغير Debug.Print TypeName(a) بعتذر عن عدم وضع الكود فالتنسيق لسوء حاله الانترنت الان وفى انتظار مزيد من الشرح @Hawiii جزاك الله خيرا تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

السلام عليكم 🙂 برامج الاكسس ممكن ان يصيبها العطب corruption لعدة اسباب ، وبرامج تصليح العطب يجب ان تكون من ضمن مكتبة برامج المبرمج 🙂 يُعتبر برنامج DataNumen Access Repair من احد البرامج المهمة في اصلاح ملفات الاكسس المعطوبة ، والآن الشركة تعطي النسخة الاحدث 2.9 للإستعمال الشخصي الغير تجاري ، مجانا ، من موقعهم : https://www.datanumen.com/access-repair/ انزلته وجربته ، بس لاحظت ان البرنامج بطيء بالمقارنة مع بعض البرنامج الاخرى ، ولكن لا تنسى أنها نسخة مجانية (للإستعمال الشخصي الغير تجاري) 🙂 جعفر رجاء استعمل رابط الشركة حتى تنزل آخر نسخة هناك ، بينما ارفق هنا النسخة 3 (احتياطا ، اذا غيرت الشركة رأيها لاحقا والغت النسخة المجانية ، فتكون عندنا هنا النسخة المجانية 🙂 ) daccr.zip

مثال لكتابة الاسم الكامل ، ثم تقسيمه الي أجزاء بالنقر المزدوج عليه Splitnames.rar

بسم الله الرحمن الرحيم تحت شعار كنت قد رفعته سابقا "أتمنى وجود جيل من المبرمجين العرب قادر على الابتكار والمنافسة" أبدأ معكم إخوتي وأحبابي نظرا لما وجدته في الإخوة والأساتذة المهتمين (مثلي) ببرمجة وتصميم المواقع وبرمجة الأكسس والفيجوال بيسك من الاهتمام بالأداة التي تقوم بتحويل قواعد البيانات أكسس إلى ملف sql يمكن استيراده من داخل phpmyadmin ويتم التعامل معه على أنه قاعدة بيانات mysql ونظرا لما لاحظته من الرغبة في عمل البرنامج كمحول لقواعد بيانات mysql المتمثلة في ملف sql وتحويله إلى قاعدة بيانات أكسس توكلت على الله واستعنت به على قضاء حاجتي وحوائج إخواني وأخواتي واليوم أعرض لكم برنامج محول الماس لقواعد بيانات أكسس و ماي إس كيو إل (الإصدار الأول) حيث يحول البرنامج قواعد بيانات أكسس إلى mysql بمجرد الضغط على الزر واختيار قاعدة البيانات المطلوب تحويلها ويقوم أيضا بتحويل ملف sql إلى قاعدة بيانات أكسس وبها الجداول والسجلات الموجودة في ملف sql وبانتظار ملاحظاتكم واقتراحاتكم لتطوير هذه الأداة حجمها 208 كيلو بايت التي تقوم بعمل برنامج DBConvert for Access & MySQL والذي ثمنه 79 دولار وحجمه 17.5 ميجا بايت تقريبا وهذه صفحته وفقنا الله وإياكم إلى كل ما يحبه ويرضاه أخوكم أبو عبد الله محمد صالح mas-access&mysql-converter.rar

وعليكم السلام 🙂 شكرا جزيلا على هذا الشرح ، بس لو تكرمت واكملت الشرح بأمثله ، علشان يكون الموضوع واضح ومكتمل 🙂 جعفر

في الواقع صار لي شوية وقت وانا اشوف كود سابق ، ولكني لازم ارجع الى الكود الاصل اللي انا عملته ، لأنه ما يكون فيه زيادات !! الصباح رباح ان شاء الله 🙂 جعفر

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

من الأخطاء الشائعة في المنتدى تعريف المتغيرات بصورة غير صحيحة في الـ VBA، مع أن هذه الطريقة صحيحة في بعض اللغات. والخطأ هو صف مجموعة متغيرات في تعريف واحد ، وفي هذه الحالة سوف يتم تعريف المتغير الأخير فقط أما المتغيرات التي قبله سوف سوف يكون نوعها Variant والصح هو تعريف كل متغير على حدى مثال: 'الخطأ Sub Test() Dim a, b As Double Dim rst1, rst2 As Recordset Debug.Print VarType(a) Debug.Print VarType(b) Debug.Print VarType(rst1) Debug.Print VarType(rst2) End Sub 'الصح Sub Test2() Dim a As Double, b As Double Dim rst1 As Recordset, rst2 As Recordset Debug.Print VarType(a) Debug.Print VarType(b) Debug.Print VarType(rst1) Debug.Print VarType(rst2) End Sub

اخي العزيز هل ممكن توضح اكثر طلبك تحياتي

الفضل لأصحاب الفضل ابراهيم الحداد / سليم حاصبيا

السلام عليكم بما ان الرصيد مرتبط بنوع الاجازة فقد تم التعديل كالتالي Balance: IIf([النوع]="سنوي";Nz([العدد الكلي])-Nz([عدد الاجازة]);"0") مرفق المثال بعد التعديل 0مثال.rar ولك الشكر تحياتي

شكرا لك استاذ عبد الرحيم و كل الأخوة الأفاضل ما قصرتو الله يحفظكم

تفضل جرب الكودين بأزرار التنفيذ Fill blanks.xlsm

شاهد هذا الفيديو https://www.youtube.com/watch?v=hElkHVLg7a4

وعليكم السلام-اهلا بك اخى الكريم فى المنتدى ... على الرغم ان هذه المشاركة مخالفة لتعليمات وقوانين المنتدى ويجب حذفها لعدم احتوائها على ملف موضح فيه كل المطلوب بكل دقة , حيث أنه لا يمكن العمل على التخمين وتجنباً لعدم اهدار وقت الأساتذة .... الا ان طلبك يمكن حله بهذه المعادلة فلنفترض اذا كان الرقم موجود بالخلية B2 - فيمكنك وضع هذه المعادلة فى خلية اخرى كما تريد =SUBSTITUTE(b2," ","")

السلام عليكم لقد قمت بتصحيح الكود كما جاء في الرابط: سأضع المثال كما أمرتم. جزاكم الله كل خير أستاذ @jjafferr لقد كتبت الكود السابق خطأ، في المرفق الفكرة كما أردت طرحها. Database1.accdb

وعليكم السلام 🙂 IIf([name]="A" or [name]="B",500,700) جعفر

أستاذ احمد عـــزام أين الضغط على الإعجاب لهذه الإجابة الممتازة ؟!!💙

كلام الاستاذ صحيح ، ولكن : ممكن عمل التالي (انا اكتب واعرض الكود حاليا وبدون التأكد منه ، فرجاء التأكد) ، تقدر تعمل التالي : اسم التقرير rpt_1 ، واسم الحقل Text1 ، ومن زر فتح التقرير ، من النموذج : docmd.openreport "rpt_1", acviewPreview Reports!rpt_1!Text1 = "نحن نقوم بالتجربة على البطاقة رقم " & me.ID جعفر

تفضل يمكنك استخدام هذا الكود Sub Remove_Duplicates() Range("f5:f1000").RemoveDuplicates Columns:=1, Header:=xlYes End Sub ولو حابب حذف المكرر بدون أكواد ..يمكنك هذا بعد تحديد العمود الذى تريد حذف المكرر منه.ثم الذهاب الى قائمة Data ثم الضغط على Remove Duplicates ... وهذا موضح بالصورة المرفقة Remove Duplicate.xlsm

ومن هذا الرابط تستطيع ان تنزل برنامج ، تستعيد به الجداول : جعفر

وعليكم السلام ,يمكنك هذا بالدالة المعرفة payout Function payout(Value) Select Case Value Case 1 To 5 payout = "متبقى أقل من 5 أيام" Case 6 To 10 payout = "متبقى أقل من 10 أيام" Case 11 To 20 payout = "متبقى أقل من 20 يوم" Case 21 To 30 payout = "متبقى أقل من 30 يوم" Case 31 To 60 payout = "متبقى أقل من شهرين" Case 61 To 90 payout = "متبقى أقل من 3 شهور" Case 91 To 120 payout = "متبقى أقل من 4 شهور" Case 121 To 150 payout = "متبقى أقل من 5 شهور" Case 151 To 180 payout = "متبقى أقل من 6 شهور" Case 181 To 210 payout = "متبقى أقل من 7 شهور" Case 211 To 240 payout = "متبقى أقل من 8 شهور" Case 241 To 270 payout = "متبقى أقل من 9 شهور" Case 271 To 300 payout = "متبقى أقل من 10 شهور" Case 301 To 330 payout = "متبقى أقل من 11 شهر" Case 331 To 360 payout = "متبقى أقل من عام" Case Is >= 361 payout = "صلاحية أكثر من عام" Case Is < 1 payout = "إنتهت الصلاحية" End Select End Function فعليك بوضع هذه المعادلة بالخلية M13 مع السحب للأسفل =payout(L13) اصناف.xlsm

بعد أذنك أخي الاستاذ @احمد الفلاحجي في نفس مثال أخي الاستاذ @kanory ضع هذا الكود بدلا من الكود الموجود ....... Dim X, d As String Dim strDB As String X = DLookup("[name1]", "[Dchoose]", "[Name2] ='" & name1.Column(2) & "'") If IsNull(Me.name1) Then MsgBox "ÚÐÑÇ ÇÎí ÇáßÑíã ... áã ÊÞã ÈÅÎÊíÇÑ ãÓÇÑ ÇáãáÝ", vbCritical, "ÇÏÎá ãÓÇÑ ÇáãáÝ" DoCmd.CancelEvent Else strDB = "D:\Saas\" & X & ".mdb" Set appAccess = CreateObject("Access.Application") appAccess.OpenCurrentDatabase strDB appAccess.Visible = True End If

وعليكم السلام اتفضل اخى @AboSaad17 ان شاء الله يكون ما تريد تم الاستعانه بالرابط التالى لاضافه المتغير لانه لم يكن يراه https://forums.techguy.org/threads/access-2003-correct-use-of-vba-shell-command.473952/ Private Sub choose_Click() Dim X, d X = DLookup("[name1]", "[Dchoose]", "[Name2] ='" & name1.Column(2) & "'") d = CurrentProject.Path & "\" & X Shell ("C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE " & d), vbNormalNoFocus 'محاولات غير ناجحه End Sub بالتوفيق ان شاء الله 3.rar

اخي طارق 🙂 فهمنا للطلب ، يسهل علينا الاجابة ، وطلبك ليس بالسهل ولا بالصعب ، ولكننا علشان نساعدك ، لازم نبرمج لهذا الطلب (1. للشبكة الداخلية) ، او ذاك (2. على الانترنت) ، للمواد التي تريد استعمالها ، وعلى الاكسس : واليك الفرق بينهم : 1. الشبكة الداخلية : برنامج جدا عادي ، حسب المواد اللي عندك ، والصفوف ، تضبط مجلداتك ، وعليه ، تقدر يكون عندك نموذج لإدخال المواد (عن طريق الاستاذ مثلا) ، ونموذج قراءة المواد (للطلبة) ، الواجهة والجداول ممكن تكون على الاكسس ، الواجهة على كمبيوتر الطلبة ، والجداول والمواد (المرفقات) يتم حفظها في مجلد المشاركة على السيرفر (او الكمبيوتر الذي به مجلد المشاركة) ، عمل نموذج/نماذج لعرض المرفقات . 2. على الانترنت : برنامج يقرأ من مكان ما من الانترنت ، ولا ينفع السيرفر المحلي الموجود عندك في المكتب حتى ولو عليه SQL Enterprise 2014 ، لأن الاساتذه/الطلبة ما ممكن يتصلوا به من بيوتهم (وهذا هدفك) ، تستطيع جعل الكمبيوتر المحلى سيرفر لقواعد بيانات سيكوال SQL Server والاتصال به محليا وعن بعد ، بإتباعك هذه الخطوات : وسواء اذا اتبعت الخطوات في الرابط اعلاه ، او عملت استضافة في احد مواقع الانترنت ، فبرنامج سيكون على الانترنت ، ولا يمكن لأحد الوصول اليه وادخال المواد (المرفقات) بالطرق التقليدية ، مثل ما عملنا برنامج اكسس عادي لقراءة البيانات ، فيجب ان نعمله هنا كذلك ، طبعا تقدر تعمل واجهات بإستخدام برامج الواجهات مثل php ، Java ، Python ، JavaScript ، CSS / HTML ، او برامج NET. ، وووو ، ولكن هذا خارج منتدى الاكسس ، لرفع المرفقات ، تقدر انك تضمن المرفقات في حقول قاعدة البيانات SQL Server ، او تعمل واجهة خاصة لفعها من برنامجك ، او ترفعها عن طريق FTP ، اما انزالها الى كمبيوتر الطلبة ، فهم محتاج الى رابط هذا المرفق (واللي هي سبب اسئلتي انا والاستاذ صالح من اول مشاركة) 🙂 فالموضوع مو انه ممكن او لا يمكن عمل هذا البرنامج عن طريق الاكسس ، وانما الموضوع هو ان يكون الطريق واضح امامك ، وانك تمتلك الامكانيات اللوجستية والمادية والوقت (والبرمجة هو جزء بسيط من الموضوع) للوصول لهذه الاشياء 🙂 اتمنى هذا الملخص قد شرح لك لماذا اصرارنا على هذه الاسئلة ، وسببها قولك (التدريس عن بعد) ، وفهمي انها على الانترنت : جعفر

في الصورة التالية تفصيل لكل عناصر المعادلة

select case qproduced case > text482 msgbox("القيمة التي تم ادخالها أعلى من قيمة الحقل (" & [text482] & ")" DoCmd.CancelEvent end select

برنامج محاسبي بسيط جدا لا يوجد كلمة مرور على البرمجة Alkamel.zip

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

اسم البرنامج : Employs رقم الاصدار : 4.0 اسم المبرمج : almaistro وصف البرنامج : البرنامج عبارة عن قاعدة بيانات للموظفين يسجل فيها كل بيانات الموظفين ، مع دعم تعددية المستخدمين وقد تم عمل حماية كاملة للبرنامج بحيث لا يمكن لاى مستخدم الاطلاع على قاعدة بيانات البرنامج ولا شاشة البرنامج الرئيسية إلا بعد تسجيل الدخول للبرنامج من خلال الاسم وكلمة المرور الخاصة بكل مستخدم . مزايا البرنامج : - تستطيع عمل نسخ احتياطى للبيانات (اختيارى) - تستطيع ايضا وضع شاشة دخول للبرنامج (إجبارى فى هذا الأصدار لإحتياطات أمنية) - تستطيع حفظ واسترجاع قاعدة البيانات (اختيارى) - تستطيع حفظ صورة لكل موظف مع تشفير الصورة ووضعها بملف خارجى - تستطيع طباعة وصرف المرتبات لكل فرع (جديد) - تستطيع تسجيل الحضور والانصراف لكل موظف(جديد) - تستطيع إستعراض حضور موظف خلال فترة مع حساب اجرة الاضافى(جديد) - تستطيع صرف الاجر الاضافى لكل فرع على حده (جديد) - تستطيع إضافة مستخدمين للبرنامج مع تحديد صلاحية كل مستخدم على حده (جديد) - تستطيع مراسلة جميع المستخدمين من خلال إرسالة رسالة للمستخدم من داخل البرنامج وتحفظ داخل قاعدة بيانات البرنامج ، يستطيع رؤيتها المستخدم عند تسجيل دخولة للبرنامج (جديد) - تستطيع تغيير كلمة المرور من خلال النموذج الخاص بذلك وهذا خاص بالمستخدمين (جديد) - إمكانية عرض معلومة مفيدة حول طريقة التعامل مع البرنامج (أختيارى) - (جديد) - إمكانية تسليف وإقراض الموظفين من خلال نموذج أُعد لذلك مع تحديد المبلغ المراد إقراضة للموظف ومدة الأقساط (جديد) - إمكانية تسجيل عقوبة على الموظف من خلال الخصم من الراتب الاساسى (جديد) واشياء اخرى اكتشفها بنفسك ،،، صلاحيات الدخول للبرنامج : اسم المستخدم : almaistro كلمة المرور : all الصلاحية : General اسم المستخدم : arafa كلمة المرور : arafa الصلاحية : Limited اسم المستخدم : user كلمة المرور : user الصلاحية : Review Only نسألكم الدعاء EMP4.0.rar

الأخ هاني إزي سعادتك!! بص اضغط على زر الأوفيس اضغط Excel Options Advanced Display options for workbook حتلاقي مربع اختيار show sheets tab شيل علامة الصح وعيش يا معلم أخوك أبو البراء

السلام عليكم تاكيدا للحل وضمان صلاحيته اليك البحث ب 3 شروط بنفس الدالة البحث ب 3شروط.rar

بسم الله الرحمن الرحيم برنامج كشـف صـرف النقـديـة بالفئـات المتـاحـة نسخة تعمل على اكسيل 11 ( 2003 ) المرفقات عبارة عن ::: 1 - ملف البرنامج وبه شرح لطريقة عمله 2 - ملف فيديو لطريقة عمل البرنامج أتمنى صالح الدعاء Omar.rar برنامج كشـف صـرف النقـديـة بالفئـات المتـاحـة نسخة تعمل على اكسيل 12 ( 2007 ) تم استبدال الايقونات بأزار فقط يرجى الاطلاع على تعليمات التشغيل لآكسيل 12 بداخل الملف المرفق _______________________________________________12__.rar