سلسلة - أكواد الأكسس ( 2 ) — منتديات الفريق العربي للبرمجة

#15 يوليو 2002 في 19:06 صاحب الموضوع

ضع مربع نص في النموذج وسمه Text1

أنسخ الكود والصقه فقط في الوحدة النمطية وحدد الفاصل الزمني لعداد الوقت مثلاً 1000 أو أقل أو أكثر

=============

Option Compare Database

Private strText As String

Private Sub Form_Load()

strText = "مرحباً بكم في منتديات الفريق العربي للبرمجة"

strText = Space(80) & strText

End Sub

Private Sub Form_Timer()

strText = Mid(strText, 2) & Left(strText, 1)

Text1.text = strText

Me.Caption = strText

End Sub

=========

الكود عبارة عن نص منزلق في مربع النص وفي أعلى النموذج

وتقبلوا تحياتي

#26 يوليو 2002 في 03:21

اخي سعودي31 ,,

سلام الله عليكم

اولاً الف شكر على هذه الاكواد الجذابه ;)

ولكن عندما قمت بتجربة هذا الكود فانه لم يعطي اي نتيجه ,,,

حيث وضعت الكود في حدث

load

للفورم الذي وضعت بداخلها مربع نص اسمه

text1

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

ارجوالافاده

اخوك في الله

#36 يوليو 2002 في 03:38

يبدو أنك نسيت هذه Private strText As String وقد ذكرتها في أول الكود

وهي توضع في الوحدة النمطية الخاصة بالنموذج

====

أسلم طريقة لكي ينجح الكود

تقوم بنسخه كاملاً ثم تفتح الوحدة النمطية الخاصة بالنموذج ثم تقوم بلصقه هناك

جرب وأخبرني

#46 يوليو 2002 في 04:10

قمت بتجربة ذلك ولم تنجح معي ايضاً ...

لو سمحت لو فيها ثقل :o ممكن نشر مثال

#516 يوليو 2002 في 03:13

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

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

الكود الخاص بفتح التقرير على السجل الحالى فى الأكسس لم يعمل بشكل صحيح ..

حيث أنه عند إدخال رقم السجل يعرض جميع السجلات من رقم واحد..

وحيث أن قاعدة البيانات يمكن أن تغذى بأكثر من 35000 سجل ...!!

" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------

#616 يوليو 2002 في 04:02

لم أفهم ما تريده وما تقصده في كلامك:confused:

#716 يوليو 2002 في 06:14

السلام عليكم

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

أى وجود زر عند النقر عليه يفتح التقرير على السجل الحالى وليكم مثلاً السجل رقم 33000 !!!!

أى بدلاً من فتح التقرير والبحث عن السجل يدوياً..

" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------

#816 يوليو 2002 في 10:06

بالنسبة لكود الأخ سعودي 31 هناك مراجع يجب تثبيتها وهي كالتالي

Microsofrt Jet and replaction Objects 2.5 library

Microsoft Activx Data Object Recordset 2.5 library

Ole automation

أشرف خليل

#916 يوليو 2002 في 16:14

الأخ أشرف

عندما قمت بعمل هذه التجربة عندي في جهازي وفي جهاز أحد زملائي لم أقم بإضافة هذا الذي ذكرته كله .

فهل معنى ذلك أن هذه الأشياء كانت موجودة في هذين الجهازين؟.. وهل يعني ذلك أنني لو نقلت التجربة إلى جهاز آخر فإنه يجب علي أن أقوم بوضع كل هذه أم أنه لا يلزم وتنتقل مع البرنامج ؟

وتقبل خالص تحياتي

#1017 يوليو 2002 في 00:15

جربتها فى جهازي بالمكتب ولم تعمل . جربتها بالمنزل اشتغلت ولاحظت الفارق ما كتبته أعلى .

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

أشرف خليل

#1117 يوليو 2002 في 23:00

السلام عليكم

أرجو ممن جرب طريقة الذهاب من النموذج للسجل الحالى بالتقرير أن يعرض هذا الكود .....

والمشكلة مكتوبة فى مشاركة سابقة بالأعلى ....

" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------

#1213 أغسطس 2003 في 12:19

يعطيك العافيه اخوى ..فهد

#1314 أغسطس 2003 في 19:26

الكود نسخ ما بيشتغل

اكتب الكود كتيبه

شكرا للاخ فهد

ssss.zip

#1415 أغسطس 2003 في 17:23

الاخ الكريم الاستاذ / فهد

اثابك الله

لقد جربت المثال ولكن للاسف لم يعمل ما السبب اهويحتاج مرجع معين ام ماذا اشكرك من كل قلبى (f)(f)(f)(f)

سلسلة - أكواد الأكسس ( 2 )

مواضيع مشابهة