-
Posts
9,848 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
132
ابوخليل last won the day on مارس 24
ابوخليل had the most liked content!
السمعه بالموقع
4,601 Excellentعن العضو ابوخليل

البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
طالب علم
-
البلد
القصيم
-
الإهتمامات
تحليل البيانات والتصميم
اخر الزوار
13,301 زياره للملف الشخصي
-
ابوخليل started following عرض البيانات وتعبئة Combobox مع خصائص الاتصال بتقنية Ado , نغمات أصوات التنبيه لرسائل أكسس , كيفية معرفة المفتاح بعد الضغط عليه و 5 اخرين
-
وان اردت اصوات مختلفة من اصوات النظام فعليك تشغيل الملف عند الحدث المحدد وللاطلاع على ملفات اصوات النظام الموجودة في وندوز افتح مجلد الوندوز واكتب في البحث .wav
-
سلمت اناملك ابوعبدالله MsgBox ChrW(KeyAscii)
-
شكرا اخوي جعفر على المداخلة الجميلة تظهر الحروف الانجليزية هل يمكن اظهار حروف اللغة البديلة لأني اقلب لوحة المفاتيح الى العربية ولا يتم التقاط الحروف
-
عليكم السلام اكسس يتعرف على رقم الزر ولكن الحرف متروك للمستخدم لذا يلزم ان نترجم الرقم الى حرف ، من خلال جدول في المثال وضعت لك في الجدول حروف الازرار انجليزية كما هي عندي ، ويمكنك استبدالها بأي لغة تريد لاحظ : عندما تخرج الرسالة خالية هذا يعني ان الزر لم يدرج رقمه وحرفه ضمن الجدول Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim i As String i = Nz(DLookup("nmKey", "tblNumberKey", "idNmKey =" & KeyCode)) MsgBox i End Sub test.mdb
-
عندك خيارين : الاول يكون التنسيق في الاستعلام مصدر القائمة اذا مصدرها كود يمكنك ايضا في المحرر اضافة التنسيق الثاني : تقوم بتغيير القائمة الى مربع تحرير ثم في حقل التنسيق تعمل التنسيق المطلوب وثحفظ ثم تعيد تغيير مربع التحرير الى قائمة
-
عليكم السلام Dim i As Byte i = Day(Date) If i = 1 Or i = 2 Or i = 3 Or i = 4 Then MsgBox "ضع ما تريد توضيحه هنا" End If Day(Date) يرجع رقم اليوم من التاريخ الافتراضي يمكنك استبدال Date باسم حقل التاريخ عندك واضبط الحدث عند تحميل النموذج مثلا او اي حدث تراه مناسبا
-
دخل فين ؟ هل تقصد تسجيل حضور ؟ اذا هكذا يمكنك استخدام قاعدة if فيما يشبه هذا : if txtTime => # 11:59:59 # then anything="غداء" else anything="" end if
-
السلام عليكم اعتقد لست بحاجة للبحث بين التواريخ فقط تعمل جدول تحكم للتكليف على اعتبار الايام يكون في الجدول حقول حسب المستحقات اليومية الممنوحة ( غداء / عشاء / مواصلات ... وهكذا ) ويمكن ايضا وضع المبالغ المقدرة لكل مستحق ضمن الجدول . فمثلا الموظف فلان تم تكليفه بمهمة لمدة ثلاثة ايام ، فآليا يظهر له في التقرير ( قيمة الغداء مضروب في 3 ) وهكذا بقية البنود هذا رأيي لان هذه الطريقة اكثر مرونة وقابلة للتطوير والتعديل
-
فتح التقرير وعرض جميع السجلات Ado Recordset
ابوخليل replied to alsihran's topic in قسم الأكسيس Access
ما دمت قررت الاستعانة بالجداول المؤقتة ، فعندي لك طريقة افضل من عمليات انشاء و حذف الجداول وانما يتم حذف البيانات حسب الضرورة والطريقة انك تعمل جداول محلية دائمة تحمل حقول بنفس نوعية حقول المصدر وتسميها بنفس الاسم او غيره لا فرق تفضل المثال يتم حذف بيانات الجدول المؤقت قبل جلب البيانات الجديدة انتبه لموقع قاعدة الجداول Adb_Dat.rar -
صار عندنا عيدين ، عيد الفطر ، وعيد ترقية اخونا ناقل
ابوخليل replied to jjafferr's topic in قسم الأكسيس Access
الف مبروك اخوي وتستاهل اكثر اعانك الله ووفقك -
فتح التقرير وعرض جميع السجلات Ado Recordset
ابوخليل replied to alsihran's topic in قسم الأكسيس Access
عليكم السلام حسب ما مر علي من عمليات الاتصال بقواعد البيانات يوجد طريقتين لتسهيل عمليات العرض واحدة هي استخدام الجداول المرتبطة بقاعدة البيانات البعيدة ( السيرفر ) الثانية هي استخدام جداول مؤقته يتم انشاؤها عند الحاجة واعذرني عن المتابعة فقط عليك البحث والعمل على تطبيق الفكرة .. والمسألة يسيرة ستتمكن باذن الله من تحقيقها -
عرض البيانات وتعبئة Combobox مع خصائص الاتصال بتقنية Ado
ابوخليل replied to alsihran's topic in قسم الأكسيس Access
تفضل If Not (rst.BOF And rst.EOF) Then Do Until rst.EOF If rst.Fields(2).Value = 1 Then Me.Txt_namcity.AddItem (rst.Fields(0).Value & ";" & rst.Fields(1).Value) End If rst.MoveNext Loop End If combo5.rar -
عرض البيانات وتعبئة Combobox مع خصائص الاتصال بتقنية Ado
ابوخليل replied to alsihran's topic in قسم الأكسيس Access
التغيير سيكون في هذا السطر عملته لك حسب طلبك ويمكنك صنع متغير رقمي وجعله مكان الرقم 1 rst.Open "Select * from tbl_city WHERE txt1 = 1", con, adopenDynamic, adLockBatchOptimistic combo4.rar -
عرض البيانات وتعبئة Combobox مع خصائص الاتصال بتقنية Ado
ابوخليل replied to alsihran's topic in قسم الأكسيس Access
يوجد اكثر من طريقة لتحقيق الطلب ولكنك تستخدم Ado للاتصال لذا يجب ان يكون الحل في المسار نفسه تفضل التعديل combo3.rar -
عرض البيانات وتعبئة Combobox مع خصائص الاتصال بتقنية Ado
ابوخليل replied to alsihran's topic in قسم الأكسيس Access
تفضل. If Not rs.EOF And Not rs.BOF Then Do Me.Txt_namcity.AddItem (rs.Fields(0).Value & ";" & rs.Fields(1).Value) rs.MoveNext Loop Until rs.EOF End If combo2.rar