king5star

لدي سؤال اخوانى هل يمكن عمل نموذج يقوم بفتح كاميرا الويب او لاب توب ويقوم بالتقاط صوره وحفظها فى ملف وعرضها مع معلومات الموظف ؟واذا يمكن فما الطريقة ؟ والثانى لقد استخدمت كود الاستاذة زهره لأدراج صور فى ملف فهل يمكن تعديله الى نصخ الصورة لمجلد القاعدة او مجلد اقوم بتحديده لنسخها فيه ثم استدعائها مع بيانات الموظف ؟ za-EMP.rar

لم يعمل معي فقد فتح الموبايل وبعد ذلك الكاميرا والتقط وخرج وظهر هذا الخطأ ولم اجد الجزء الخاص بكاميرا الويب ؟

عفواً اخى ووفقك الله .

شكراً اخى شيفان ولم تعمل معي هذه ايضاً ولكنها عملت بهذا الكود nTikrar = DCount("[Cus_Nump]", "Cus_Enter", "[Cus_Nump]=" & Me.Cus_Nump & " And [Date_Enter] = forms![Cus_Enter]![Date_Enter]")

تفضل اخى الحساب التراكمي1.rar

شكرا على هذه الاضافة الرائعة .

لم تعمل وهذا هو التعديل nTikrar = DCount("[Cus_Nump]", "Cus_Enter", "[Cus_Nump]=" & Me.Cus_Nump & " And [Date_Enter] = format(#" & Date & ",'yyyy/mm/dd'#") وجربت ايضاً nTikrar = DCount("[Cus_Nump]", "Cus_Enter", "[Cus_Nump]=" & Me.Cus_Nump & " And [Date_Enter] = format(#" & Date & ",'dd/mm/yyyy'#") وقمت بكتابة التنسيق فى الجدول و الحقل بالنموذج

ممكن توضح لى اكثر استاذ عبد الفتاح

السلام عليكم اخوانى لدي مشكلة فى داله عدم التكرار وكانت توجد داله وضعها استاذ شيفان وكان نصها Dim nTikrar As Integer nTikrar = DCount("[Cus_Nump]", "Cus_Enter","[Cus_Nump]=" & Me.Cus_Nump & " And [Date_Enter] = #" & Date & "#") ولكنها لا تعمل معى إلا بعد ازاله هذا الشرط " And [Date_Enter] = #" & Date & "#" غير ذلك لا تعمل فهل لها حل او طريقة اخري .

شكراً استاذ جعفر على هذا الكود وجعلك الله فى جنه الفردوس . شكراً لهذا الموضوع الشيق استاذ شيفان .

تسلم ايدك اخى شيفان وشكراً على هذا الكود .

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

اريد مساعدة فى ازالة المسافات بين الارقام وهذه صوره توضح المشكلة واستخدم هذه الداله لتوليد الرقم Dim S1, S2, S3, S4 As String S1 = Day(Date) S2 = Month(Date) S3 = Year(Date) S4 = Cus_Num S1 = str(YA) S2 = str(RA) S3 = str(WI) S4 = str(FE) Bar_Code = Trim(S1 + S1 + S3 + S4)

وجزاك خيراً اخى أبو زاهر

واتمنى لك التوفيق .

ولكن الجداول بداخل البرنامج وغير مرتبطه انا اريد كود يفعل حدث عن الساعة 00:00:00 فقط وانا سوف اقوم بكتابة الحدث هل يمكن ؟

اسعدتنى جداً كلماتك استاذنا جعفر . اتمنى ان يكون نال على رضاك اخى وفقت فى استخدامه . وياك اخى شيفان واتمنى ان يكون عند حسن ظنك . مثال جيد اخى محمد واتمنى ان ينول مثالى على رضاك .

شكراً لكم جميعاً فقد اتم العمل وهذه هديه لكم ولكل الاعضاء

بسم الله الرحمن الرحيم اولاً الشكر كل الشكر الى اساتذتى الكرام الذى بفضلهم وصل المشروع الى هذا الحد وبالاخص : استاذ : جعفر لك جزيل الشكر استاذ : ابو عبدالله لك جزيل الشكر استاذ : شيفان لك جزيل الشكر استاذ : ابو خليل لك جزيل الشكر شرح العمل ببساطة يقوم المستخدم باختيار الالوان التى يريدها من نموذج color وتطبق على جميع البرنامج فقط قم باستدعاء هذه الداله فى حدث عند التحميل Call Color_V(Me) وسوف تقوم هى بضبط الاعدادات قم بستدعاء الوحدات النمطية والجدول الخاص بالتخزين الاكواد و النموذج الى برنامجك دون تعديل ويتوفر بالاصدارين لـ2010 و لـ2003 ونتمنى من اساتذنا ان يقوموا بتعديله حتى يصبح برنامج كبرنامج مسقط التقارير او القلعة ولا اسألكم سوي الدعاء Color 2010.zip Color2003.zip

بارك الله فيك اخي @ابو خليل وجزاك خيرا ساجربه واخبرك بالنتائج

شكراً لمجهودك اخى محمد ولكن لدي طلب هل يمكن ان اضيف كود يقوم بعمل النسخ احتياطي داخل برنامجي نفسه واضافته فى home form ويعمل نسخ تلقائى كمثال الساعة 00:00:00 مثلاً ؟

شكراً لمجهودك وتعبك اخى جعفر بالفعل لقد وجدتهم امس ووجدت افضل من الذى عرضته فى اول مشاكره ولكن تبقت مشكلة وهي تخزين قيمة اللون فى جدول وقد قمت بتعديل جزء فى الكود لاخراج قيمة اللون المختار ولكن الكود المتولد غير معرف بانه لون وقد وضع المصمم note موضح بها كيفيه استخراج اللون ولكنها لا تريد ان تعمل معى فهل لى بالمساعدة ' If you want this Function to simply Return ' the Value of the Color the user selected ' from the Dialog just change the Function ' Declaration in modColorPicker to something like: 'Public Function DialogColor(ctl As Control) As Long ' Remember to add the line of code at the ' end of the Function 'DialogColor = CS.rgbResult ' Then call it from your Form with code like: '***Code Start 'Private Sub CmdChooseBackColor_Click() ' Pass the TextBox Control to the function 'Me.textCtl.BackColor = DialogColor(Me.textCtl) 'End Sub Color.zip

السلام عليكم اخوانى اريد اضافة زر امر يظهر لى Color Piker ولكن لم اجد اى دليل على امكانية وضعه للاكسس فقمت بالبحث ووجدت كود وضعه احد المبرمجين على موقع اجنبي ولكنه معقد جداً فاريد منك المساعدة وهي تعديله لحفظ قيمة اللون المتولد لجدول او لو يوجد امكانية له فى الاكسس فكيف ؟ ولكم جزيل الشكر ColorPicker.zip

الحمد لله توصلت الى نتيجة جيدة ومرضيه حتى الان ولكن لو يمكن تبسيط الكود كون افضل حتى يستوعب الجداول جميعها مهما كان عددها Delete.zip

السلام عليكم اخوانى . معى مشكلة فى كود اقوم من خلاله بحذف البيانات بداخل جداول القاعدة فيوجد فى المثال ثلاث جداول ونموذج للحذف ، ما اريده او عندما يتم الضغط على زر افراغ الجداول يفرغ الجداول من كافة البيانات وزر اخر لافراغ جميع الجداول عدا جدول محدد ولكم جزيل الشكر . Delete.zip