التقني

وعليكم السلام ورحمة الله وبركاته في وضع تصميم الجدول تضع (القيمة الافتراضية) للحقل السطر التالي : Time() ويجب أن يكون نوع الحقل المراد ظهور الوقت فيه هو من نوع (تاريخ/وقت) بالتوفيق

السلام عليكم ورحمة الله وبركاته،، اللي أعرفه حاليا أنه يمكنك نسخ فورم موجود ليكون عندك آخر وبإسم جديد مثلا: DoCmd.CopyObject "", "Newfrm", acForm, "Oldfrm" حيث Newfrm هو النموذج الجديد و Oldfrm النموذج القديم بالتوفيق

وعليكم السلام ورحمة الله أخي الكريم راجع الرابط التالي: http://www.officena.net/ib/index.php?showtopic=9459&hl وهذا : http://www.officena.net/ib/index.php?showtopic=10791&hl

السلام عليكم ورحمة الله وبركاته،، خطوات تصميم الساعة : 1-أضف الى النموذج مربع نص غير منضم بإسم TimeBox 2-في حدث (الفاصل الزمني لعداد الوقت) للنموذج ضع القيمة 1000 3- في حدث (عند عداد الوقت) للنموذج ضع الكود التالي : [TimeBox] = Time() بذلك سيكون لديك ساعة رقمية يتم تحديثها كل ثانية

السلام عليكم ورحمة الله وبركاته،، أخي العزيز هذه طريقة البحث بأول أحرف الكلمة ... 1- بإفتراض أنه يوجد لديك جدول بإسم tblSer وبه الحقول ( No - Name - Date ) 2- اصنع نموذج جديد بإسم frmSer وضع به مربع نص بإسم txtBox ومربع قائمة بإسم Result 3- من خصائص مربع القائمة وفي تبويبة بيانات ضع في (مصدر الاستعلام) التالي : SELECT tblSer.[No], tblSer.Name, tblSer.Date FROM tblSer WHERE (((tblSer.Name) Like "*" & forms!frmSer!txtbox & "*")); 4- وفي تبويبة تنسيق غير (عدد الأعمدة) الى 3 وهي عدد الحقول التي في الجدول 5- ضع الكود التالي في حدث عند الفتح للنموذج : Application.SetOption "Behavior entering field", 2 6- والكود التالي في حدث عند مفتاح للأعلى لمربع النص txtBox : Private Sub txtBox_KeyUp(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case Is = vbKeySpace Exit Sub Case Else Me.Refresh If Me.Result.ListCount = 0 Then MsgBox "لا توجد كلمة تبدأ بهذه الأحرف", vbOKOnly + vbInformation, "تنبيه" Me.txtBox.Value = "" Me.txtBox.SetFocus End If Me.Result.SetFocus Me.txtBox.SetFocus End Select End Sub

السلام عليكم ورحمة الله وبركاته،، توجد لدي طريقة مفصلة (خطوة خطوة )لعمل بحث بالحرف الأولى من الكلمة . هل تريدها ؟

:) لا انا أبي أعطيك الرابط اللي يفيدك في العلاقات : وهو مقدم من أخينا (الحج) محمد طاهر ... http://www.officena.net/ib/index.php?act=ST&f=17&t=307

السلام عليكم تأكد أخي من اعدادت اللغة لديك توجه الى : 1- ابدأ ثم لوحة التحكم 2- افتح (الخيارات الاقايمية وخيارات اللغة) 3- في تبويبة (الخيارات الاقليمية) تأكد أن اللغة المستخدمة هي العريبة 4- في تبويبة (اللغات) في خانة (اللغة المستخدمة في القوائم ومربعات الحوار) هي العربية

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

حياك الله أخي الكريم قم بإنشاء مربع نص في تذييل النموذج ومصدر عنصر التحكم به هو التالي : =Sum([A]) بإفتراض أن A هو الحقل الذي فيه 300 سجل بالتوفيق

السلام عليكم ورحمة الله وبركاته،، لطباعة البيانات الحالية ( التي تظهر أمامك على النموذج ) اتبع الخطوات التالية 1- انشاء استعلام qLetr مستمد من جدول tblLtr 2-ضع في معايير الاستعلام للحقل ID الجملة التالية : Like [forms]![tblLtr]![ID] & "*" حيث: ID هو رقم الرسالة tblLtrهو اسم الجدول 3- انشئ تقرير rLtr يستند الى الاستعلام qLetr 3- أنشئ زر في النموذج اسمه VCurnt وضع في حدث عند الضغط على الزر الكود التالي : On Error GoTo Err_VCurnt_Click Me.Refresh Dim stDocName As String stDocName = "rLtr" DoCmd.OpenReport stDocName, acPreview Exit_VCurnt_Click: Exit Sub Err_VCurnt_Click: MsgBox Err.Description Resume Exit_VCurnt_Click End Sub عند الضغط على الزر سوف يتم اظهار التقرير وفيه بيانات الحقول التي في النموذج التي أمامك بالتوفيق

السلام عليكم ما المشكلة أخي ؟ فقط ضع في حدث الحالي للنموذج الكود التالي : total.Value = C1.Value + C2.Value بالتوفيق

السلام عليكم ورحمة الله توجه الى : أدوات ثم ماكرو ثم أمان واختر ( منخفض)

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

السلام عليكم ورحمة الله أرفق مثال على ما تريد

حياك الله أخي الكريم جرب هذا الكود : Between [أدخل تاريخ البدء] And [أدخل تاريخ الانتهاء] بالتوفيق

أو من خلال رابط البحث هذا : http://www.officena.net/ib/index.php?act=S...te=%D4%C8%DF%C9

وعليكم السلام ورحمة الله وبركاته اطلع أخي الكريم على الرابط التالي : http://www.officena.net/ib/index.php?showtopic=6027&hl

وعليكم السلام ورحمة الله وبركاته خطوات التحديث كل 30 ثانية : 1- ضع النموذج المراد تحديثه في وضع التصميم . 2- من خصائص هذا النموذج اختر التبويبة (حدث) . 3- ضع القيمة 30000 عند بند ( الفاصل الزمني لعداد الوقت) . 4- ضع الكود Me.Refresh في حدث (عند عداد الوقت) للنموذج . عند تشغيل النموذج سيتم عمل تحديث للنموذج كل 30 ثانية . ملاحظة : 30000 توازي 30 ثانية بالتوفيق

وعليكم السلام ورحمة الله وبركاته،، عزيزي أجمل أحساس يمكنك عمل ذلك من خلال وضع الشرط التالي في خانة المعايير لحقل تاريخ الصيانة السابقة : Between [01/01/2001] and [31/12/2001] بالتوفيق

السلام عليكم ورحمة الله وبركاته،، اضافة الى ما ذكره أخي نضال اليك هذا المثال والذي قدمه أحد الأخوة ( لا يحضرني اسمه ) فجزاه الله عنا كل خير Album.rar

السلام عليكم ورحمة الله اللي فهمته من خلال الاطلاع على مثال الأخ أنه يريد فتح النموذج مع عدم وجود أي بيانات في الحقول (حالة الادخال الجديد ) فإن كان كذلك فقم بالخطوات التالية : 1- في عرض التصميم للنموذج . 2- توجه الى خصائص النموذج ثم الى تبويبة بيانات . 3- من بند (إدخال بيانات ) اختر (نعم) . هكذا سيتم عرض النموذج فارغا و... بإنتظار ادخال جديد . ومرفق مثال الأخjaffjaff jaffjaff.zip

بالنسبة للسؤال الثاني جرب هذا الكود وضعه في حدث بعد التحديث للحقل المطلوب If FieldName.Value = "انذار نهائي" Then MsgBox "سبق ادخال أنذار نهائي للموظف المذكور ", vbOKOnly, "رسالة تنبيه " End If

السلام عليكم بالنسبة لتحديث الحقل ضع هذا الكود في حدث قبل التحديث للحقل : Me.Refresh

بالنسبة لدمج النماذج داخل النموذج الرئيسي : بفرض أنه يوجد لديك نماذج ( الطلاب - المعلمين - المدرسة) قم بالتالي ... 1- في عرض التصميم للنموذج الرئيسي اختر أداة (نموذج فرعي/تقرير فرعي) . 2- بالسحب والافلات للفأرة حدد أبعاد النموذج الفرعي . 3-بعد الافلات سيظهر معالج انشاء النموذج الفرعي . 4- اختر من المعالج (استخدام نموذج موجود) . 5- اختر النموذج الموجود مسبقا واضغط انهاء . بالتوفيق