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

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

السلام عليكم هذه طريقة تغيير نوع البيانات في الجدول/الجداول ، لحقل بنفس الاسم في جميع الجداول ، ولكن بإستعمال برنامج خارجي نفترض اننا نريد ان نغير في قاعدة البيانات التالية: والان الى برنامجنا: 1. اختار قاعدة البيانات المطلوبة ، 2. ستظهر لك قائمة اسماء الجداول في قاعدة البيانات المختارة (لاحظ ان الجدول المرتبط لا يظهر لنا) ، 3. يمكن تصفية اسماء الجداول عن طريق كتابة الاحرف الاولى منه ، تسهيلا لعملية اختيار الجداول ، 4. عند النقر على اسم الجدول ، تظهر لنا اسماء الحقول فيه ، 5. وعند النقر على اسم الحقل ، يظهر لنا نوع بيانات الحقل ، 6. وهنا نختار نوع البيانات الذي نريد تحويل الحقل اليه ، 7. هنا 3 طرق لإختيار الجداول والتي نريد تغيير نوع بيانات حقل معين فيها: التصفية باختيار اول حرف/حروف الجدول/الجداول ، من الحقل رقم 3 ، يمكن اختيار جدول مباشرة من الحقل 2 ، ثم الضغط على زر الكيبورد Ctrl ، والنقر على بقية الجداول ، استخدام الحقل 7 ، حيث يختار جميع الجداول او لا يختارها (ونستطيع استعماله مع تصفية الحقل 3 ، 8. هذا الزر يقوم بنصف العمل ، بتكوين حقل مؤقت في جميع الجداول المختارة بنوع البيانات المطلوبة ، ونسخ البيانات اليه ، ولا يحذف الحقل الاصل من الجدول (وقد عملت هذا بناء على ملاحظة أخي ابوخليل ، حيث ان بيانات الحقل قد لا تكون مطابقة ، فبدل ان تُحذف هذه البيانات ، يمكن مقارنتها بعد هذه العملية) ، 9. يقوم بتغيير نوع البيانات في جميع الجداول المختارة (وهو ما يقوم به برنامج أخي ابوخليل ، وبدون هذه الزركشة والزخرفة ) جعفر 403.Change_DataType.mdb.zip

الشكر والتقدير للأستاذ الكريم (عبدالسلام ابوالعوافي ) تعجز الكلمات عن شكر فضلكم ادعو من المولى عز وجل ان يجعل عملك هذا في ميزان حسناتك ويرزقك اللهم امين رب العالمين ألف شكر ألف شكر ألف شكر ألف شكر ألف شكر ألف شكر ألف شكر شكرا لكم استاذنا الكريم (ابو عبدالبارى) لتفضلكم بالاجابة والرد علينا اسئل الله سبحانه وتعالى ان يزد في علمكم الف شكر

السلام عليكم. انشىء قائمة منسدلة اسمها t1 و مربع نص تسميتهt2 و انشىء استعلام لجدول المعلومات وفي حدث عند التغيير للقائمة المنسدلة t1 ضع الكود التالي Dim recherche As String recherche = Me.t1.Text Me.t2.Value = recherche Me.salah.Requery

لتفعيل النسخ الإحتياطي التلقائي ، قم بما يلي: أولاً : إعدادت إختيار قواعد البيانات لعمل النسخ الإحتياطى التلقائي لها 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

الشرح داخل الملف درجة القرار (5 درجات ).rar

العفو اخي الكريم .. جرب الان بعد التعديل درجة القرار (5 درجات ).rar

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

inout.rar

جرب هذا الملف تم توسبع النطاق ليشمل 100 اسم inout salim.rar

جرب درجة القرار (5 درجات ).rar

وعليكم السلام الظاهر ان هذه مشكلة موجودة في الاكسس 2016 ، حسب كلام الموقع http://blog.fmsinc.com/microsoft-access-2016-and-invisible-picture-images/ وقد اصدرت مايكروسوفت تصحيح لهذه المشكلة ، ويمكنك انزاله من هنا (حسب نوع الاكسس اللي عندك 32بت او 64بت): https://support.microsoft.com/en-us/kb/3114379 جعفر

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

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

السلام عليكم عضو حبير والله تستحق أكثر من هذا بارك الله بك وزاد من خبراتك

بارك الله فيكم إخواني (سليم وأبو حنين) شر البلية ما يضحك .. بالفعل واجهتني نفس المشكلة في بدايات تعلمي للإكسيل وبعد مرور وقت ليس بالقليل توصلت لمعرفة سبب المشكلة !! وضحكت كثيراً على هذه المشكلة

سؤال مش يشغل البطيخة وبس ؟ بيحفرها حفر ..

السلام عليكم انظر اخي الصورة Sans titre.rar

جرب هذا الماكرو Sub Unhide_Shts() For i = 1 To Sheets.Count If Sheets(i).Visible = False Then Sheets(i).Visible = True Next End Sub

الاخ ياسر خليل أبو البراء جزاك الله خير ووفقك ربي

حبا وكرامة تفضلوا : على اعتبار اسم الحقل في جميع الجداول = id هذا الاول Dim dbs As Database Dim Table As TableDef 'On Error Resume Next Set dbs = CurrentDb DoCmd.SetWarnings False For Each Table In dbs.TableDefs If Not Table.Name Like "MSys*" Then DoCmd.RunSQL "ALTER TABLE " & Table.Name & " ALTER COLUMN id INTEGER" End If Next DoCmd.SetWarnings True Set dbs = Nothing MsgBox "تم" وهذا الثاني Dim rs As Recordset Dim strSQL As String Dim strTable As String strSQL = "SELECT MSysObjects.Name " & vbCrLf & _ "FROM MSysObjects " & vbCrLf & _ "WHERE (((MSysObjects.Type)=1) AND ((Left([name],4))<>""msys"")) " & vbCrLf & _ "ORDER BY MSysObjects.Name;" Set rs = CurrentDb.OpenRecordset(strSQL) DoCmd.SetWarnings False Do Until rs.EOF strTable = rs!Name DoCmd.RunSQL "ALTER TABLE " & strTable & " ALTER COLUMN id INTEGER" rs.MoveNext Loop DoCmd.SetWarnings True Set rs = Nothing MsgBox "تم" ولكنك قلت انك شغال على المطلوب وكنت مخلص يعني لاهنت نريد الحل الثالث حتى لو فيه توارد خواطر فلن نعدم فائدة

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

يحب ازالة الحماية عن الورقة اولاً يمنكك استعمال هذا النتسيق cust_form.rar

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

أخي الكريم محمد علي ضع الكود التالي في موديول عادي Sub ShowForm() UserForm1.Show End Sub Function LastRowPic(ColumnNumber As Long) As Long Dim Arr, Pic As Shape, I As Long ReDim Arr(1 To Columns.Count) For Each Pic In ActiveSheet.Shapes With Pic For I = .TopLeftCell.Column To .BottomRightCell.Column Arr(I) = Application.Max(.BottomRightCell.Row, IIf(Arr(I) = "", 0, Arr(I))) Next I End With Next Pic LastRowPic = Arr(ColumnNumber) End Function ثم قم بوضع الكود التالي في حدث الفورم #If VBA7 Then Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long #Else Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long #End If Private Const SW_HIDE As Long = 0 Private Const SW_SHOW As Long = 5 Private LastSelectedFilePath As String Private Sub CommandButton1_Click() Dim strFileName As String strFileName = Application.GetOpenFilename(FileFilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select A File", MultiSelect:=False) If strFileName = "False" Then MsgBox "File Not Selected!" Else Me.Image1.Picture = LoadPicture(strFileName) LastSelectedFilePath = strFileName Me.Repaint End If End Sub Private Sub CommandButton2_Click() Dim R As Range, LR As Long ShowWindow FindWindow("ThunderDFrame", Me.Caption), SW_HIDE If LastRowPic(22) = 0 Then LR = Cells(Rows.Count, "V").End(xlUp).Row + 1 Else LR = LastRowPic(22) Set R = Range("V" & LR) ShowWindow FindWindow("ThunderDFrame", Me.Caption), SW_SHOW With ActiveSheet.Pictures.Insert(LastSelectedFilePath) .ShapeRange.LockAspectRatio = msoFalse .Top = R.Top .Left = R.Left .Width = R.Width .Height = R.Height End With End Sub وإليك الملف المرفق فيه تطبيق للأكواد أرجو ان يكون المطلوب إن شاء الله Load Picture On UserForm Using Dialog & Insert Image To Worksheet YasserKhalil.rar