عبد الفتاح كيرة

هذا هو الملف برابط مباشر و شكرا لأخى جمال

تمام أستاذ على بارك الله فيك

شكرا أستاذ هشام على جهودك الطيبة لإدراجك الموضوع الذى ليس فيه أية ردود لموضوعك القيم الخاص بالفديوهات http://www.officena.net/ib/index.php?showtopic=37644&view=getnewposthttp://www.officena.net/ib/index.php?showtopic=37644&view=getnewpost

عفوا المقصود دالة dlookup

السلام عليكم كنت أظن أن عمل الجدول المدرسى سيكون أسهل فى أكسيس منه فى إكسل لكن دالة dcount صدمتنى المطلوب جلب اسم الفصل لتقرير جدول المدرس الواحد مثلا " 1--1" أو "3--3" يوم الأحد الحصة الأولى بحيث يكون اسم المعلم كما فى الكمبوبوكس بنموذج تابع للتقرير يسمى gadwal الدالة تجلب رقم الفصل و ليس اسمه الملف مرفق وشكرا لكم gadwal.rar

هو كذلك أخى كما تطلب افرز من الياء للألف فى حقل الاسم فى الجدول احفظ الجدول جرب الذهاب فى النموذج للمعرف 3 سيذهب للاسم " مهيمن" رغم أن رقم السجل ليس 3

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

الأخ هشام لا تتعب نفسك فى البحث عن سريال للبرنامج فهو يكتشف السريالات المزورة دائما أنصحك باستخدام الباتش لكن و البرنامج مغلق من أيقونته التى بجوار الساعة البرنامج يعطى مدة تجربة شهرا كاملا أكون خلالها غيرت نسخة الوندوز أعيدتنصيبه مجددا

أشكر كل إخوانى الطيبين الأخ ياسر والأخ على والأخ محمود على طيب كلامكم وفقكم الله لكل خير

شكرا لجميع الإخوة الفضلاء

حياك الله أخى عبد الله وبارك فيك أحاول التواجد قدر المستطاع و الله المستعان

السلام عليكم هذا كود ورد إلى بريدى وظيفة لتحويل الأرقام إلى حروف يجب تخفيض إعدادات الأمان و تمكين الوصول إلى مشروع vba طريقة العمل تفتح الملف المرفق افتح ملفا جديدا من الملف الأصلى اضغط تصدير الكود للملف المفتوح سيتم تصدير الوظيفة للملف الجديد ابدأ باستخدام الوظيفة كأى دالة فى إكسل اكتب رقما فى خلية و لتكن a1 و فى خلية مجاورة اكتب =NumsToWords(A1) هذا هو الكود Option Explicit ' Downloaded from www.contextures.com '*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* '* NumsToWords(NumSource, MajorCurrency, MinorCurrency, MajorMinorLink) function * '* * '* Where:Words * '* NumSource: Number, or cell reference containing the number, to be converted to words * '* MajorCurrency: Primary currency name.......................... (Optional: Default is "Dollar") * '* MinorCurrency: Secondary currency name........................ (Optional: Default is "Cent") * '* MajorMinorLink: Word to connect Major and Minor Currency....... (Optional: Default is "and") * '* SkipMinor: True/False flag to ignore the MinorCurrency.... (Optional: Default is FALSE) * '* * '* Programmer: Ron Coderre * '* Created on: 14-JUL-2007 * '* Last Modified: 24-MAR-2009 * '*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.* Public Function NumsToWords( _ NumSource As Currency, _ Optional MajorCurrency As String = "Dollar", _ Optional MinorCurrency As String = "Cent", _ Optional MajorMinorLink As String = "and", _ Optional SkipMinor As Boolean = False _ ) As String Dim Words As String ' Used to build the word phrase Dim WIPnum As String ' Orig number formatted as 000000000000000.00 Dim LU_NumList() ' Array of numbers to match during the process Dim LU_NumText() ' Text values associated with LU_NumList values Dim iMisc As Integer ' Container for interim calculations Dim iCtr As Integer ' Counter variable Dim LU_Denom() ' Array of groups (Trillion, Billion, etc) Dim DecSepChar ' Decimal separator symbol ( eg English: . ) LU_NumList = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, _ 11, 12, 13, 14, 15, 16, 17, 18, 19, _ 20, 30, 40, 50, 60, 70, 80, 90)[/center] [center]LU_NumText = Array("", " One", " Two", " Three", " Four", " Five", _ " Six", " Seven", " Eight", " Nine", " Ten", " Eleven", _ " Twelve", " Thirteen", " Fourteen", " Fifteen", " Sixteen", _ " Seventeen", " Eighteen", " Nineteen", " Twenty", " Thirty", _ " Forty", " Fifty", " Sixty", " Seventy", " Eighty", " Ninety")[/center] [center]DecSepChar = Application.International(xlDecimalSeparator)[/center] [center]LU_Denom = Array(" Trillion", " Billion", " Million", " Thousand", "", "")[/center] [center]WIPnum = Replace(Format(Abs(NumSource), "000000000000000.00;KillFlow"), DecSepChar, "0")[/center] [center]'Pull successive WIPnum triads and assign word values For iCtr = 0 To 5 iMisc = CInt(Mid(WIPnum, (1 + iCtr * 3), 3)) If Int(iMisc / 100) > 0 Then Words = Words & LU_NumText(Int(iMisc / 100)) & " Hundred" 'Set the tens and ones phrase If (iMisc Mod 100) > 19 Then Words = Words & LU_NumText(Int((iMisc Mod 100) / 10) + 18) & LU_NumText(iMisc Mod 10) Else Words = Words & LU_NumText(iMisc Mod 100) End If If iMisc > 0 Then Words = Words & LU_Denom(iCtr) If iCtr = 4 Then ' Finish building the whole nums phrase Words = Words & " " & MajorCurrency If Int(NumSource) = 0 Then Words = "No" & Words If Int(NumSource) <> 1 And MajorCurrency <> "" Then Words = Words & "s" If SkipMinor = False Then Words = Words & " " & MajorMinorLink Else Exit For ElseIf iCtr = 5 Then 'Complete the MinorCurrency phrase If SkipMinor = False Then If iMisc = 0 Then Words = Words & " No" Words = Words & " " & MinorCurrency If iMisc <> 1 And MinorCurrency <> "" Then Words = Words & "s" End If End If Next iCtr[/center] [center]NumsToWords = Trim(Replace(Words, " ", " ")) End Function[/center] [center] و الملف مرة أخرى بالمرفقات و بعد إذن الإدارة هذا مصدر الموضوع أرجو أن تنتفعوا به

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

أولا : ملفك لم يتعرف عليه أكسيس 2007 نفس المشكلة التى حدثتك عنها ثانيا : الاستعلام يظهر من ليس لديه تأخير و لا غياب انظر المرفق DO - Copy-kemas2.rar

أخى alshamal حاولت حفظ الملف بتنسيق 2003 ظهرت رسالة بعدم الإمكان لأن هناك مميزات غير موجودة فى 2003

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

أولا : قمت بعمل استعلام يضم الجدولين ثانيا : من الاستعلام الجديد قمت بعمل استعلام جدولى صفوفه حقل الاسم و أعمدته حقل [Type_of_observation DO - Copy-kemas.rar

مبارك عليك المنصب الجديد أخانا ياسر رفع الله قدرك

شكرا على ثقتك الطيبة أيها الأخ العزيز / يوسف

الآن فهمت مع بعض الجهد والحمد لله فى حال كانت قيمة مربع الاختيار = حقيقي يتم كتابة تاريخ اليوم أمام الموظف فى حقل تاريخ المغادرة و رغم أن الموظف حذف حسب التصفية فى النموذج إلا أنه يبقى معروضا حتى يتم التحميل فى المرة التالية قمت بالتعديل على الكود بحيث لا يتم الحذف إلا بعد رسالة تحذيرية أيضا عند تمام الحذف تبقى فقط السجلات حسب الشروط أى الموظف الذى لم يغادر فقط شكرا للأساتذة هذا هو الكود Option Compare Database Private Sub Check1_AfterUpdate() If Me.Check1 = True Then answer = MsgBox("حقا تريد حذف الموظف ؟", vbYesNo) If answer = vbYes Then date_workEnd = Date Me.Requery Else Me.Check1 = False date_workEnd = "" End If End If End Sub

فى خصائص التقرير أمام خاصية اسمها الترتيب حسب اكتب اسم الحقل الذى تريد الترتيب حسبه لاحظ الصورة

لعل هذا ما تريده الغاء msgbox-kemas.rar

كلام ممتاز جدا لكن أيضا لم تتضح لدى فائدة حقلى التاريخ و النص هل حقل التاريخ لإثبات تاريخ الاستغناء عن الاسم ؟ وكيف يكون الكود؟

للأمام دائما أخانا الحبيب عبد الله

أخى mas123 قمت بزيارة الموضوع و كتبت هناك تعليقا أخى أيسم إن شاء الله أقزم بذلك