أحمد خلف

اضغط علي مفتاح الشفت مع الأستمرار عند فتح الملف. وشكرا.

اخي العزيز اضف الكود التالي قبل end if EmployeesName.setfocus

اكتب التالي في حدث بعد التحديث للحقل: if len(EmployeesName)>5 then msgbox "لايمكن ادخال اكثر من 5 حروف" EmployeesName.value="" end if

السلام عليكم ورحمة الله وبركاتة كل عام وانتم بخير اخي محمد عبدون في طريقة عرض التصميم اختار رقم ومن الخصائص الظاهرة بالأسفل اختار النوع مزدوج لحقل الرقم والله الموفق.

السلام عليكم جميعا اخي رعد من المحتمل انني لم افهم سؤالك جيدا لكن يمكنك اضافة And او Or الي قاعدة If الشرطية مثل =IF(AND(E13=1;F13="ok");"Hi";No) والله الوفق.

السلام عليكم ورحمة الله. تفضل اخي. والله الموفق. AK_db1.rar

السلام عليكم ورحمة الله وبركاته. تقبل الله منا ومنكم. تفضل اخي. تحكم2.rar

السلام عليكم ورحمة الله وبركاته. كل عام وانتم بخير. تفضل اخي علي هذا نموذج للتفقيط للعملات وقد قمت بتعديله حتي يتساير مع تفقيط الدرجات وبه تفقيط بالعربي واخر بالأنجليزي. والله الموفق. حل تفقيط الدرجات نهائى.rar

الحل هو وضع شرط لذلك.

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

وعليكم السلام ورحمة الله وبركاته بلغنا الله واياكم اخي ايمن بارك الله فيك. قم بكتابة التالي في مربع النص الخاص بالأجمالي: =Sum([Amount]) والله الموفق.

بصراحة الله ينور.

وعليكم السلام ورحمة الله وبركاته برجاء تحويل المرفق الي 2003 حتي يستطيع الأعضاء الرد.

وعليكم السلام ورحمة الله وبركاتة اخي لا يمكن استخدام Me الا في الاكواد التي يتم تنفيذها في نفس النموذج. والله الموفق.

بنفس الطريقة اخي. فيكون كود تحديث مربع الأختيار If CH1.Value = -1 Then [Forms]![idarat]![md].Value = Sc_Name.Value [Forms]![idarat]![dr].Value = Mudeer.Value Else [Forms]![idarat]![md].Value = "" [Forms]![idarat]![dr].Value = "" End If والله الموفق.

بارك الله فيك اخي.

وعليكم السلام ورحمة الله وبركاته تفضل اخي. تعبئة مربع النص.rar

بارك الله فيك اخي محمد

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

يا اخي انت سألت واجبت علي سؤالك

ممكن في اي مكان بالنموذج شاهد الرابط التالي http://www.officena.net/ib/index.php?showtopic=39192

ممكن وذلك عن طريق استخدام استعلام او معادلة dlookup وذلك للبحث عما اذا كان رقم الهارد موجود بالجدول ام لا.

اخي علي بارك الله فيك علي المحول. وبالنسبة للخطأ جرب الكود التالي ل get file name Sub getFileName() On Error Resume Next ' Displays the Office File Open dialog to choose a file name ' for the current employee record. If the user selects a file ' display it in the image control. Dim fileName As String Dim result As Integer With Application.FileDialog(msoFileDialogFilePicker) .Title = "Select Employee Picture" '.Filters.Add "All Files", "*.*" '.Filters.Add "JPEGs", "*.jpg" '.Filters.Add "Bitmaps", "*.bmp" '.FilterIndex = 0 .AllowMultiSelect = False .InitialFileName = CurrentProject.path result = .Show If (result <> 0) Then fileName = Trim(.SelectedItems.Item(1)) Me![ImagePath].Visible = True Me![ImagePath].SetFocus Me![ImagePath].Text = fileName Me![FirstName].SetFocus Me![ImagePath].Visible = False End If End With End Sub

السلام عليكم اخي مرفقك ليس 2003 عموما هذا حل اخر. والله الموفق. 1111_6.rar