-
Posts
6,521 -
تاريخ الانضمام
-
Days Won
169
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو ابو جودي
-
ربط اوليات المراسلات الاولية مع بعضها البعض
ابو جودي replied to زياد الحسناوي's topic in قسم الأكسيس Access
طيب اعتقد ممكن عمل حقل الارتباط نصى وليس رقمى على ان يأخذ الصيغة الاتية للوارد يبدأ بحرف W ثم بعد ذلك رقم الكتاب الذى تريد الارتباط به للصادر يبدأ بحرف S ثم بعد ذلك رقم الكتاب الذى تريد الارتباط به مثال تم ارسال صادر رقم 101 الى جهة ما ..... تم الرد علينا من هذه الجهة واشاروا الينا فى الرد انه بناء على الكتاب الصادر برقم 101 ووو بلا بلا بلا .. فى هذه الحالة سوف نقوم بتسجيل البيانات كالاتى فى بنموذج الوارد رقم الوارد 3 رقم صادر الجهة المرسلة الينا رقم الارتباط سوف يكون فى هذه الحالة S101 طيب اذا رقم الارتباط هذا ولابد ان يكون فى الجدولين فى هذه الحالة يتم الاتى يتم عمل استعلام تحديث للصادر بشرط الفرز والتصفية على الرقم 101 ويتم تحديث رقم الارتباط فيه بالرقم من النموذج S101 طبعا والعكس للوارد -
ربط اوليات المراسلات الاولية مع بعضها البعض
ابو جودي replied to زياد الحسناوي's topic in قسم الأكسيس Access
فى حالة الارتباط هل دائما الاساس الذى يتم الارتباط به هو الصادر فقط ؟ ام هناك صادر قد يكون هو المرتبط بالوارد ؟ -
سؤال مهم عن السيكوال وخدمة remote desktop
ابو جودي replied to tiger wanted's topic in قسم الأكسيس Access
ممكن توضيح للمعنى المقصود من ريموت ديسك توب ؟! هل تقصد على الشبكة المحلية ؟ ام على الانترنت ؟ -
اخفاء واظهر الحقول باستخدام If لا تعمل عند أختيار معين
ابو جودي replied to زياد الحسناوي's topic in قسم الأكسيس Access
اهلا اخونا @شايب -
هل الصورة سوف تكون داخل نموذج ؟
-
عندى فوكيره برمجيه لان الكود الذى اشرتم اليه لا يعمل مع ويندوز 10
-
جعل السكنر يقوم باخذ اكثر من صورة وتحويلها الى ملف pdf
ابو جودي replied to زياد الحسناوي's topic in قسم الأكسيس Access
نعم استاذى الكريم الحل فى هذه المشاركة -
طيب ليه 3 مربعات بحث ... غريبة دى
-
شاركونا التهنئة بارتقاء اخوين عزيزين على قلوبنا الى مجموعة الخبراء
ابو جودي replied to ابوخليل's topic in قسم الأكسيس Access
اولا كل الشكر لجميع اساتذتى الكرام أعضاء فريق الموقع جميعا على وجه العموم 💐 وعلى وجه الخصوص الاستاذ الجليل @محمد طاهر عرفه 💐 جزاكم الله خيرا جميعا على جهودكم الطيبة المباركة سائلا الله عزوجل ان يتقبلها فى موازين اعمالكم .. امين امين امين💐 اساتذتى الكرام الاستاذ @عمر ضاحى الاستاذ @Foksh تصدق فعلا احنا مخربطين وانا قلت من الاول ده ما ينفع ... الشعب يطالب و يريد سحب العضويه منه -
اخفاء واظهر الحقول باستخدام If لا تعمل عند أختيار معين
ابو جودي replied to زياد الحسناوي's topic in قسم الأكسيس Access
والله انا حرفيا كنت تعبان جدا جدا بالامس ولم اكن قادرا على التركيز للتدقيق والتمحيص والتحليل لذلك ظللت أسألك عن طلبك وانفذه من البداية للنهاية انا الان من الجوال ان اردت انظر الى المرفق الاصلى واتتبع الكود واخبرك وعلى كل الحمد لله انت الان استفدت بمعرفة بناء دالة select case عن نفسي افضلها عن دالة IF -
اخفاء واظهر الحقول باستخدام If لا تعمل عند أختيار معين
ابو جودي replied to زياد الحسناوي's topic in قسم الأكسيس Access
اتفضل يا سيدى ان شاء الله يكون ده طلبك Database2 (3).accdb -
اخفاء واظهر الحقول باستخدام If لا تعمل عند أختيار معين
ابو جودي replied to زياد الحسناوي's topic in قسم الأكسيس Access
جرب النموذج الجديد وخليما نشوف موضوع عند الفتح غدا ان كان فى العمر بقية ان شاء الله عرفنى بس النموذج الجديد شغال تمام كما تريد ام لا Database2 (1).accdb -
اخفاء واظهر الحقول باستخدام If لا تعمل عند أختيار معين
ابو جودي replied to زياد الحسناوي's topic in قسم الأكسيس Access
طيب ارجوك لا تعدل على ردودك نعيد من تانى اول شئ انت عاوز ايه عند فتح النموذج ؟! -
اخفاء واظهر الحقول باستخدام If لا تعمل عند أختيار معين
ابو جودي replied to زياد الحسناوي's topic in قسم الأكسيس Access
طبعا لما نوصل للنتيجة بس ممكن تكون لى فكرة بعمل روتين عام للتقليل من كتابة الاكواد واضفاء مؤونة أكثر وسهولة فى الاستخدام ان كان هناك الكثير من هذه الحركات بس اكيد مش اليوم لان فعلا انا خلاص لا شايف ولا فاهم حاجه نصائح هامة انا عندى غلطه هنا انى استخدمت الاحرف العربية داخل محرر الاكواد طبعا عارف بس فعلا تعبان .. اياك تعمل زى ما انا عملت حاول تستخدم دالة Select افضل كثيرا جدا جدا جدا من دالة IF انت عدلت دلى ع الرد الاول وانا اعتقدت انه انتهى الكلام -
اخفاء واظهر الحقول باستخدام If لا تعمل عند أختيار معين
ابو جودي replied to زياد الحسناوي's topic in قسم الأكسيس Access
اتفضل جرب ورد على Database2.accdb -
اخفاء واظهر الحقول باستخدام If لا تعمل عند أختيار معين
ابو جودي replied to زياد الحسناوي's topic in قسم الأكسيس Access
تمام تانى حطوة ؟ -
اخفاء واظهر الحقول باستخدام If لا تعمل عند أختيار معين
ابو جودي replied to زياد الحسناوي's topic in قسم الأكسيس Access
شوف يا سيدى ايه رايك بدل تعب الاعصاب واللف على الكود وانا تعبت بصراحة انا اسالك وانت تجاوب ونمشى خطوة بعد خطوة علشان نقصر الطريق علينا اول خطوة لما تختار حقل تصنيف الصادر عند اختيار جديد ايه اللى يختفى ؟ -
عدم تسجيل الموظف بدورة اذا كان في دورة اخرى
ابو جودي replied to Hamtoooo's topic in قسم الأكسيس Access
وجب التنويه الى شئ مهم وهى طريقة استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل والتى اعتمد استاذى ومعلمى الجليل فيها على حصر تاريخي البداية والنهاية بكل صراحة لم افهم الحكمة من ذلك وعلى اعتبار ان تاريخ اكبر اخر نهاية دورة هو الاساس وهو كان محور تركيزى واهتمامى فقط استحييت من اسأل استاذى على العام هنا ليس كبرا منى على العلم والله بل حياء منى و تقديرا وتبجيلا لمعلمى ظنا منى ان استاذى ومعلمى لم ينتبه الى هذه الجزئية وعلى الفور توجهت الى استاذى فى رسالة خاصة ولما تفضل بالرد على ازدت علما بجهلى فوجب التنويه الى ان بناء الكود بذلك الشكل هو الاصح وطبعا بعذ اذن استاذى الجليل ومعلمى القدير و والدى الحبيب بارك الله فيه انقل اليكم اقتباس ما دار بينى واستاذى لتعم الفائدة كان سؤالى على النحوى التالى وكانت اجابة استاذى الجليل ومعلمى القدير و والدى الحبيب ولذلك تم تعديل المشاركة التى تحتوى على المرفق ببناء الكود الصحيح واعادى رفع المرفق كذلك على طريقة استاذى الجليل ومعلمى القدير و والدى الحبيب -
جعل السكنر يقوم باخذ اكثر من صورة وتحويلها الى ملف pdf
ابو جودي replied to زياد الحسناوي's topic in قسم الأكسيس Access
حضرتك انا والله مش عندى اسكانر الان وانتقلت من عملى لذلك لا استطيع تجربة اى شئ ولكن هل قمت بتجربة المرفق الذى اشرت اليه فى مشاركتى ؟! -
استنى انا بهزر معاك طبعا انا عارف البيانات دى موجوده هنا وفتحت القاعدة Users id Username Password Full_Name Email User BackUp Aqsat 1 Admin admin مسؤول الصالة الرياضية Yes True Yes فى الجدول ده بس انا باتكلم عن كلمة السر التانية اللى هى 12345 بتاعة المهندس واللى مش موجودة فى الجدول واللا القاعدة دى مش بتاعتك واللا ايـــــه
-
تغيير قيمة في جدول بناء علي قيمة في جدول اخر
ابو جودي replied to abanob khairy's topic in قسم الأكسيس Access
يا استاذ @abanob khairy اتمنى اكون فهمتك صح ومشاركة مع اساتذتى الافاضل الكرام اتفضل جرب المرفق الاتى الحاق(2).accdb -
اولا وقبل كل شئ اسأل الله تعالى لوالدكم و والدى وكل المسلين الرحمة والمغفرة وان يحعل الله قبورهم روضة من الجنة يارب العالمين واسأل الله تعالى لوالدتكم و والدتى الحبيبة وكل مريض الشفاء من الله عزوجل وان يرزقكم ويرزقنى وكل المسلمين بر ابائنا وامهاتنا يارب العالمين ثانيا انت نسيت تقول كلمة المرور ومش عارف اجرب يا سلام لو كانت سهلا مثلا 12345 عشان اعرف اجرب
-
عدم تسجيل الموظف بدورة اذا كان في دورة اخرى
ابو جودي replied to Hamtoooo's topic in قسم الأكسيس Access
الشرح والمرفق اولا سوف استخدم نموذج غير منضم لادراج البيانات الى الجدول وسوف اقوم بعمل وحدة نمطية واقوم بإضافة الكود الاتى Public Function ClearControls(ByRef Frm As Access.Form) On Error GoTo errClear Dim ctr As Access.Control For Each ctr In Frm.Controls If ctr.Tag = "ctrClear" Then ctr.Value = Null Next ctr Exit Function errClear: MsgBox Err.Number & " " & Err.Description & " in Clear Controls" Resume Next End Function وظيفة الكود الدوران على جميع عناصر التحكم فى النموذج ليقوم بتغيير القيم الى Null وطبعا لانى لو اردت استخدامه على عناصر محدده دون أخرى أو استخدامه فى نماذج اخرى منضمه لن أحدد نوع عناصر التحكم فى الكود ولكن سوف استخدم وظيفة التاج على عناصر التحكم يعنى سوف يقوم الكود بالدوران على جميع عناصر التحكم فى النموذج ليغير قيمها الى Null عند تحقق الشرط وجود كلمة ctrClear فى خاصية التاج على عناصر التحكم مثل الصورة الاتية طبعا يتم استخدام هذا الكود باستدعاءه عند الضغط على زر جديد كالتالى Call ClearControls(Me) والان عند الضغط على زرحفظ نريد منه عند تحقق الشرط بعدم وجود تسجيل لنفس الموظف فى دورة جديدة فى حالة تسجيل نفس الموظف فى دورة أخرى ضمن تاريخ انعقاد الدورتان اى لابد ان تنتهى أى دروة سابقة وكذلك لن يمكن تسجيل تاريخ اقل من أو يساوى تاريخ اى دورة انتهت يكون الكود بالشكل الاتى عند التحقق من التاريخ لو النتيجة المطلوبة صحيحه يتم حفظ البيانات فى الجدول من خلال اضافة البيانات عن طريف الـ Recordset Dim db As DAO.Database: Dim rs As DAO.Recordset: Dim strMsg As String: Dim strTitle As String Dim dtmMaxStartDate As Date: Dim dtmMaxEndDate As Date: Dim dtmNewDate As Date dtmNewDate = Me.txtCstart dtmMaxStartDate = DMax("[Cstart]", "courses", "[num] =" & Me.txtNo) dtmMaxEndDate = DMax("[Cend]", "courses", "[num] =" & Me.txtNo) strMsg = ChrW(32) & ChrW(1607) & ChrW(1606) & ChrW(1575) & ChrW(1603) & ChrW(32) & ChrW(1583) & ChrW(1608) & ChrW(1585) & ChrW(32) & ChrW(1605) & ChrW(1606) & ChrW(1593) & _ ChrW(1602) & ChrW(1583) & ChrW(1577) & ChrW(32) & ChrW(1576) & ChrW(1575) & ChrW(1604) & ChrW(1601) & ChrW(1593) & ChrW(1604) & ChrW(32) & ChrW(1601) & ChrW(1609) & _ ChrW(32) & ChrW(1606) & ChrW(1591) & ChrW(1575) & ChrW(1602) & ChrW(32) & ChrW(1578) & ChrW(1575) & ChrW(1585) & ChrW(1610) & ChrW(1582) & ChrW(32) & ChrW(1575) & _ ChrW(1604) & ChrW(1583) & ChrW(1608) & ChrW(1585) & ChrW(1577) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1580) & ChrW(1583) & ChrW(1610) & ChrW(1583) & ChrW(1577) & _ ChrW(32) & ChrW(1604) & ChrW(1607) & ChrW(1584) & ChrW(1575) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1605) & ChrW(1608) & ChrW(1592) & ChrW(1601) & ChrW(13) & _ ChrW(10) & ChrW(1604) & ChrW(1606) & ChrW(32) & ChrW(1610) & ChrW(1578) & ChrW(1605) & ChrW(32) & ChrW(1578) & ChrW(1587) & ChrW(1580) & ChrW(1610) & ChrW(1604) & _ ChrW(32) & ChrW(1576) & ChrW(1610) & ChrW(1575) & ChrW(1606) & ChrW(1575) & ChrW(1578) & ChrW(32) & ChrW(1607) & ChrW(1584) & ChrW(1575) & ChrW(32) & ChrW(1575) & _ ChrW(1604) & ChrW(1605) & ChrW(1608) & ChrW(1592) & ChrW(1601) & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & ChrW(1571) & ChrW(1608) & ChrW(32) & ChrW(1571) & _ ChrW(1606) & ChrW(1603) & ChrW(32) & ChrW(1578) & ChrW(1581) & ChrW(1575) & ChrW(1608) & ChrW(1604) & ChrW(32) & ChrW(1578) & ChrW(1587) & ChrW(1580) & _ ChrW(1610) & ChrW(1604) & ChrW(32) & ChrW(1578) & ChrW(1575) & ChrW(1585) & ChrW(1610) & ChrW(1582) & ChrW(32) & ChrW(1594) & ChrW(1610) & ChrW(1585) & _ ChrW(32) & ChrW(1589) & ChrW(1581) & ChrW(1610) & ChrW(1581) strTitle = ChrW(1600) & ChrW(1600) & ChrW(1600) & ChrW(1600) & ChrW(1600) & ChrW(1600) & ChrW(1607) & ChrW(124) & ChrW(67) & ChrW(97) & ChrW(117) & ChrW(116) & ChrW(105) & ChrW(111) & ChrW(110) & ChrW(124) & ChrW(1578) & ChrW(1606) & ChrW(1576) & ChrW(1610) & ChrW(1600) & ChrW(1600) & ChrW(1600) If (dtmNewDate >= dtmMaxStartDate) And (dtmNewDate <= dtmMaxEndDate) Then: MsgBox strMsg, vbOKOnly + vbMsgBoxRight, strTitle: Exit Sub Set db = CurrentDb Set rs = db.OpenRecordset("courses", dbOpenDynaset) With rs .AddNew !num = txtNo !namee = txtName !Cname = txtCname !Cstart = txtCstart !Cend = txtCend .Update End With Set rs = Nothing Set db = Nothing واخيرا المرفق دورات (3) .accdb -
عدم تسجيل الموظف بدورة اذا كان في دورة اخرى
ابو جودي replied to Hamtoooo's topic in قسم الأكسيس Access
وبصراحة لأنى كنت فى عجلة من أمرى وقت وضع الاجابة والتى لا تملئنى بكل الرضا لذلك لم اهتم بوضع القاعدة بالتطبيق سوف اقوم الان بعمل الالية التى لو كنت مكانك لاستخدمتها على الفور