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

السلام عليكم كل شيء عندك تمام إلا جدول Teacher غير حقل Email إلى مطلوب من نعم إلى لا فقط راح تضبط معك بإذن الله تعالى .

وعليكم السلام-بعد اذن استاذى محمد حسن ولإثراء الموضوع -تفضل السماح1.xlsx

وعليكم السلام ,يمكنك هذا بالدالة المعرفة 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

وعليكم السلام-لا يمكن عمل أكثر من ذلك 1برنامج.xlsm

بعد اذن اخي الرائد هذا الماكرو Option Explicit Sub Join_data() If ActiveSheet.Name <> "Salim" Then Exit Sub Dim i%, Dic As Object, k, my_key Set Dic = CreateObject("Scripting.Dictionary") Cells(3, "H").CurrentRegion.Clear i = 3 Do Until Cells(i, "E") = vbNullString k = Cells(i, "F") If Not Dic.Exists(Cells(i, "E").Value) Then Dic(Cells(i, "E").Value) = k Else Dic(Cells(i, "E").Value) = Dic(Cells(i, "E").Value) & "," & k End If i = i + 1 Loop Cells(3, "H").Resize(Dic.Count) = Application.Transpose(Dic.keys) i = 3 For Each my_key In Dic.keys Cells(i, "I") = Dic(my_key) & "." i = i + 1 Next my_key Set Dic = Nothing With Cells(3, "H").CurrentRegion .Interior.ColorIndex = 6 .Borders.LineStyle = 1 .InsertIndent 1 End With End Sub الملف للمعاينة مرفق talabia_SL.xlsm

وعليكم السلام-تم تعديل الأكواد لتصبح هكذا Private Sub CommandButton1_Click() Dim x As Integer x = 0 Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" End Sub Private Sub TextBox3_Change() TextBox4.Text = ((Val(Me.TextBox1.Value) / 100) * Val(Me.TextBox2.Value) * 1000) * Val(Me.TextBox3.Value) End Sub ttttt.xlsm

ومشاركة مع اخي واستاذي صالح غير في كود الاستيراد الموجود في النموذج الموجود في الصورة واستبدل كود استيرا بيانات المعلمين بالكود التالي Dim ImportFileName As String ImportFileName = Me.txtPath CurrentDb.Execute ("Delete * From Teacher") CurrentDb.Execute ("Delete * From Temp4") DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Temp4", ImportFileName, False DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Teacher ( Teacher, Email ) " & _ " SELECT Temp4.f20, Temp4.f7 " & _ " FROM Temp4 " & _ " WHERE (((Temp4.f20)<>""الإسم""))" DoCmd.SetWarnings True MsgBox "تم استيراد أسماء المعلمين بنجاح" End Sub

عندك مجموعة حلول منها : الحل الأول : تعمل استعلام حذف للجدول وتحدد معييار لحقل Teacher = "الإسم" وهذا تضعه في جملة الاستعلام DELETE Teacher.Teacher FROM Teacher WHERE (((Teacher.Teacher)="الإسم")); تفضل بعطيك الحل الثاني إن شاء الله تعالى الحل الثاني : بالكود تفضل : Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("Teacher") rst.MoveFirst rst.Delete rst.Close MsgBox "تم الغاء السجل الأول من الجدول", vbOKOnly

وايضا ممكن ترك الجدول بدون اي تعديلات وتعديل بسيط على الكود Dim strSQL As String, X As Integer X = MsgBox("المعلم غير موجود .. هل ترغب في إضافته؟", vbYesNo + vbDefaultButton1) If X = vbYes Then strSQL = "Insert Into Teacher (Teacher,Email) values ('" & NewData & "','الايميل مطلوب')" CurrentDb.Execute strSQL Response = acDataErrAdded Else Response = acDataErrContinue End If او اي عبارة تبين ان هذا المعلم لم يتم تسجيل ايميله

شكرا لك أخي @kha9009lid ولك أحلى 🌹

حل رائع ومتنوع

Nouveau Microsoft Access قاعدة بيانات.accdb

@أحمد الفلاحجى @ابوآمنة @kha9009lid تفاعلكم في الردود يخليني ادور مشكلة في احد البرامج واطرحها هنا علشان تثرونا بما لديكم .. 😉😉😉

انت الاروع اخي صالح بارك الله فيك ولك

وتستاهل احلى عروسه قصدى احلى تفاحه اخى صالح جزاك الله اخى واستاذى خالد @kha9009lid بارك الله فيكم اخوانى واساتذتى

من باب تعدد الحلول في طريقة بدون الحاجة الى تغيير قيمة الحقل من مطلوب الى غير مطلوب عن طريق وضع القيمة الافتراضية للحقل الايميل =""

الحمد لله أنه قال: تفاحة ما قال عروسه لأنا مراقبين و من الخائفيين 🤣 يا ساتر 😁

ههههههههه الحمد لله اخى صالح @ابوآمنة اخدت تفاحه مش عروسه 😀 بالتوفيق اخى فايز

اتفضل اليك التعديل DoCmd.OutputTo acOutputReport, "احتياج المدرسة من المواد", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & "احتياج المدرسة من المواد" & Format(Now(), "mmmyyyy") & ".pdf" , true

وعليكم السلام-فقط عليك بتعديل تنسيق الخلايا وجعلها 0 فتفضل الملف يمكنك التعديل كما تشاء قومى1.xlsx

أبسط طريقة لذلك هو تغيير خاصية الفورم RightToLeft وجعلها True بدلا من False كما بالصورة

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

وعليكم السلام-الطلب ليس بسيط كما تدعى وان كان بسيطاً لقمت انت بعمله بمفردك وعلى الرغم ان هذا يعتبر مخالفة لقوانين وتعليمات المنتدى من رفع ملف مشروح -فتفضل هذا الملف سيفيدك كثيرا اداره المخازن.xlsm

طبعا يمكن عمل هذا من خلال هذه المعادلة =VLOOKUP($A2,$M$7:$O$16,MATCH(B$1,$M$6:$O$6,0),0) معادلة vlookup1.xls

لا شكر على واجب أخي. بارك الله فيك و جزاك الله خيرا اذا اكتفيت بالإجابة .حدد كأفضل إجابة حتى يتم غلق الموضوع

نعم . عند توصيل الطابعة . تطبع الكل مرة واجدة . مرتبة ليس مثل الطابعة الوهمية

تفضل اربع شهادات في كل صفحة دالة لوك اب تجربةمع ادمودو2.xlsm

استاذي محمد حل رائع معالجة البيانات أثناء استدعاءها في البرنامج شكراً لك استاذي هديتي لك 🍦 😁

شكر الله لك أستاذ خالد حلول رائعة .. مبدع ..

تفضل EXTRA_FOUND (2).xlsm

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

احسن الله اليك اخى فايز جزاه الله خيرا اخى واستاذى شيفان true = نعم = -1 false = لا = 0

اللهم آمين وعافانا الله واياكم وجميع المسلمين ونسال الله الهدايه لنا ولجميع البشر

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

السلام عليكم ورحمة الله ضع هذا الكود فى حدث ThisWorkbook Private Sub Workbook_SheetActivate(ByVal Sh As Object) For i = 1 To Sheets.Count Sheets(i).Range("A1").Value = i Next End Sub

جزاكم الله خيرا اخوانى واساتذتى محمد @Barna و @kanory تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

شكرا جدا على تعبت حضرتك ... بارك الله فيك

أ.ابو عبد الرحمن العراقي فى المرفق يوجد إستعلام بإسم : IBONE به ما تريد إن شاء الله برجاء التجربة والإفاده http://www.mediafire.com/file/kjaze05tixr0sli/123.zip/file بالتوفيق

Database1071.accdb

ربنا ما يحرمنا من كرمك استاذ حسين

مازالت المشكلة لم تحل شكرا استاذ محمد .

اخى @فايز.. ع ما اعتقد لان كانت العناصر منضمه لقد جعلت الحقول غير منضمه جرب الان ووافنى بالنتيجه وان شاء الله احد الاخوه او اساتذتنا الافاضل يشاركنا بالتوفيق اخى Aa1_Library.rar

بعد اذن الأستاذ الرائد ولإثراء الموضوع تفضل Camtend(1).xlsm

السلام عليكم إذا كنت تقصد بالتنسيق: "تأطير/إلغاء تأطير" الخلايا" فالحل في الملف المرفق... بن علية حاجي ورقة عمل Microsoft Excel جديد __.xlsx

جزاك الله خير اخي امير ورحم الله والديكم

الف رحمة على والديك استاذ @kha9009lid

يقولون لايفتى ومال في المدينة ما دام الاستاذ @jjafferr دخل على الموضوع فيجب علينا ان نصمت فكرتي عن الموضوع تتلخص بالتالي عندما سألت السؤال في مشاركتك الأولى كان يخطر في بالي نفس الحل الذي قدمه لك الاخ @AlwaZeeR وهو يعتمد نفس المبدأ الوقوف على كل سجل بالنموذج وبما ان هذه الطريقة لا تريدها دعنا نترك التعامل مع الحقل غير المنظم الموجود بالنموذج ونقوم ونتعامل معه مباشرة عن طريق الاستعلام لاستخلاص نفس النتيجة لذلك سنقوم بعمل جدول مؤقت بأسم Table1_Temp ونعمل زر أمر بالنموذج ونضع خلفه هذا الكود Private Sub cmd_Click() DoCmd.SetWarnings False DoCmd.RunSQL "DELETE Table1_Temp.* " & vbCrLf & _ "FROM Table1_Temp;" DoCmd.RunSQL "INSERT INTO Table1_Temp ( name11, frequency ) " & _ " SELECT Table1.name11, Count(Table1.ID) AS CountfromID " & _ " FROM Table1 LEFT JOIN Table1_Temp ON Table1.ID = Table1_Temp.ID " & _ " GROUP BY Table1.name11;" DoCmd.RunSQL "UPDATE Table1 INNER JOIN Table1_Temp ON Table1.name11" & _ "= Table1_Temp.name11 SET Table1.frequency = [Table1_Temp]![frequency];" Me.Refresh End Sub ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم Database88-906.rar

السلام عليكم ورحمة الله أخي الكريم، يمكن القيام بذلك باستعمال خاصية الفرز بالطريقة التالية: 1- نقوم بترقيم الأعمدة من A إلى D في السطر الأول (فارغا) ترتيبا تنازليا من 5 إلى 1 2- نحدد الأعمدة من A إلى D 3- نختار من قائمة الأوامر "DATA" أي "بيانات" ثم نختار الخاصية "فرز" "SORT" حسب السطر الأول ونختار في "خصائص" أي "Options" الخاصية من اليمين إلى اليسار Sort right to left أو من اليسار إلى اليمين Sort left to right (حسب طريقة عرض الورقة في الإكسيل)... ثم نوافق على الاختيارات..... أتمنى أن يكون الشرح مفهوما... أخوك بن علية

السلام عليكم ورحمة الله وبركاتة انا اسف ضغط الملف على 3 بارت واسف للازعاج بس حقيقى محتاجة جدااااااا والف شكر على الاهتمام والمساعدة دة بارت 1 Cheques Posting -2010.part1.rar