ابوحمود

إذا الحل أرسل لي القاعدة لديك وهذا بريدي : H_H123@Hotmail.com ثم هل من الأخوة من جرب الكود السابق ليعطينا النتيجة . ولك تحياتي

اكتب قبل هذه العبارة Msgbox typename(rst![الرصيد]) Msgbox me![الرصيد] وأخبرني عن النتيجة وهل كانت الحقول مجموع المقبوضات ومجموع المصروفات تحوي أرقام عند النقر على زر تحديث البيانات . ولك تحياتي

الأخ حارث زادك الله علماً كيف توصلت إلى هذه النتيجة ، الله يبارك لك ويزيدك من فضله ليتك تعطيني فكرة مبسطة عن المعايير الموجودة في الاستعلام لأنها بصراحة معقدة جداً . وفقك الله . وبخصوص الكود فهذا كود مبسط أرسلته مع القاعدة الى ابو سعد أو ما أدري من هو . Privat…

جرب الكود بعد التعديل : Public Function التأكد_من_التاريخ() 'On Error Resume Next Dim checkDate As Variant checkDate = GetSetting("ApplicationName", "نموذج3", "تاريخ_التشغيل_الأخير") If IsNull(checkDate) Or checkDate = "" Then ' لم يتم تشغيل الماكرو من قبل تحد…

لقد حولتها إلى إصدار 2000 !! لكن هناك طريقة بسيطة افتح استعلام جديد وإذا فتح مربع حوار لتختار منه الجداول فاضغط إلغاء الأمر وستجد في الجهة اليسرى من شريط الأدوات زر مكتوب عليه SQL انقر عليه سيفتح صفحة بيضاء فارغة إلا من كلمة أو كلمتين امسحها ثم ألصق النص التال…

لا ما أبغى الجداول . النموذج الذي تشغل الماكرو منه والماكرو والوحدة النمطية التي فيها الدالة فقط . ولك تحياتي

أبشر خمس دقائق وأرسله إن شاء الله . ولك تحياتي .

أرسل القاعدة فقط اترك الماكرو والنموذج الذي تشغل منه الدالة والوحدة النمطية التي فيها الدالة . وهذا بريدي H_H123@hotmail.com ولك تحياتي .

برنامج لجعل تلميح عنصر التحكم من نوع مربع نص يظهر قيمة الحقل ضع في حدث عن الحالي : Call sShowToolTip(Me) وفي الوحدة النمطية العامة ضع الدالة التالية : Public Sub sShowToolTip(frm As Form) Dim ctl As Control, i As Integer On Error Resume Next For Each ctl In fr…

افتح النموذح في عرض التصميم ثم انقر على مربع النص الذي ترغب في ظهور عدة حقول فيه ثم انقر على زر خصائص في شريط الأدوات ثم اختر صفحة التبويب بيانات ثم اكتب الحقول بهذا الشكل في مصدر عنصر التحكم : = Neme1 & " " & Name2 & " " & Name3 وهكذا اول ما تكتب = ثم أول حقل…

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

أخوي حارث ركب الأكسس 2002 وأنت مرتاح المشكلة هذا كانت تظهر لي في برنامج به العديد من التقارير وكانت تعطي البرنامج درجة تقييم سيئة لأنه منه هو اللي فارغ يغير اتجاه الصفحات عند فتح التقرير في كل مرة والأصعب أنك ما تقدر تطبع مباشرة لابد تستعرض التقرير قبل الطباعة…

بخصوص الدالتين فلا أدري هل تعرض التاريخ موافق لأم القرى أم لا وإن كان ظني أنها مرتبطه بالتقويم الخاص بالوندوز . وأما التعامل بطريقة الأرقام مع الحقول فالأمر بسيط استخدم قناع إدخال وإليك مثال : 00-00-0000 سيظهر التاريخ بهذا الشكل 01-01-1422 وبإمكانك أن تغير الش…

هذا أفضل حل وهذا بريدي H_H123@Hotmail.com ولك تحياتي

الأخ أبو زيد أنشئ حقل باسم تاريخ الإحصاء من نوع تاريخ/ووقت في جدول الإحصائية وضع الكود التالي في حدث النقر لزر الأمر : Dim NmMonth As Integer On Error GoTo eorr_إحصاء ' الإجراء التالي يشتغل في حال كون جدول الإحصائية خالي من السجلات If DCount("[تاريخ الإحصاء]",…

لدي دالتين بخصوص التحويل بين الهجري والميلادي نقلتها من احد المواقع ولا أدري إن كانت هي التي نشرها أبو لمى أم لا : Private m_iHijri As Integer '------------------------------------------------------------ ' من ميلادي إلى هجري '---------------------------------…

 كود لاستخراج بيانات عشوائية من حقل أو استعلام أو عبارة SQL Function FindRandom (RecordSetName As String, Fieldname As String) Dim MyDB As Database Dim MyRS As Recordset Dim SpecificRecord As Long, i As Long, NumOfRecords As Long Set MyDB = CurrentDB() Set My…

أزل هذه العبارة من الكود وأخبرني ماذا يحصل : On Error Resume Next ولك تحياتي

بعد البحث وجدت دالتين الأولى Private Sub أمر0_Click() AttachExclusive "جدول مراحل التدريس", "C:My DocumentsMYMDBبيانات.mdb", "جدول مراحل التدريس" ' اسم الدالة, الاسم الجديد للجدول , اسم الجدول في القاعدة الهدف End Sub Function AttachExclusive(AttachedName As S…

If Me![رقم الكشف] > 1 Then Dim db As Database Dim rst As Recordset Set db = Application.CurrentDb Set rst = db.OpenRecordset("SELECT (-1*[مجموع المصروفات])+[مجموع المقبوضات]+[الرصيد السابق] AS الرصيد, Max([كشف الحركة].[رقم الكشف]) AS [Maxمنرقم الكشف] " _ & " F…