بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
11,720 -
تاريخ الانضمام
-
Days Won
197
Community Answers
-
ابوخليل's post in نقل التركيز الي مربع نص عن طريق زر في لوحة المفاتيح was marked as the answer
استخدم زر المسافة
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Me.text1.SetFocus End If End Sub example.rar
-
ابوخليل's post in المجموع في النموذج الجدولي لا يعمل sum was marked as the answer
وعليكم السلام
الخلل ان الحقل m غير منضم لذا لايمكنك اجراء العمليات عليه داخل النموذج او التقرير
تم التعديل بتغيير مصدر النموذج
test_elec2.rar
-
ابوخليل's post in كيف يتم ترميز سجلات ثلاث جداول مرتبطة؟ _ ترقيم مخصص was marked as the answer
اذا كان فهمي صحيح
هذا كود يقوم بالمهمة سحبته لك من مشاركة لمشرفنا القدير الاستاذ ابو عمر
item_No = ([Num_itemSub] * 100) + DCount("item_No", "[Detls_Items]", "Num_itemSub=" & [Num_itemSub]) + 1 وهذا مثالك بعد تحويله الى mdb
db1.rar
-
ابوخليل's post in مشكلة حساب الفترة الزمنية بين وقتين access was marked as the answer
الامر يسير
1- نزيل الكود الخاص بادراج التاريخ التلقائي
2- نغير في تنسيق حقل التاريخ في النموذج الى shortDate
تم التعديل
time3.rar
-
ابوخليل's post in حصر عدد الأيام بين تاريخين في حقلين was marked as the answer
بعد اذن استاذنا وحبيبنا عبدالرحمن
اخي الكريم هذه محاولة لتحقيق طلبك
تم حصر تاريخ البداية والنهاية في الحقلين
kUp.rar
-
ابوخليل's post in تحديد عمله التفقيط في عمليه التفقيط was marked as the answer
تفضل تم التعديل
db4.rar
-
ابوخليل's post in اظهار صورة دلالة او عبارة اذا لم يكن للطالب صورة في الملف was marked as the answer
وعليكم السلام ابا محمد تفضل :
استبد الكود الخاص بجلب الصورة بهذا
On Error GoTo err_Form_Current Me.Student_Img.Picture = Application.CurrentProject.Path & "\Imags\" & Me.id & ".jpg" Exit Sub err_Form_Current: If Err.Number = 2220 Then Me.Student_Img.Picture = Application.CurrentProject.Path & "\Imags\NoPicture.jpg" End If -
ابوخليل's post in حساب العمر باليوم والشهر والسنة في تاريخ محدد was marked as the answer
تم تطبيق الكود في حدث بعد التحديث لحقل تاريخ الميلاد
يعني بعد ادخال تاريخ الميلاد تظهر النتيجة
وهو مكانه الصحيح
ولوجود بيانات سابقة
يمكن جعل الحدث في حدث الحالي للنموذج للتطبيق على البيانات المدخلة سابقا
حساب العمر يوم شهر سنة2.rar
-
ابوخليل's post in اظهار قيمة خلية متغيرة في واجهة النموذج من جدول القيود was marked as the answer
اكتب في مصدر عنصر تحكم الحقل السطر التالي :
=DLast("FldName";"table1") اظهار قيمة خلية .rar
-
ابوخليل's post in عمل معادلة شرائح داخل ريبورت was marked as the answer
شكرا استاذ عبد الفتاح على مرورك
ومن اجل هذا قمت بالتصحيح
الاستاذ خالد :
تم تعديل المثال حسب طلبك الثاني
REPORT3.rar
-
ابوخليل's post in تحميل ملف أكسيل إلى قاعدة بيانات أكسيس was marked as the answer
تفضل
وجدت لك مثالا كما تحب
استيراد بيانات.rar
-
ابوخليل's post in فورم : طلب وضع كود لادراج صورة فى الفورم was marked as the answer
استبدل الكود بهذا
On Error GoTo Errr Dim strFldr As String strFldr = CurrentProject.Path & "\photo\" & Me.id & ".jpg" Kill strFldr Me.Requery Errr: MsgBox "تم حذف الصورة" -
ابوخليل's post in استفسار اعن كود منع تغير الاسم او امتداد البرنامج was marked as the answer
Private Sub Form_Open(Cancel As Integer) If CurrentProject.Name = "myName.mdb" Then Else DoCmd.Quit End If End Sub -
ابوخليل's post in استفسار _ عن ظهور رقم بدلا من قيمه was marked as the answer
تفضل مثالك معدلا
student2.rar
-
ابوخليل's post in طلب التعديل على صلاحيات استخدام الأزرار داخل النماذج was marked as the answer
تفضل :
تم تنفيذ التصور
officenaUP.rar
-
ابوخليل's post in اضافة قيمة لعدة سجلات was marked as the answer
لتطبيق شرط ما داخل النموذج المستمر لسجل معين يجب :
1- ان يكون الحدث منبثق من السجل نفسه
2- او يكون عليه التركيز عند الحدث
في مثالك الذي تم التعديل عليه اكتب رقما داخل حقل dh
ثم انقرعلى خانة الاختيار
ان لم يكن هو ما تبحث عنه يجب زيادة الشرح
HDo6.rar
-
ابوخليل's post in كيفية تحديث بيانات بعض الحقول من جدول رئيسي لجدول فرعي was marked as the answer
تفضل
UpdateField2.rar
-
ابوخليل's post in مشكلة فى دخول عن طريق نموذج صلاحيات مستخدمين was marked as the answer
تفضل
تم التعديل
officena2.rar
-
ابوخليل's post in اريد كود عدم تكرار رقم في حقل علما انه ليس ترقيم تلقائي was marked as the answer
الاسماء عادة تتشابه خلاف للسجل المدني او الرقم القومي
الحل هو الكود السابق مع تغير طفيف ليتناسب مع الحقول النصية
اكتب الكود التالي في حدث بعد التحديث لحقل الاسم
if DCount("*","tbl1","txtname='" & txtname & "'")>0 then msgbox"الاسم موجود" undo exit sub end if باعتبار txtname هو حقل الاسم
-
ابوخليل's post in عرض عمود افقيا فى التقرير was marked as the answer
انظر التعديل
ان كان يوافق طلبك فأكمل على النسق نفسه
student8.rar
-
ابوخليل's post in استخدام داله if فى الاكسس باكثر من 3 شروط was marked as the answer
يبدو ان الامور تحسنت
هذا هو التعديل
studEhsa.rar
-
ابوخليل's post in أريد مساعدتكم في إظهار كلمة نعم أو لا was marked as the answer
تفضل التعديل
تم توظيف الأداة if في حدث تنسيق التفصيل
Database11.rar
-
ابوخليل's post in اظهار مربع نص بشرط was marked as the answer
اولا : في تنسيق خصائص الحقل ff اجعل القيمة: مرئي=لا
ثم الصق الجملة التالية في حدث بعد التحديث للحقل tt
If tt.Value = "شيك" Or tt.Value = "مرتجع" Then ff.Visible = True Else ff.Visible = False End If -
ابوخليل's post in عاوز كود يجعل النموذج شكلى او مشروط was marked as the answer
نعم يمكن
اضف هذا السطر
DoCmd.Save acForm, "frm1"
لتصبح الجملة كاملة :
On Error Resume Next DoCmd.OpenForm "frm1", acDesign, , , acFormPropertySettings, acHidden Forms!frm1.PopUp = True Forms!frm1.Modal = True DoCmd.Save acForm, "frm1" DoCmd.OpenForm "frm1", acNormal