أبو هادي

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

السلام عليكم حياك الله أخي خضر الرجبي . 7 - لا أقصد القائمة بل عملية التعديل والإضافة نفسها أي إظهار صناديق النصوص . 8 - فرق التوقيت هو المنطقة الزمنية TimeZone GMT حيث تم نقل هذا الحقل من جدول الولايات إلى جدول المدن . 9 - عندما تتم الفقرة السابقة رقم 8 سوف تتضح لك الفقرة رقم 9 . تحياتي .

السلام عليكم الملاحظات من 1 إلى 5 تخص أخي أبو سليمان . الملاحظات من 6 إلى 9 تخص أخي خضر الرجبي . تحياتي .

السلام عليكم ملاحظاتي : 1 – صندوق التوقيت الصيفي يفعل إذا كان هناك احتساب للتوقيت الصيفي ويحصل على قيمتها بضرب قيمة دالة DayLightAdd في -1 . 2 – عند التبديل إلى الحنفي يظهر صلاة العصر أثناء فشل البرنامج في حسابها . 3 – عند تبديل طريقة الحساب لا تتبدل النتائج . 4 – صلاتي الفجر والعشاء لا يجب حجبهما إذا كانت طريقة حسابهما فرق ثابت من الدقائق . 5 – زر تبديل اللغة لو يكون في منتصف النموذج تماما أفضل بحيث لا يحتاج من يريد التبديل أن يغير موقع المؤشر . 6 – لا زالت قائمة التعديل والإضافة تظهر في نموذج أوقات الصلاة . 7 – التعديل والإضافة والحذف أصبحت لا تعمل في كثير من الأحيان . 8 – فرق التوقيت في التعديل والإضافة يجب أن تتبع المدينة بدلا من الولاية . 9 - لقد حان وقت التالي : تحياتي .

السلام عليكم سبب الرسالة : كم تدفع لي أولا ؟ :d =OpenChangCity() على كل حال عند استخدام الحدث بهذه الطريقة بدون استخدام محرر الفجوال يفضل تحويل الـ Sub إلى Function . أما الإقتراح فشكرا لك على طرحه الآن فهو في بالي كذلك منذ ابتدأت مشاكل رفع الملف ، فأرجوك افعل وخصوصا أننا مضطرون له الآن . لي ملاحظات بسيطة سوف ألخصها بعد تذكرها :( وأعلمكم بها لاحقا . تحياتي .

السلام عليكم المثال بعد تصحيح الخطأ وإضافة الدوال المعدلة . التقارير أكثر مما كنت أرغب بها . بارك الله فيك أخي أبو سليمان على هذا المجهود الطيب . تحياتي . الملفات المرفقة Prayer20050223c.rar ( 608.97ك ) عدد مرات التنزيل: 7

السلام عليكم أخي أبو سليمان .. مرفق تصحيح للدوال . تحياتي . الملفات المرفقة CitiesTable.rar ( 239.5ك ) عدد مرات التنزيل: 6

السلام عليكم لو تم عمل جدول يحتوي على 12 حقل بعدد الأشهر ليعبأ بسجلات أوقات الصلاة والتي أقصاها 31 سجل . ثم يكون مصدرا لبيانات التقرير . يكفي الدقائق ويفضل جبرها لكل 30 ثانية . تحياتي .

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

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

السلام عليكم أخي الفاضل .. تعديل آخر على الكود ، وهو ليس تصحيحا لخطأ فيه ولكن لتفادي خطأ تم عن طريقك وهو جعل خلفية الصناديق شفافة : Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim Ctl As Control Dim SeqID As Control Set SeqID = Me.setdown_no '>> ضع هنا حقل المسلسل >> With Me For Each Ctl In .Controls If Ctl.Section = 0 Then If Me(SeqID.Name).Tag <> "" Then Ctl.BackStyle = 1 Ctl.BackColor = IIf(Me(SeqID.Name) - Val(Me(SeqID.Name).Tag) > 1, vbGreen, vbWhite) End If End If Next Me(SeqID.Name).Tag = Me(SeqID.Name) End With End Sub تحياتي .

السلام عليكم بدل هذا السطر : Ctl.BackColor = IIf(Me(SeqID.Name) - Val(Me(SeqID.Name).Tag) <> 1, vbGreen, vbWhite) بهذا : Ctl.BackColor = IIf(Me(SeqID.Name) - Val(Me(SeqID.Name).Tag) > 1, vbGreen, vbWhite) ثم في الترتيب والمجموعات يجب وضع نفس الحقل الموجود في الكود في السطر الأول أي لا يجب تأخيره في حال وجود حقل آخر للترتيب . مثلا إذا أردت الفحص يكون على حقل setdown_no فسيكون في الترتيب التالي : setdown_no Ascending school_no Ascending أما إذا كان الفحص على حقل school_no فسيكون الترتيب كالتالي : school_no Ascending setdown_no Ascending تحياتي .

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

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

السلام عليكم أخواي أبو سليمان وخضر الرجبي .. ماهي آخر الأخبار ؟ تحياتي .

السلام عليكم لقد بدلت في الكود تسهيلا للمصمم ، فقط تحتاج لتبديل إسم الحقل المسلسل . Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim Ctl As Control Dim SeqID As Control Set SeqID = Me.SN '>> ضع هنا حقل المسلسل >> With Me For Each Ctl In .Controls If Ctl.Section = 0 Then If Me(SeqID.Name).Tag <> "" Then Ctl.BackColor = IIf(Me(SeqID.Name) - Val(Me(SeqID.Name).Tag) <> 1, vbGreen, vbWhite) End If End If Next Me(SeqID.Name).Tag = Me(SeqID.Name) End With End Sub ثم تحتاج أن تذهب للقائمة أعلى الشاشة وتختار التالي : View Sorting and Grouping وتضع إسم الحقل المسلسل في Field/Exprission وتختار Ascending في Sort Order تحياتي .

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

السلام عليكم جرب هذا الكود : Sub TransferData() Dim dbs As Database Dim rst As Recordset Dim FileName Dim MyString Set dbs = CurrentDb Set rst = dbs.OpenRecordset("ImpTexts", dbOpenDynaset) FileName = "C:\Documents and Settings\Windows\Desktop\OfficenaTempText.txt" Open FileName For Input As #1 Do While Not EOF(1) Input #1, MyString If Trim(MyString) <> "" Then With rst .AddNew !Text = MyString .Update End With End If Loop Close #1 rst.Close Set dbs = Nothing End Sub تحياتي .

السلام عليكم الأخ محسن سرحان .. آسف كثيرا على التأخير حيث كنت غائبا عن المنتدى طوال هذه الفترة . يبدو من الصورة أنك استطعت استخدام الكود عدا مشكلة أول سجل فإذا كان كذلك فإليك الكود بعد التعديل : Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim Ctl As Control With Me For Each Ctl In .Controls If Ctl.Section = 0 Then If .SN.Tag <> "" Then Ctl.BackColor = IIf(.SN - Val(.SN.Tag) <> 1, vbGreen, vbWhite) End If End If Next .SN.Tag = .SN End With End Sub تحياتي .

السلام عليكم أخي خضر .. أعتقد أن هناك منطقة عمياء فيما نتحدث به عن النتيجة ، فأعتقد أنك تخطط عملها على ورق A4 أو Letter ولكني ابتداءً كان تخطيطي أن تكون على نفس مقاس النتيجة الصغير "نيتجة طاولة" أي بحجم 10x7 سم تقريبا . وكما ذكرت سابقا ما تخيلته هو شبيه لما هو موجود عندنا حيث تحتوي على 10 أو 12 مدينة لكل أوقات الصلاة مع الشروق وبالتوقيتين الزوالي والغروبي . أي أن حجم المعلومات كبير لمساحة صغيرة . فكيف بنا أن نضيف أمور أخرى كفارق التوقيت لكل مدينة وطريقة الحساب . على كل حال نحتاج إلى رأي أخي أبي سليمان وخصوصا في ترجيح مقاس الورق وكيفية معالجة فارق التوقيت وتوضيح طرق الحساب . تحياتي .

السلام عليكم أخي أبو سليمان لا تنسى أن آخر طلب لي كان عمل تقارير ونتيجة والأخ خضر اختار النتيجة وبقت التقارير سوف تكون من جهتكم . مرفق قاعدة بيانات تحتوي على جدول المدن بعد تعديله وذلك بإضافة حقل المنطقة الزمنية وذلك لما شاهدته بفروقات كبيرة بين المدن لبلد واحد وعليه مطلوب حذف حقل المنطقة الزمنية من جدول البلدان والله يعينكما على تعديل الأكواد ، أرجو المعذرة كما مرفق دالتين بعد التعديل عليهما . ومرفق دالة أخرى لإظهار أي مدينة لا يستطيع برنامجنا التعامل معها حاليا لصلاة العصر وقد يكون الفجر والعشاء كذلك . فيستطيع أخي أبو سليمان الآن أن يعطي هذه الأوقات الثلاثة لون مختلف أو يجعل قيمتها Null . كما مرفق جدول للمدن التي لا يستطيع البرنامج التعامل معها للعلم فقط . آمل أن يمنع تبديل التوقيت الصيفي من النموذج ومن يريد أن يستخدم هذه الخاصية فعليه أن يضيف في جدول التوقيت الصيفي بيانات بلده . كما أن أطلب ممن يريد التعاون معنا التالي : 1 - معرفة طرق الحساب للبلدان وتحديثها بالجدول مباشرة أو إضافتها بملف أكسل ثم نقوم نحن بإضافتها . 2 - المساهمة بتعريب البلدان على أن يكون بملف أكسل . 3 - المساهمة بتعريب المدن على ان يكون بملف أكسل . تحياتي الملفات المرفقة CitiesTable.rar ( 236.23ك ) عدد مرات التنزيل: 3

السلام عليكم هذ الكود لأي عدد من الأعمدة ، أضف على كيفك وما يهمك :pp: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim Ctl As Control With Me For Each Ctl In .Controls If Ctl.Section = 0 Then Ctl.BackColor = IIf(.SN - Val(.SN.Tag) <> 1, vbGreen, vbWhite) End If Next .SN.Tag = .SN End With End Sub تحياتي .

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

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

السلام عليكم موضوع ذو صلة : تبادل الرسائل على الشبكة تحياتي .