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

مشاركة مع اساتذي الاعزاء تفضل هذه المحاولة ارجو ان تكون موفقة Copy2.rar

السلام عليكم استاذ خالد عبد الغفار تفضل التعديل ارجو ان يكون موفق ملاحظة : المشكلة ليس بالمدارس التي يوجد بها كل الحالات وانما بالعدد اذا كان صفر db3-4.rar

فى الوفت الراهن لا استطيع العمل على اكسس والتجربة انا كتبت فى البوست السابق الفكرة والان قمت بتحويل الفكرة الى اكواد ولكن لا اعرف هل هذا منطقى ام لا Dim RS As DAO.Recordset Dim crntRS As Integer Dim nextRS As Integer Set RS = CurrentDb.OpenRecordset("tblName") If Not RS.EOF Then RS.MoveFirst Do Until RS.EOF crntRS = RS![IDNo] RS.MoveNext nextRS = RS![IDNo] If nextRS > crntRS + 2 Then RS.MovePrevious RS.Edit RS![IDNo] = crntRS + 1 RS.Update RS.MoveFirst Else RS.MoveNext End If Loop MsgBox "Done!", vbInformation, "Completed"

جرب هذا التعديل وارجو ان يكون طلبك وعذرا لسوء فهمي اخي الحبيب db3-3.rar

تفضل click.xlsm

ربما حان الوقت لإستخدام العتاد الثقيل RecordSet

جرب Odb_Emp.accdb

وعليكم السلام 🙂 حيا الله اخوي ابوخليل 🙂 في الواقع انت تريد اول رقم فقط ، ومنه تقوم بتعديل باقي الارقام ، صح ؟ الاستعلام qry_Missing_Numbers يعطيك الارقام المفقودة ، هذه خطوة اولى 🙂 جعفر 1380.Missing_Copy (1).accdb.zip

هذه تجربة click.xlsm

جرب هذا التعديل اضف الشفرة التالية في اي مكان داخل محرر الأكواد Private Function GTranslate(strInput As String, strInput2 As String, strInput3 As String) As String Dim strURL As String, objHTTP As Object, objHTML As Object, objDivs As Object, objDiv As Variant strURL = "https://translate.google.com/m?hl=" & strInput2 & _ "&sl=" & strInput2 & _ "&tl=" & strInput3 & _ "&ie=UTF-8&prev=_m&q=" & strInput ' سابقا 'Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") Set objHTTP = CreateObject("Msxml2.XMLHTTP.6.0") objHTTP.Open "GET", strURL, False objHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko" objHTTP.Send "" Set objHTML = CreateObject("htmlfile") With objHTML .Open .Write objHTTP.responseText .Close End With Set objDivs = objHTML.getElementsByTagName("div") For Each objDiv In objDivs Debug.Print objDiv.innerText If objDiv.className = "result-container" Then GTranslate = objDiv.innerText: Exit For End If Next objDiv Set objHTML = Nothing: Set objHTTP = Nothing End Function ضع في حدث الأزرار عند النقر الكود التالي MsgBox GTranslate("كرة", "en", "ar") في حال استمرار المشكلة يرجى ضبط اعدادات اللغة الاقليمة لديك

اجعلها نعم كما في الصورة

وعليكم السلام-جرب هذا الكود Private Sub Worksheet_Activate() With Cells.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = RGB(0, 192, 192) .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub Book2.xlsm

ربما تقصد ما في هذا المرفق طباعة.xlsm

عليكم السلام 🙂 اسمحوا لي ان اعطي ملاحظاتي : كود اخوي حلبي يحتاج (" " مسافة) قبل And ، لأن لو شفنا النتيجة تحت ، نشوف ان كلمة And ملاصقة للرقم 1 : . واما طريقتي ، فهي تفكيك المعيار الى اجزاء ، واللي سهل عملها : Private Sub BtnRequired_Click() Dim myWhere As String myWhere = "[LetterType]= " & [txtLetterType] myWhere = myWhere & " And" myWhere = myWhere & " [LetterID] LIKE '" & Format([txtDate], "yyyy\*\'") Debug.Print myWhere Me.txtResultRequired = DCount("*", "[tblLetters]", myWhere) End Sub . ولكي يعمل الكود ، يجب عمل مسافة قبل كل امر: . جعفر

السلام عليكم و رحمة الله تعالى و بركاته دكتورنا كيف حالك. إن شاء الله تكون بخير هذا مثال لإظهار رسالة في شريط المهام دون الحاجة لأي برنامج آخر بالأكسس فقط عرض رسالة على شريط المهام.accdb

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

السلام عليكم تفضل اخي الكريم طلبك رسالة بعد 3 ثوان تختفي يمكنك كذلك تغيير عدد الثواني تحياتي 222.rar

اتفضل اليك هذا الكود If DCount("[id]", "table1", "[id]=" & Me.Text1) > 0 Then If MsgBox("هل تريد ان تحذف سجل رقم ( " & Me.Text1 & " ) فعلا", vbYesNo + vbMsgBoxRight, "") = vbYes Then Dim sql As String sql = "DELETE Table1.ID, Table1.NAME, Table1.TEL, Table1.DATE FROM Table1 WHERE (((Table1.ID)=[Forms]![Form1]![Text1]));" DoCmd.SetWarnings False DoCmd.RunSQL (sql) DoCmd.SetWarnings True MsgBox "تم حذف السجل المرقم ( " & Me.Text1 & " ) بنجاح" Me.Text1 = "" End If ' msgbox Else MsgBox "ليس لدينا اي سجل برقم ( " & Me.Text1 & " ) في جدولنا" End If ' dcount وهذا قاعدة بايناتك بعد اضافة الكود الاعلاه ID.rar

السلام عليكم استخراج الشهادات مع اضافة صور للطلبة ============================= الصور في فولدر photo في نفس فولدر ملف الاكسل وتسمى بحسب تسلسل الطلبة ويمكنك تعيين العمود الذي توضع فيه الصورة في الجزئية الجديدة التالية من الكود ' رقم عمود وضع صورة الطالب Const STPic As Integer = 15 ============================= ويمكنك تغيير اعدادات الكود بشكل عام من هنا '*********************************************** '*********************************************** ' اسم ورقة الشهادات Const ShName As String = "الشهادات" ' رقم اول صف للشهادة Const FirstRow As Integer = 12 ' عدد صفوف الشهادة Const CountRow As Integer = 12 'عدد اعمدة الشهادة التي تريد اظهارها في الطباعة Const CountColumn As Integer = 15 ' خلية موقع الطالب لمعادلات الشهادة Const Range_Index As String = "A12" ' رقم عمود وضع صورة الطالب Const STPic As Integer = 15 '===================================== ' اسم ورقة البيانات Const Sh As String = "بيانات اساسية" ' نطاق ناجح دور ثاني في ورقة البيانات Const MyND As String = "BK10:BK1000" ' نطاق الاسماء في ورقة البيانات Const MyNSearch As String = "B10:B1000" '===================================== ' خلية عدد كل المتقدمين Const CountAll As String = "C3" ' خلية عدد الناجحين Const CountNA As String = "C4" ' كلمة البحث عن الناجحين Const NA_G As String = "ناجح" ' خلية عدد دور ثاني Const CountDT As String = "C5" ' كلمة البحث عن دور ثاني Const DT_G As String = "دور تان" '************************************************ '************************************************ شهادات جديد مع اضافة صور للطلبة.rar

اذا كانت لدينا قاعدة بيانات A ( بها فورم لنسمة Form_ِِA) وقاعدة بيانات B (بها فورم Form_B) اذا كانت قاعدة البيانات B مقفلة (بكلمة مرور -مثل -(123) اريد مثلا عندما انا في فورم Form_A في قاعدة البيانات A ان ادخل الى فورم Form_B في قاعدة البيانات B , اي اتجاوز كلمة المرور 123 وشكرا ارجو ان يكون السوال واضح............