مهند عبادي
خبير Visual Basic وخبير أكسيس و مشرف سابق
- المشروع الجماعي
وسأبدأ بأول بند وهو الخطوط العريضة للبرنامج ماذا نريد من هذا البرنامج أن يفعل ؟؟؟ أنا في رأسي طموح كبير جداً لهذا البرنامج سأحاول أن أعرضه وأريد آرائكم حول هذه النقطة حتى ننتقل للنقطة التالية إنني أتصور أن هذا البرنامج سيكون قابلاً لتخزين بيانات عن أي فريق في …
- إدراج قيمة في جدول معين
أخي الكريم لا يمكن استخدام استعلامات الالحاق بهذا الأسلوب لأنها مصممة بالأساس لإلحاق سجلات من جدول أو استعلام إلى جدول آخر (وإن كان من الممكن عمل ما تريده بواسطة استعلام إلحاق ولكن بأسلوب شاذ) الحل في حالتك واحد مما يلي : إما استخدام الكود في فتح الجدول وإضافو…
- احضار بيانات من جدول وتخزينها في جدول اخر
أخي almhajr إن ما تطلبه هو خطأ في علم قواعد البيانات لأنه من المفروض في حالتك هذه ليس نسخ بيانات إلى جدول الدورة ولا العكس وإنما عمل حقل للربط بين الجدولين ... فقط !
- إختيار كل السجلات في النموذج المستمر
السلام عليكم الطرق الموضوعة التي تفضلوا بها الأخوة كلها جيدة وتلبي الطلب ولكني بسبب طلب الكثيرين لهكذا استخدامات للاستعلام مع جهلهم بأسلوب تركيب الاستعلامات فقد عملت Function يتم استدعاؤه بصيغة بسيطة لينفذ استعلامات التحديث دون أن يعب المستخدم في كيفية تركيب ا…
- Function يقوم بعمل استعلامات التحديث عوضاً عنك
السلام عليك هنالك الكثير من الأسئلة في هذا المنتدى تدور حول استخدام الاستعلامات وخصوصاً استعلامات التحديث .. وهي بالحقيقة تحتاج إلى بعض الخبرة في تركيب الاستعلامات المختلفة ولهذا فلقد عملت محاولة لمساعدة من يرغب بعمل استعلام تحديث وبسرعة وبدون أي مشقة وهذا الا…
- كيفية التاكد من ان المكتوب هو عنوان ايميل
أخي طارق ابراهيم فكرتك قصيرة .. ولكنها غير صحيحة 100%
- عمل رصيد يومي
نعم نموذج جدولي ..
- وسيلة لحماية البرنامج المصمم بالأكسس
ولكني لم أفهم شيء من الشرح او أسماء المتحولات لأنه باللغة الفرنسية !!
- عمل رصيد يومي
أخي مفتون عدل النموذج من أسلوب عرض : نموذج مفرد إلى نماذج مستمرة
- كيف اخلي الفورم دائما في المقدمة
استخدم في فتحه الكود التالي Form.Show vbModal
- عمل رصيد يومي
الآن حاول تعمل نموذج لعرض وإدخال السجلات بحيث : إذا أدخل رقم في صادر يمتنع إدخال رقم في حقل وارد والعكس صحيح
- المشروع الجماعي
السلام عليكم ورحمة الله وبركاته بناءً على طلب بعض الأخوة وضع دورة تدريبية في الاكسس وبما أنني أؤمن بالتعلم بواسطة إنجاز أمثلة حقيقية فأنا اقترح أن نقوم أنا وكل من يريد المساهمة للإفادة الغير أو لاكتساب الخبرة بعمل برنامج بواسطة الأكسس فكرة البرنامج المقترح هو …
- "مثال" التحكم في إدخال وإستعراض المواعيد بواسطة
مشكور على هذا المثال الجميل أخي ابن مسقط
- وسيلة لحماية البرنامج المصمم بالأكسس
أعتقد أن هذا النوع من الحماية غير عملي بسبب : أداة ActiveX لكي تعطي لها نتيجة معينة من أجل تسجيل النسخة .. وبالعادة تكون إما كتابة في ملف أو إنشاء ملف أو كتابة في الريجستري .. وبغض النظر عما تفعله فإن أي شيء سيكون قابلاً لأن يراقب من قبل شخص متخصص .. وفي أسوأ …
- عمل رصيد يومي
1 - حقل no جعلته ترقيم تلقائي وجعلته المفتاح الأساسي 2- حقل date أسميته The Date لأنه من المفضل أن لا نستخدم كلمة من الكلمات المحجوزة مثل Date و Now ... وجعلته حقلاً مطلوباً 3- أصلحت اسم حقل MonyOut و MonyIn إلى MoneyOut و MoneyIn 4 - غيرت اسم الحقل Desc إلى S…
- الحمد لله كثيرا من الذين كانوا وراء شهرة المنتدى
وأنا بدوري أكون سعيداً بوجود كل الأخوة القدامى والحديثي العهد بهذا المنتدى وكلما زاد الأعضاء ذوو المستوى الراقي كلما عمت الفائدة أكثر
- التنقل بين التكست بوكس
بدلت شيفرتك في الForm بهذه الشيفرة Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = 0 And KeyCode >= 37 And KeyCode <= 40 Then ChkMove KeyCode, Text1 End If End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If Sh…
- التنقل بين التكست بوكس
مشكور أخي J Programmer يعطيك العافية
- كيفية التاكد من ان المكتوب هو عنوان ايميل
استخدم هذا الـFunction : Private Function IsEmail(S As String) As Boolean On Error Resume Next Dim P(3) As String, I As Integer I = InStr(1, S, "@") P(1) = Left(S, I - 1) S = Mid(S, I + 1) I = InStr(1, S, ".") P(2) = Left(S, I - 1) P(3) = Mid(S, I + 1) IsEmail…
- حساب مشروط!
شكراً أخ فهد على تصحيح الكود لأني نسيت بسبب العجلة إنهاء الشرط بـ End IF