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

تفضل 🙂 هذا لملف واحد 🙂 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 جزاك الله خيرا تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

لتفعيل النسخ الإحتياطي التلقائي ، قم بما يلي: أولاً : إعدادت إختيار قواعد البيانات لعمل النسخ الإحتياطى التلقائي لها 1) انقر على الزر "إعداد النسخ الإحتياطي التقائي". أدخل المسار الكامل لقواعد البيانات التي ترغب في النسخ الاحتياطي لها.بإستخدام الزر "استعراض لإختيار قواعد البيانات" 2)انقر على الزر "إضافة قاعدة بيانات إلي القائمة" لإضافة قاعدة بيانات جديدة. 3) انقر مرتين على أي قاعدة بيانات في القائمة للتعديل أو الحذف. ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ ثانياً : إعدادات مسار تخزين النسخ الإحتياطى التلقائي حدد المسار الكامل الذي تريد حفظ قواعد بيانات النسخ الاحتياطي.فيه عن طريق النقر على الزر "تحديد مسار التخزين" وهذا المسار يجب بالفعل أن يكون موجوداً أو سوف يتم إحباط العملية. ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ ثالثاً : إعدادات وقت النسخ الإحتياطي التلقائي تحديد وقت بدء النسخ الإحتياطي التلقائي هام جداً جداً جداً أدخل الوقت بهذا التنسيق (HH:MM:SS AM / PM) شرح التسيق HH الساعة MM الدقيقة SS الثانية AM / PM أو ص / م وهذا يشير لتحديد الساعة صباحا او مساءً ويظهر هذا التنسيق فقط عندما تكون إعدادت نظام التشغيل تم تحديد الوقت فيه على نظام 12 ساعة مثال عندما نريد نسخ تلقائى فى تمام الساعة الواحدة ظهراً تكون بهذا الشكل (01:00:00 م ) وفي حالة ضبط إعدادت الوقت فى نظام التشغيل 24 ساعة يكون التسيق (HH:MM:SS) مثال عندما نريد نسخ تلقائى فى تمام الساعة الواحدة ظهراً تكون بهذا الشكل (13:00:00) ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ ملاحظـــــة هامــــــــة ـــــــــــــــــــــــــــــــــــ لكى يتم عمل النسخ التلقائي لقواعد البيانات بشكل تلقائي طبقاً للإعدادت المسبقة 1- يجب فتح النموذج المسئول عن النسخ الإحتياطي التلقائي من خلال النقر على الزر "بدء النسخ الاحتياطي التلقائي" وإلا لن يتم النسخ الاحتياطى تلقائيا فى الوقت المحدد طبقاً للإعدادت المحددة 2- فى حالة إستخدام شاشة التوقف أو شاشة حماية إذا كنت ترغب فى الحصول على السرية والحماية للجهاز الخاص بك فى غيابك لن يؤثر ذلك على النسخ التلقائي ☺ ملاحظة هامة جدا جدا جدا يتم تحديد قاعدة بيانات أو أكثر لعمل نسخ احتياطى لها وضغط واصلاح مرة واحدة فقط من الاعدادت يتم تحديد المسار المراد حفظ النسخ الاحتياطى مرة واحدة فقط وقمت بعمل طريقة تجعل البرنامج يقوم كل يوم بعمل مجلد باسم وتاريخ اليوم دون اى تدخل من المستخدم فقط غير فتح النموذج "frmTimer" مشكلة لو تم وضع باسورد لحماية قاعدة البيانات المراد عمل نسخ احتياطى لها عند فتحها فلن يكتمل النسخ التلقائى الالى بسبب كلمة السر هذه ولن يتم عمل اى نسخ احتياطى لباقى قواعد البيانات الاخرى للامانة العلمية : هذا البرنامج حصلت عليه من احد المنتديات الاجنبية ولكن قمت بتعديلات كثيرة جدا للوصول الى هذه النتيجة المثمرة ان شاء الله واضعها بين أيديكم حتى تعم الفائدة AutoBackup.rar

الكثير منّا يحاول ادخال التاريخ في الكومبوبوكس لكن المشكلة انه يظهر بالتنسيق الأميركي (شهر /يوم /سنة) بحلية بسيطة يمكننا ان نخدع الاكسل لأدخال التاريخ في الكومبوبوكس كما نريد نحن (يوم/شهر/ سنه) اذ ليس الامر باختياره انظر الى الملف المرفق لتعرف ماذا اعني Reel_date_to Combo.xlsm

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

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

السلام عليكم 🙂 واذا ما كنت تريد تحفظ قيمة num3 في الجدول ، فيمكنك ان تكتب في اعدادات حقل num3 ، في مصدر بياناته (السطر الثاني بعد الاسم) ، وبدون اي كود : =[Bam] جعفر

استاذ احمد استاذ خالد اسف على الاطالة ولكنى اقتبست الحل من مشاركتكم (IIf(Date() Between #01/04/2020# And #30/04/2020#;50;0) اشكركم اخوانى الكرام على المساعدة جزاكم الله خيرا

من الأخطاء الشائعة في المنتدى تعريف المتغيرات بصورة غير صحيحة في الـ 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

تم التعديل على الملف وجعلت الصفحة تتسع لتطبع 7 شهادات 😃😃 طباعة شهادات دفعة واحدة فارغ.xlsm

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

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

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

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

أستاذ احمد عـــزام أين الضغط على الإعجاب لهذه الإجابة الممتازة واعتقد ان هذا اقل ما يقدم لصاحب الفضل بعد ربنا فى حل مشكلتك ؟!!!💙

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

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

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

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

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

السلام عليكم تصمبم برنامج الاكسس بعتمد على فكرة المصمم (الغرض من البرنامج) وكلما كانت الافكار اكثر ومتنوعة يمكن ان نخنار الفكرة الافضل للتصميم وبمشاركة الاخوة هنا بالموقع لان الاكسس فيه امكانيات رائعه وكثيرة تختلف عن باقي البرامج المهم : عملت لك حدول Table1 جديد و استعلام query1 فيه معلومات عن المقترض الفكره: هي تبدا من ادراج تاريخ اول استقطاع حيث ان الاستعلام بقوم باضافة شهر واحد لكل اشهر الاستقطاع اللاحقة بصورة متتالية وتلقائية لاخر استقطاع من القرض (الى نهايته) كل ماعليك فعله هو وضح علامه صح في حقل (تسديد) للمقترض الذي قام بالتسديد في شهر معين لكي يتم الفرز بصورة صحيحه ومعرفة من قام بالتسديد من عدمه. جرب ان تملا بيانات حقيقية لمقترض واحد في الملف المرفق واعطائي رايك فيه (او فكرة جديده) علما انه يمكن عمل 72 حقل لمدة القرض تحياتي loan 2.rar

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

اتفضل استخدم هذا الكود في الفورم بعد تحديث التاريخ الاول Private Sub first_date_AfterUpdate() If IsDate(Me.first_date) = True Then Me.end_date = DateAdd("YYYY", 1, Me.first_date) - 1 End If End Sub الاجازات.accdb

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

مشاركة مع استاذي الفاضل @احمد الفلاحجي بارك الله فيه أنظر المرفق .... kan.mdb

وعليكم السلام اتفضل اخى @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

اسم البرنامج : 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