أبو هادي

السلام عليكم نعم أخي خضر الرجبي .. إنه الحل فعلا ، لك الشكر الجزيل . Function WinHijriDate() As Date Dim AddDays As Integer Select Case fReturnRegKeyValue(HKEY_CURRENT_USER, "control Panel\International", "AddHijriDate") Case "AddHijriDate-2": AddDays = -2 Case "AddHijriDate": AddDays = -1 Case "": AddDays = 0 Case "AddHijriDate+1": AddDays = 1 Case "AddHijriDate+2": AddDays = 2 End Select WinHijriDate = Date + AddDays End Function تحياتي .

السلام عليكم أشكرك أخي خضر الرجبي على اهتمامك وحرصك على الوصول إلى حلول مشاكل البرمجة المتعبة . لقد توصلت إلى حل للمشكلة مع زيادة في الإجراءات . أولا سنستخدم دالة IsLoaded مع تعديل عليها لتعمل مع الماكرو وتمت تسميتها IsMacroLoaded ومطلوب نسخها في موديول / وحدة نمطية : Function IsMacroLoaded(ByVal strMacroName As String) As Boolean Const conObjStateClosed = 0 If SysCmd(acSysCmdGetObjectState, acMacro, strMacroName) <> conObjStateClosed Then IsMacroLoaded = True End If End Function ثانيا في زر لفتح الماكرو نضع هذه الشفرة : Private Sub CmdOpenMacro_Click() Dim Count As Integer DoCmd.SelectObject acMacro, "MacroName", True Do While Not IsMacroLoaded("MacroName") And Count < 10 Count = Count + 1 SendKeys "%(d)", True SendKeys "%+", True Loop End Sub لا أعتقد يمكن ذلك واسمح لي لن أواصل خلاص تعبت :d تحياتي .

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

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

السلام عليكم سأبحث في الموضوع إن شاء الله تعالى . وهذه معلومات لمن يعانون نفس المشكلة : Advanced settings for Hijri date in Windows XP and Window 2003 SYMPTOMS The new Hijri calendar table which is implemented in "Um Al Cora" Hijri calendar, is not available in Windows or Office, but the user can use the Advanced Hijri date setting to adjust the Hijri date. MORE INFORMATION Hijri calendar is available only when System Locale and User Locale are set to Arabic. RESOLUTION Adjust Hijri date in Windows XP and Windows 2003: 1. From "Control Panel' , select 'Regional and Language Options' 2. In 'General' tab press on 'Customize' button 3. In the Date tab, ensure that Hijri date is selected (you can select Hijri calendar from 'Calendar type' drop down list) 4. From 'Adjust Hijri date to' you can adjust the Hijri date by adding or removing one or 2 days from the current Hijri date How to set the language for the system and user local: 1. Log as Administrator to your computer 2. From Start open 'Control Panel' 3. From the left task pane press on the 'Switch to Classic view' to find the 'Regional and language options' icon , then double click on this icon. 4. From the 'Languages' tab, make sure you check on the 'Install files for complex script and right-to-left languages (including Thai)', then press 'Apply' button to make the language appear on the other list boxes. 5. From the 'Regional options' tab, you can set the User Local settings, by choosing the correct choice for the following settinga. Select your Language/Country from 'Standards and formats' (e.g. Arabic (Saudi Arabia)). b. From the Location list box, select your locale country (e.g. Saudi Arabia) 6. From the 'Advanced' tab, select the 'Language for non-Unicode programs' which will be default for your operating system. For example if you choose Arabic, so this setting will force ANSI application to display Arabic text correctly. 7. Make sure to check the "Default user account settings" check box and press 'OK' button then reboot your computer. APPLIES TO • Microsoft Windows XP Professional Edition • Microsoft Windows XP Home Edition • Microsoft Windows Server 2003, Standard Edition • Microsoft Windows Server 2003, Enterprise Edition • Microsoft Windows Server 2003, Web Edition تحياتي .

السلام عليكم إبحث عن "أم القرى" وسترى الكثير من الحلول والأفكار .. وعلى مهلك . تحياتي .

السلام عليكم لقد توصلت للمشكلة وهي لغة لوحة المفاتيح أثناء إرسال أوامر SendKeys فإذا كانت بالعربي فسيعتبر مفتاح "d" عبارة عن حرف "ي" . الحل هو تبديل اللغة إلى إنجليزي قبل إرسال أوامر SendKeys وقد عملتها بالكود ولكنها لم تنجح معي فهل أحدكم يعرف كيف التبديل بين لغة لوحة المفاتيح بالكود وبدون استخدام الـ SendKeys ويختصر علينا الطريق . ابتداءً تستطيع التجربة بعد تحويل اللغة يدويا . تحياتي .

السلام عليكم أخي جمال فايز .. الكود مجرب وهو يعمل بشكل جيد . أي إسم كود الذي يقف عليه ؟ وهل بدلت الإسم "MacroName" بإسم الماكرو الذي تريد فتحه ؟ كما أو أعرف من أين تنادي هذا الإجراء . تحياتي .

السلام عليكم وهذه نفس الفكرة باستخدام إجراء فرز سريع بإسم QuickSort : Sub QuickSort(vArray) Dim Min As Integer, Max As Integer Dim i As Integer, j As Integer Dim x As Variant, y As Variant Min = LBound(vArray) Max = UBound(vArray) i = Min j = Max x = vArray((Min + Max) / 2) Do Do While vArray(i) < x: i = i + 1: Loop Do While vArray(j) > x: j = j - 1: Loop If i <= j Then y = vArray(i) vArray(i) = vArray(j) vArray(j) = y i = i + 1 j = j - 1 End If If Min < j Then Call QuickSort(vArray) If i < Max Then Call QuickSort(vArray) Loop Until i > j End Sub Private Sub Form_Load() Dim prt As Printer Dim Index As Integer Dim PrnNames ReDim PrnNames(0 To Application.Printers.Count - 1) As String Index = -1 For Each prt In Application.Printers Index = Index + 1 PrnNames(Index) = prt.DeviceName Next Call QuickSort(PrnNames) For Index = 0 To UBound(PrnNames) Me.dPrinter.AddItem PrnNames(Index) Next End Sub تحياتي .

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

السلام عليكم مرفق مثال لأخي وعزيزي حارث لإخفاء كائنات قاعدة البيانات بأكثر من طريقة , تحياتي . HideObjects.rar

السلام عليكم موضوع ذو صلة : نسخ الجداول بثلاث طرق بالكود تحياتي .

السلام عليكم أخي الكريم .. Period ليس دالة بل هو إسم مستعار للحقل ويسمى بالإنجليزي Alias . وليس له وجود بالنموذج ولكن نتيجته داخلة ضمن قيمة NetPeriod . تحياتي .

السلام عليكم أخي أبو سليمان .. لم تكن النتائج واضحة بعد إعادة الفحص لنفس المعطيات السابقة . آمل مراجعة الكود مرة أخرى . وبانتظار تعديلاتكم الجديدة . تحياتي .

السلام عليكم شكرا لجهودكم أخي خضر الرجبي وزادكم الله علما ونورا . هل هذه المسميات/التصنيفات للنماذج قياسية (منبثق/فرعي) ؟ ، أم هي نتيجة خبرتكم ؟ وإذا كانت قياسية فأرجو توضيح ترجمة منبثق بالإنجليزي . وشكرا سلفا . تحياتي .

السلام عليكم جرب الكود التالي : 'SendKeys "%" & "{F4}" '-- لإقفال محرر الفجوال عند تنفيد الإجراء منه DoCmd.SelectObject acMacro, "MacroName", True SendKeys "%d" تحياتي .

السلام عليكم طبعا أنت لم تجاوبني بشكل واضح ووضعتني في مأزرق . على كل حال أنا عدلت لك في التقرير وتستطيع تطبيق الفكرة في أي موضع تحب . تحياتي . ________2005_01_16.rar

السلام عليكم بعد إذن أخي خضر الرجبي .. مثال لأخي noursh مرفق لدالة DMax التي لم تعمل معه . تحياتي . MultiSeq.rar

السلام عليكم نفذ عزيزي أبو سليمان وأنا بانتظار آخر التعديلات . تحياتي .

السلام عليكم أشكرك أخي أبو سليمان .. رزقك الله الجنة . عزيزي جرب أن تضع في صندوق البلد علامة * وصندوق المدينة Makk . هناك حركة أعتقد أنها غير مقصودة ولكنها بالنسبة لي حلوة ، فيها "Action" . كما أود رأيك فيما لو بحثنا فقط عن إسم مدينة كـ Makk ، هل من المفترض أن نتجاهل كل من البلد والولاية ونبحث عن المدينة أو ما يحدث الآن هو الأفضل ؟ تحياتي .

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

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

السلام عليكم موضوع ذو علاقة : الحفاظ على المسلسل بعد الحذف والتعديل تحياتي .

السلام عليكم أنشئ موديول والصف به كود الدالة التالي : Function GetMonthDays(ByVal InDate As Variant) As Variant On Error Resume Next If IsNumeric(InDate) Then InDate = CDate(InDate) Select Case VarType(InDate) Case vbDate GetMonthDays = Day(DateSerial(Year(InDate), Month(InDate) + 1, 1) - 1) Case vbString If InDate Like "####[/-]##" Then GetMonthDays = Day(DateSerial(Left(InDate, 4), Mid(InDate, 6) + 1, 1) - 1) ElseIf InDate Like "##[/-]####" Then GetMonthDays = Day(DateSerial(Mid(InDate, 4), Left(InDate, 2) + 1, 1) - 1) End If End Select End Function حيث يمكنك استدعاؤها بأربعة أشكال كالتالي : Sub Test() MsgBox GetMonthDays(Date) MsgBox GetMonthDays(38363) MsgBox GetMonthDays("2005/01") MsgBox GetMonthDays("01-2005") End Sub تحياتي .

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