فيصل الحربي

بسم الله الرحمن الرحيم وهذه الإصدارة التي تعمل على جميع الإصدارات للأكسس حتى أكسس 2003 accesspv.zip

بارك الله فيك أخي فهد وجزاك الله خيرا و مبارك عليك الشهر .

بسم الله الرحمن الرحيم عملت إختباراتي على كمبيوتر سرعة واحد جيجا و 256 ميجا الرام ( لاب توب ) وسرعة الكمبيوتر تؤثر على سرعة تنفيذ العمليات .

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته بالنسبة لطريقة إحتساب السرعة في التنفيذ فقد استخدمت الطريقة التالية : الكود التالي يوضع في السطر الاول من حدث النقر على زر امر التنفيذ dim ts,tf,tr ts=time() ثم يوضع الكود التالي قبل كلمة sub tf=time() tr=tf-ts msgbox tr فقط

السلام عليكم ورحمة الله وبركاته نعم ، الطريقة سريعة جدا وتعتبر من أسرع الطرق التي شاهدناها قبل أن ارفع اصبعي من على زر الادخال تكون تمت إضافة الــ 300 سجل ... (y) :d ماقصرتو أثنينكم ( شاكر الزين و احمد الحربي ) تحياتي

بسم الله الرحمن الرحيم احمد الحربي : يعني طريقة ADO استغرقت 1.157 ثانية كما ذكرت في ردك انظر الى ردي على شاكر يعني طريقتك وطريقة شاكر استغرقت نفس الوقت ( 1.157 ) ثانية شكرا مجددا لإهتمامكم بالموضوع . تحياتي

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

بسم الله الرحمن الرحيم نعم فالطريقة الجديده أفضل من السابقتين حيث سجلت 1.157 ثانية لإنشاء 300 سجل مع التحديث أي بفارق زمني قدره 2.5 ثانيه . شكرا مرة أخرى يا شاكر الزين . (y) احمد الحربي : نظريا كما اخبرت صحيح ولكن لم أجرب الطريقه وذلك لضيق الوقت . مشكور و ماقصرت . :b1:

بسم الله الرحمن الرحيم لقد أجريت إختبارا على كلا الطريقتين لإدراج 300 سجل متطابقه فوجدت ان طريقة الخبير ( شاكر الزين ) أسرع طريقتي إستغرقت ( 4.629629629 ) ثانية طريقة الخبير ( شاكر الزين ) إستغرقت ( 3.472222222 ) ثانية أي بفارق ( 1.157407407 ) ثانيه لصالح الخبير ( شاكر الزين ) . مرة أخرى أشكرك كثيرا يا خبيرنا . تحياتي

بسم الله الرحمن الرحيم السلام عليكم أشكرك كثيرا يا شاكر على ماقمت به لقد نفذت العمليه بطريقة مشابهه قبل ان اقرأ ردك هنا طريقتك كالتالي DoCmd.GoToRecord , , acFirst Dim i For i = c To d DoCmd.SetWarnings False DoCmd.GoToRecord , , acNewRec If i < 10 Then Me![رقم الصنف] = Me![sh] & "-" & 0 & 0 & i Me![اسم الصنف ] = Me![a] Me![مكان الصنع] = Me![b] ElseIf i >= 10 And i <= 99 Then Me![رقم الصنف] = Me![sh] & "-" & 0 & i Me![اسم الصنف] = Me![a] Me![مكان الصنع] = Me![b] ElseIf i >= 100 Then Me![رقم الصنف] = Me![sh] & "-" & i Me![اسم الصنف] = Me![a] Me![مكان الصنع] = Me![b] End If DoCmd.GoToRecord , , acNext Next i DoCmd.Requery "f2" DoCmd.SetWarnings True اما طريقتي في تنفيذ الفكرة فهي : DoCmd.GoToRecord , , acLast DoCmd.GoToRecord , , acNewRec Dim i For i = c To d Me![رقم الصنف]= Me![a] Me![مكان الصنع] = Me![b] If i < 10 Then Me![رقم الصنف] = Me![sh] & "-00" & i DoCmd.GoToRecord , , acNext Else If i < 100 Then Me![رقم الصنف] = Me![sh] & "-0" & i DoCmd.GoToRecord , , acNext Else If i < 1000 Then Me![رقم الصنف] = Me![sh] & "-" & i DoCmd.GoToRecord , , acNext End If End If End If Next i DoCmd.Requery "f2" و كما ترى اختلاف بسيط جدا أشكرك مرة أخرى

وعليكم السلام ورحمة الله وبركاته اشكرك كثيرا يا شاكر . لقد كفيت ووفيت . تحياتي

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أعزائي : لدينا في العمل طريقة لتوزيع العدد والأدوات فمثلا وصلتنا كمية معينه من الأدوات ( مفتاح رقم 10 ... مثلا ) طبعا هذه العدد والادوات تأخذ رقما تسلسليا كما يلي مفتاح 10 صنع بريطاني الرقم 15000 كمية العدد 50 لكل مفتاح 10 صنع بريطاني رقم خاص به مثل 15000.001 الى 15000.050 فحينما نوزع العدد والادوات على العاملين نسجل رقم العده او الاداة في سجل الموظف المستلم للعدة . اي اعطينا مثلا مفتاح رقم 10 لمحمد طاهر رقم 15000.002 مفتاح رقم 10 لاشرف رقم 15000.003 مفتاح رقم 10 لمنتصر رقم 15000.009 كما تلاحظون فان العدة ( مفتاح 10 ) مواصفاته ثابته ولكن يتغير من يستلم تلك العده طبعا يصل الى المستودع عدد معين من العدد ولنفرض انها 50 ( مفتاح 10 ) . طبعا سوف يتم ادخال عدد 50 ( مفتاح 10 ) في جدول العدد وتصبح العملية مرهقه جدا مع زيادة العدد والادوات سؤالي بعد هذا الشرح هل توجد طريقة لإدخال 50 سجل دفعة واحدة بحيث يعطيني رقم من 15000.001 الى 15000.050 علما بان جميع المواصفات للأداة ( مفتاح 10 ) متطابقة ولا يختلف الا الرقم لتمييز المعده عن غيرها من نفس النوع .؟

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته إستخدم دالة Round للتقريب الى خانتين عشريتين . fld2=round(fld2,2)

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته الاسم : فيصل بن عوض الحربي سنة الميلاد : 1384 هـ المهنة : مشرف تشغيل محطات التحلية بالجبيل التعليم : الثانوية العامة ( القسم العلمي ) + دبلوم فني في تشغيل المحطات الحراريه الحالة الاجتماعية : متزوج و رزقني الله ب 6 أبناء ( 5 ذكور - وبنت واحده ) بلد الجنسية / بلد الاقامة : السعودية / السعودية أقسام الاهتمام فى المنتدي : كل الأقسام - و بالذات الأكسيس . معلومات أخري : أحب الأكسس و أنشأت تطبيقات مختلفة له. خبرتي فى المنتديات : مشرف قسم الأكسس فى الفريق العربي للبرمجة وعضو شرف في منتدى أوفيسنا . --------------------

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أشكر لكم مشاركاتكم الجميله و سوف احاول تطبيق الفكره . الاخ bodalal أحب أن انبهك الى خطأ لغوي كثير منا يقع فيه : جملة طلب المشيئه من الله سبحانه وتعالى تكتب بالشكل التالي : إن شاء الله وليس كما كتبتها في مشاركتك ، ماكتبته بمشاركتك يفيد خلق أو إيجاد الله ولا اعتقد انك تنوي ذلك . لأن كلمة انشاء تفيد بخلق الشئ او ايجاده ومثال على ذلك كلمة انشاء مصنع .

بسم الله الرحمن الرحيم موقع مجلة أكسس الذكي http://www.smartaccessnewsletter.com

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته استخدم امر select case

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اخواني الكرام : هذا عنوان موقع جميل جدا يهتم بقواعد البيانات أكسس و يرسل نشره عن الأكسس شهريا و هي ليست مجانيه و إنما يرسل لك في الثلاثة أشهر الأولى ثم يجب عليك الاشتراك ان اردت ان تصلك بانتظام تلك النشره . الموقع يوجد به امثله لقواعد بيانات بها الكثير من الخصائص والمهارات ، كل ما عليك هو الدخول للموقع ثم ضغط كلمة Log In الموجوده على يسار الشاشه من أعلى ثم كتابة اسم المستخدم و كلمة المرور ثم بعدها تفتح شاشة الامثله عنوان الموقع هو موقع اكسس الذكي هنيئا لكم تنزيل الامثله الجميله . اسم المستخدم : oblong كلمة المرور : parade لقد تم الدخول بهذه المعلومات بامكانكم ايضاً تنزيل الملف من المرفقات تحياتي / فيصل الحربي rollover.txt

بسم الله الرحمن الرحيم تحياتي

بسم الله الرحمن الرحيم السلام عليكم لقد حصل لي نفس الشيء !!!!!!! هل النظام لديك ويندوز XP ? اذا كان نعم فاذهب الى لوحة التحكم واضبط الإعدادات الاقليميه على دولتك . تحياتي

السلام عليكم اذهب الى تصميم التقرير و ابحث عن الخاصيه ( عند عدم وجود بيانات ) و حدد الرسالة التي ترغب بظهورها من هناك . تحياتي

السلام عليكم يمكنك ذلك بنقل التركيز اولا الى اي أداة موجودة على النموذج ثم عمل عدم تمكين لزر الحفظ CmdNext.SetFocus CmdSave.Enabled = False تحياتي

السلام عليكم ورحمة الله وبركاته إليكم طريقة إخفاء شاشة الأكسس نهائيا بعد فتح النموذج المطلوب 1- انشئ قاعدة بيانات جديده 2- انسخ الكود التالي ثم الصقه في وحده نمطيه جديدة وسمها أي اسم ترغب به الكود =============================================== Option Compare Database Option Explicit Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3 Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) 'Usage Examples 'Maximize window: ' ?fSetAccessWindow(SW_SHOWMAXIMIZED) 'Minimize window: ' ?fSetAccessWindow(SW_SHOWMINIMIZED) 'Hide window: ' ?fSetAccessWindow(SW_HIDE) 'Normal window: ' ?fSetAccessWindow(SW_SHOWNORMAL) ' Dim loX As Long Dim loForm As Form On Error Resume Next Set loForm = Screen.ActiveForm If Err <> 0 Then 'no Activeform If nCmdShow = SW_HIDE Then 'MsgBox "Cannot hide Access unless " _ & "a form is on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) Err.Clear End If Else If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then 'MsgBox "Cannot minimize Access with " _ & (loForm.Caption + " ") _ & "form on screen" ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then 'MsgBox "Cannot hide Access with " _ & (loForm.Caption + " ") _ & "form on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) End If End If fSetAccessWindow = (loX <> 0) End Function =============================================== 3- انشئ نموذج جديد وسمه اي اسم ترغب به 4- غير خصائص النموذج الى pop up=yes modal=yes 5- ضع زر امر لإغلاق النموذج مع الأكسس 6- ضع في حدث عند الفتح الكود التالي الكود ============================================== fSetAccessWindow (SW_SHOWMINIMIZED) fSetAccessWindow (SW_HIDE) ============================================== 7- من قائمة أدوات اختر بدء التشغيل ثم حدد النموذج لكي يفتح في بدء التشغيل 8- إحفظ عملك ثم قم بإنهاء القاعدة . 9- شغل القاعدة وسوف ترى ان خلفية الأكسس مختفيه تماما ما عدا النموذج الذي اخترته من قائمة بدء التشغيل . 10 -دعواتكم لنا بالتوفيق مرفق مثال على الطريقة ====================== تحياتي hideaccesswindow.zip

السلام عليكم ورحمة الله وبركاته لمنع المستخدم من اغلاق النموذج حتى لو استخدم مفتاحي ALT+F4 إلا بالضغط على زر السماح بالخروج ملاحظة : اذا لم يتم وضع زر للسماح بالخروج فلن يتم إغلاق النموذج . 1- افتح النموذج المراد عدم إغلاقه في وضع التصميم . 2- غير خاصية زر الاغلاق للنموذج إلى ( لا ) . 3- من قائمة عرض اختر تعليمات برمجيه. 4- انسخ الكود التالي في قسم الاعلانات ( Declarations ) . Option Explicit Public blnClose As Boolean 5- ضع في حدث عند التحميل للنموذج الكود التالي blnClose = False 6- ضع زر امر على النموذج واعطه الاسم التالي : السماح بالخروج 7- في حدث عند النقر لزر السماح بالخروج ضع الكود التالي : blnClose = True DoCmd.Close acForm, "FormName", acSaveNo 8- ضع الكود التالي في حدث عند إلغاء التحميل : Dim strMessage As String Dim intStyle As Integer Dim strTitle As String strMessage = "انت تحاول إغلاق النموذج بطريقة غير صحيحة" & _ vbCrLf & "فضلا ... أغلق النموذج بالطريقة الصحيحة وذلك بالضغط على زر السماح بالخروج " intStyle = vbOKOnly + vbCritical strTitle = "إغلاق غير صحيح" If blnClose = False Then MsgBox prompt:=strMessage, buttons:=intStyle, Title:=strTitle Cancel = True End If 9- شغل النموذج وحاول اغلاقه بالضغط على مفتاحي ALT+F4 ... سوف تخرج الرسالة السابقة . 10- إضغط على زر السماح بالخروج ثم حاول إغلاق النموذج . 11- دعواتكم لنا بالتوفيق .