أمير2008

هههههههههه

كيفك أستاذ حماده ؟

أنا قبل تسجيل الدخول كنت على الانترنت و سمعت ضجيجاً وصراخاً داخل منتدى أوفيسينا

فقلت أدخل المنتدى  يمكن يكون هناك أعضاء يتعاركون أو شيئ من هذا القبيل

فوجدتك تصرخ طالباً المساعدة

هههههههه

على العموم على حد علمي فأنت تحتاج للاستخدام  دالة If

وفي مثالك جرب التالي عند الضغط على زر الحفظ :

  On Error Resume Next
    DoCmd.SetWarnings False
    If MsgBox("هل تريد حغظ التغييرات", vbYesNo, "الجفظ") = vbNo Then
Cancel = -1
   Me.Undo
   DoCmd.SetWarnings True
Else
If Nz(Me.student_name, 0) = 0 Or Nz(Me.gender, 0) = 0 Or Nz(Me.faculty, 0) = 0 Or Nz(Me.class, 0) = 0 Or Nz(Me.entry_data, 0) = 0 Then
MsgBox ("هناك حقول لم يتم كتابتها")
If Nz(Me.entry_data, 0) = 0 Then Me.entry_data.SetFocus
If Nz(Me.class, 0) = 0 Then Me.class.SetFocus
If Nz(Me.faculty, 0) = 0 Then Me.faculty.SetFocus
If Nz(Me.gender, 0) = 0 Then Me.gender.SetFocus
If Nz(Me.student_name, 0) = 0 Then Me.student_name.SetFocus
Else
DoCmd.GoToRecord , , acNewRec
End If
End If

تمام

فهمت أنك تعمل على تصميم برنامج مبيعات

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

مثلاً : 

المفترض أن الكمية أو رصيد الصنف  لا تكتب بجدول الصنف وإنما تحسب من الكمية المشتراه مطروحا منها الكمية المباعة

لكن هل تحتاج لتسجيل المشتريات كفواتير ؟

بصورة عامة فبرنامجك حاليا يمكن  يخرج القماش

هههههههه  هذا تعبير عندنا نقوله اذا نجح شيئ وأنتج .

سبحان من ألف بين القلوب

أضفت لك نموذج بحث يمكنه أن يتجاهل الاختلاف في الهمزة والياء والواو  و ؤ

لكن محتاج تجربة منك

11112.rar

وعليكم السلام ورحمة الله

الله يكرمك أستاذ غريب وشكرا على التشجيع

وطبعا  الشكر للأستاذ @رمهان حيث استوحيت الفكرة من مشاركته 

يمكنك حذف كود الاخفاء من النموذج frm_1

Forms!form1!Sb_2.Form.Visible = False

- وعمل النموذج الثالث كنموذج مستمر  كما كان  لتتوالى الأصناف

لكن لن تتوالى الأصناف طالما أن اخترت الضغط على صنف واحد لرؤية تفاصيله

أهم شيئ في الموضوع كله هذا الكود :

b = "b" & i
Me.Controls(b).Caption = rs!Iname

السطر الثاني مقتبس من فكرة أ/ رمهان  وهو كود هام جدا يربط بين عنوان الزر وبين الصنف بالجدول

أما السطر الأول فلا أعلم ماذا أقول عنه ... بسيط لكن جميل وظيفته المرور على كافة الأزرار

b = "b" & i

21 ساعات مضت, رمهان said:

قبل كل شي فتحت الجدول table1 لديك ولم اجد اسماء الازرار كلها مسجله به 

ممتاز

بارك الله فيكم 

مجهود رائع

وهذه طريقة أخرى مشابهة لفكرة أ/ رمهان  

يعني زي ما بيقولوا الجماعة الهنود في دول الخليج  same same

وبالمثال تختار   نوع المجموعة فيظهر أصنافها تلقائيا  ومرتبة على أزرار وتختفي باقي الأزرار

وعند الضغط على احدى الأزرار يظهر بيانات الصنف في النموذج الثالث

food3.rar

برنامجك جميل وأستأنك في الاحتفاظ به واستخدام أجزاء منه وقت الحاجة

وسأتابع تعديلاتك

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

لكن الأفضل يتواجد بالجدول  مع اضافة حقل : انهاء (نعم/لا ) 

وفي الاستعلام تشترك أن يكون الموظف : حقل الانهاء : لا

وفي حالة اعادته تقوم بازالة علامة الصح من الشيك بوكس لتتحول إلى لا

احذف الوحدة النمطية openfile

افتح الوحدة النمطية fileOpen وغير الأسطر :

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
  "GetOpenFileNameA" (ofn As OpenFileName) As Boolean

Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias _
  "GetSaveFileNameA" (ofn As OpenFileName) As Boolean

إلى :

Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
  "GetOpenFileNameA" (ofn As OpenFileName) As Boolean

Public Declare Function GetSaveFileName Lib "comdlg32.dll" Alias _
  "GetSaveFileNameA" (ofn As OpenFileName) As Boolean

وجرب

13 ساعات مضت, jjafferr said:

حياك الله أخوي أمير

انا اقول هذه الصورة مب غريبة عليّ ، بس العتب على الشيب

جعفر

الله يكرمك أستاذنا جعفر. ده شرف لي. 

11 ساعات مضت, sandanet said:

 اتمنى وجودك المستمر معنا وعدم الانقطاع عن هذا المنتدى الرائع الذي فيه اساتذة محترفين ومحترمين جداً لم اكن اتخيل وجودهم مجتمعين هنا في مكان واحد  ..تحياتي

طالما عندي متسع من الوقت فإن شاء الله أكن معك . 

فعلا حاجة غريبة تواجد قدر كبير من خبراء حقيقيين بالأكسس بمنتدى واحد !! بس أكيد صدفة.

هههههههههههههههه

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

لكن لتعلم أخي أنا هنا لأتعلم نظراً لابتعادي فترة كبيرة عن الأكسس

وما شاء الله أساتذة محترمين ومتواضعين ولهم علم  وافر

كل يوم أتعلم منهم جديد

وأنا لا أقبل أي مناصب لا في الحياة الواقعية  ولا في الحياة الالكترونية

وبعدين مينفعش أكون عميد لربما أسوي  انقلاب بالمنتدى 

تمام

سأرى تعديلك إن شاء الله

بالنسبة لسؤالك :

الأفضل أن  نستخدم الأرقام للدلالة على الأسماء ويتم تخزينها بالجدول 

وفي نفس الوقت يمكن  ظهور الاسم في الجدول أو الاستعلام بالرغم من وجوده بالجدول كرقم ،  مثل التعديل بالمرفق

والتعديل :

كان أمامي عدة اختيارات :

الأول : أن تختار الموقع  ثم تختار الفرع استناداً إلى ذلك الموقع

الثاني : أن تختار القطاع ثم تختار الموقع استناداً إلى القطاع  ثم تختار الفرع استناداً إلى الموقع

الثالث : أن تختار القطاع أو الموقع أو كلاهما ثم تختار الفرع استناداً إلى اختيارك لأحدهما أو كليهما

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

وقد  اخترت الخيار الثالث  ، لكن القرار لك طبعاً

Backup_2.rar

تمام

بس تأكيد على طلبك :

القطاع  يحتوي أكثر من فرع ثم الفرع يحتوي أكثر من شركة ؟

أم :

القطاع يحتوي أكثر من شركة ثم الشركة تحتوي أكثر من فرع ؟

------------

سؤال آخر للاحتفاظ ببياناتك :

الجدول الذي بياناته بها :  (  أكتوبر - شل و ABB و ATM ..... )  هو جدول للأفرع أم للشركات ؟

والجدول الذي بياناته بها :  (QNB و بنك المشرق ..... ) هو جدول للأفرع أم للشركات ؟

-------------

سؤال آخر :

مصطلح الموقع تقصد به : فرع أم شركة أم قطاع ؟

ياباشا ده شغل ممتاز الله ينور

أنا جربت في نموذج البيانات الشخصية ( الموقع - القطاع - الفرع )

وأعتقد أنك تريد :

عند اختيار قطاع يظهر المواقع الخاصة به في قائمة الموقع 

وعند اختيار موقع يظهر الأفرع (الشركات) الخاصة به في قائمة الفرع (الشركة)

أليس هذا  صحيحاً وهو ما تريد تنفيذه ؟

4 ساعات مضت, jjafferr said:

 

 

والله يا أخي هذا شيئ رائع وممتع وأفكار جديدة

ربنا يجزيك كل خير

 

جعفر

- أنا بمزح طبعاً بخصوص شباب القرية هههههههههه.

- يمكن اختيار أكثر من تصميم للبرنامج والحكم على أفضل تصميم  مسألة نسبية.

- مع بدء توالي خطوات تصميم البرنامج سوف تحتاج العلاقات داخل الاستعلامات.

- أنا لا أعترض علي ربط الجداول معاً  لكن لا أفعل ذلك لضيق الوقت أولاً ولصغر البرنامج المطلوب ثانياً.

احدى الطرق

empy.rar

ممتاز

حاول تضيف امكانية ارفاق ملف 

الملف عندي شغال تمام

بعد إذن أستاذنا محمد نجار

أ/ محمد 7172  :

العلاقات مهمة جدا طبعا ولا خلاف على ذلك

إلا عندنا في القرية

 فشباب القرية من المبرمجين ذوي الخبرات الواسعة التي تتعدى ثلاثة أو أربعة أشهر في البرمجة اللحظية

دايماً بيعملوا برامجهم بدون أي علاقات بين الجداول

وفشلنا في اقناعهم ، وكل ما نحفظهم ازاي يعملوا علاقة : One to many  ويرسموا نموذج ERD

نلاقيهم يكتبوها ( ون تو ميني ) لكن بدون ما يعملوها بالفعل

زي المثال ده واللي ترجم بياناتك لمطلوب يشبه مطلوبك

persony.rar

الموضوع ده هدفه جميل

بس في الكثير من الأحيان الاقتباس قبل الرد له أهمية ويفيد القارئ في فهم ما يريد  كاتب الرد أن يقوله

كلامك ممتاز و أكيد طبعاً

بس دايماً أحب تعدد الحلول لنفس المشكلة

اقتباس

نى أرقام فى الحقل الأساسى رقم المدرسة

بدون أسماء مدارس مقابلة لها

هناك عدة طرق ومنها :

- استعلام حذف  -مع بداية تشغيل البرنامج  أو اغلاقه - للسجلات المحتوية على اسم المدرسة فارغ  

- تسجيل البيانات بمربعات نص غير مرتبطة ثم استعلام اضافة  للسجل يعمل عند ضغط زر الحفظ.

اضافتي هذه للجملة المقتبسة فقط  وليست للموضوع كله

جزاكم الله خيرا أ/ جعفر وزادكم من علمه

هههههههه

لو عاوز نصيحتي ( بالرغم من أن المشكلة ليست واضحة لي )  فعليك أن تغير التصميم علشان تقدر تتحكم في الفراغات

على سبيل المثال المرفق

g.rar

ممتاز

بس عندي سؤال ولا أتذكر أني سألت من قبل هنا بالمنتدى ههههههه

الكود 

Rs.MoveLast: Rs.MoveFirst

أنا رجحت أن معناه : انتقل للسجل الأخير ثم للسجل الأول ، فاذا كان اعتقادي صحيح فلماذا ينتقل للسجل الأول والمفترض أن ذلك يحدث طبيعاياً عند فتح النموذج ؟