mzaki

الاخ العزيز سوف اقوم بعمل المطلوب ووضعه لك هنا ان شاء الله مع تحياتى اخوك mzaki

حاول ارفاق مثال هنا http://www.officena.net/ib/index.php?showforum=58 وان شاء الله سوف يتم الحل اخوك mzaki

بسم الله الرحمن الرحيم استخدم هذا الكود Dim T As Long, NumID As Long If RecordCount = 0 Then txtID = 1 If RecordCount > 0 Then With Recordset.Clone .MoveFirst For T = 1 To .RecordCount NumID = NumID + 1 If !id <> NumID Then txtID.Text = NumID Exit Sub End If .MoveNext Next txtID = NumID + 1 End With End If مع تحياتى mzaki

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

اهلا وسهلا بك و نرجو أن تفيد و تستفيد

السلام عليكم ورحمة الله وبركاته الاخ العزيز / meteb بناء على استدعاء من الاخ امجد جمالى لرؤية المشاركة بالفعل يوجد الكثير من طرق الربط بين أكسيس وفيجوال ولكن يرجى توضيح استخدام الربط حتى يتسنى لنا تقديم الطريقة المناسبة وكن مطمئن باذن الله مع الشكر mzaki

السلام عليكم الاخ / rudwan اليك ما طلبت وهو مثال لايقاف الماوس ايقافاً نهائياً مع العلم أنه لا يمكنك عمل أى شى غير اغلاق الجهاز مع تحياتى وشكراً mzaki db1.rar

بسم الله الرحمن الرحيم الاخ العزيز يرجى التوجه لهذا الرابط وسوف تحصل على ماتريده باذن الله http://www.officena.net/ib/index.php?act=SF&f=21 مع تحياتى شكراً mzaki

بسم الله الرحمن الرحيم الاخ العزيز هذا ملف txt وبه كيفية نسخ بيانات حقل الى حقل مع تحياتى mzaki txt.rar

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

بسم الله الرحمن الرحيم الاخ العزيز / محمد طاهر عندى اقتراح اتمنى ان نستطيع تنفيذه وهو لماذا لا يكون موجود وسيلة للمناقشة الفورية بين السائل والمجيب مثل حوارات chat مثلاً فهذه خدمة فورية ومن مصلحة الجميع توافرها اى عندما يريد العضو سؤال يمكنه اختيار مشرف او مراقب او ..... غيرهما حتى يفتح معه حوار ثم يتناقشوا فى الموضوع أو السؤال اعتقد ان ذلك مهم وافضل مع تحياتى وشكرى اخوك mzaki

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

عزيزى بما انك ليس لديك الفيجوال بيسيك فيجب انزال هذه الملفات عندك ووضعها على c:\ وشكراً mzaki ocx.rar

بسم الله الرحمن الرحيم الاخوة الكرام أنا من قام بطرح الموضوع واحب ان احيكم علما بأن بريدى الآن وصل 250 ميجا بالفعل اطمانوا جميعا فهى رائعة واكثر من رائعة فعلاً مع خالص تحياتى وشكراً اخوكم mzaki

بسم الله الرحمن الرحيم الاخوة الكرام أنا من قام بطرح الموضوع واحب ان احيكم علما بأن بريدى الآن وصل 250 ميجا بالفعل اطمانوا جميعا فهى رائعة واكثر من رائعة فعلاً مع خالص تحياتى وشكراً اخوكم mzaki

السلام عليكم اخى العزيز صابر يمكنك استخدام هذا البرنامج فهو يقوم بكشف اسم المستخدمين وكلمات المرور ولكن عدنى بأنك لن تسئ استخدامه بالتعدى على حقوق الغير مثلاً اخوك mzaki mdw_mda.rar

السلام عليكم الاخ / جمال هذا مثال لاخفاء الماوس نهائياً عند فتح النموذج ..... وهذا افضل من ايقافه واذا اردت ايقافه بالفعل سوف ارسل لك مثال ايضا مع تحياتى mzaki db1.rar

بسم الله الرحمن الرحيم أصدقائى الاعزاء هذا اهداء يرجى الاطلاع عليه والتعقيب ولكم تحياتى mzaki vbIconMaker.rar Desktop_Locker.rar

السلام عليكم بعد الاجابة على هذا السؤال سوف تحصل على حل اكيد ان شاء الله وهو : هل يوجد لديك الملف الخاص بامتداد mdw ? اذا كانت الاجابة بـــ لا فالافضل ان لا تحاول لانها محاولة فاشلة مهما فعلت وشكرا mzaki

عزيزى معلهش فهو مجرد سهو من الاخ سهل وهذا هو الرابط http://www.officena.net/ib/index.php?showforum=58 فقط انشئ موضوع جديد وادرج فيه الملف مع الشكر mzaki

بسم الله الرحمن الرحيم يا أخ انك قمت بتحديد من تريده للرد على استفسارك وهذا ضد مبادئ المنتدى فلا يجب ان تقوم بتحديد السؤال لشخص بعينه وكان من المفروض ان تحذف هذه المشاركة نهائيا ولكن لأن المسؤلين هنا رحماء فتركوه وتركوك لمن تريد واتمنى من الاخ امير ان يقوم بالرد عليك وشكرا mzaki اين انت اخى سهل

عزيزى لابد من وجود خطأ ما اذهب الى هنا http://www.officena.net/ib/index.php?showtopic=177 وهذه طريقة للحماية بمستوى متقدم وشكراً mzaki

عزيزى راجع هذا الرابط بالتوفيق ان شاء الله http://www.officena.net/ib/index.php?act=SF&s=&f=21 وشكرا mzaki

بسم الله الرحمن الرحيم هذا كود يقوم باخفاء مؤشر الماوس يتم وضع الكواد فى حدث عند التحميل للنموذج المراد Private Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long) Private Sub Command1_Click() ShowCursor& 0 End Sub Private Sub Form_Unload(Cancel As Integer) ShowCursor& 1 End Sub وهذا يقوم بايقاف الماوس يتم وضع الكود فى حدث عند التحميل للنموذج المراد Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Activate() DoEvents 'block the mouse and input BlockInput True 'wait 10 seconds before unblocking it Sleep 10000 'unblock the mouse and input BlockInput False End Sub يتم وضع الكود فى حدث عند التحميل للنموذج المراد

السلام عليكم الاخ العزيز intel45 هذا مثال لعمل copy or backup ولعمل ساعة بالثوانى فقم بتحديد الفاصل الزمنى الى 1000 ولعمل نموذج لكلمة المرور وتغييره سأرفق لك مثال يوضح ذلك ان شاء الله وشكراً mzaki copy.rar