HnHn

سبقني مشرف القسم وهذا من ابداعته على العموم أذا كان لا يكفي سنزل مثال آخر ... وشكرا

حاضرين .. أذا كان لدينا ما نفيدو به فلا نتردد

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

ما هو Developer وهل يمكن الاستغناء عنه :rolleyes:

لحذف جميع السجلات dim SQL as String SQL = "Delete * FROM Table "' Set Rs = db.Execute(SQL) اما لحذف سجل معين أو بشرط معين SQL = "Delete * FROM Table WHERE field1 = '" & f1 & "' & "' " Set Rs = db.Execute(SQL) طبعا Table اسم الجدول و rs اختصار للسجلات

تستطيع تعديل ذلك من لوحة التحكم في الويندز بتاعك ومن ثم خصائص الوقت والتاريخ

هذا هو الكود للبحث بجزء من الاسم Dim gFind As String, gBookMark As Variant gFind = InputBox("Find What : ", "Search") ' If Trim(gFind) = "" Then Exit Sub ' gBookMark = rs.Bookmark ' rs.Find "[CategoryName] LIKE '" & Trim(gFind) & "%'", 0, adSearchForward, 1 ' …

تم التحميل لتعديل

ارجو أن يفيد هذا المثال :blink: GRAPHICS.rar

هذا الموضوع مثير بحق .. وننتظر وصلة التحميل لهذه الاداة

العملية تحتاج إلى أحدى جمل التكرار وخاصية Mid ويمكنك الاستفادة من المثال التالي لصنع ما تريد :rolleyes: /index.ph...=post&id=176027 ولوضوح الطريقة اكثر يمكنك الاستفادة من الموضوع التالي /index.ph...وليد+رقم+تسلسلي

كود البحث بين تايخين select * from okmetoa where rotba between #12/01/2003# and #12/02/2003# ويمكنك الاستعانة بهذا الرابط لتوضيح مسألة الفرز /index.php?showtopic=43411 ولعرض ناتج استعلام في الداتا ريبورت يمكنك مراجعة المواضيع التالية /index.ph...topic=42288&hl…

والله اخي لم افهم ما هو المطلوب من سؤاللك ولكن أتمنى أن تجد ضالتك في هذه المواضيع /index.ph...ghlite=TreeView <_<

عدة طرق للبحـــــــــــــــــــث مع الأمثلة :rolleyes:

يمكن ذلك عن طريق اداة الوينسك ويمكنك القراء اكثر حول هذا الادة فهي فعلا رائعة وهذا الكود الخاص بعملية الارسال Dim Response As String, Reply As Integer, DateNow As String Dim first As String, Second As String, Third As String Dim Fourth As String, Fifth As Stri…

الكود السابق i = (i + 1) Mod 2 If i = 1 Then sales.Show min.Enabled = False Else sales.Hide min.Enabled = True End If الكود بعد التعديل i = (i + 1) Mod 2 If i = 1 Then sales.Show min.Enabled = False Else sales.Hide min.Enabled = True End If اتمنى أن أكود وفقت

الخطىء أنك لم تضع ما هو المطلوب أظهاره أي لم تستعمل جملة Select بشكل المطلوب أرجو أن يفيدك هذا المثال <_< وعذراً لتأخر CrptProject.rar

'Start new project 'Place a timer Dim Tit As String 'Public variable Sub ScrolTit() Tit = String(30, " ") & "I'm moving..." 'Set blank up to 30 chararcters long] 'You can insert date and time fucntion here 'Tit =String(30, " "), & "The time is : " & Time 'Tit …

بعد بناء القاعدة وتصميم الجداول والمستخدمين .. كيف يتم استخامها لتخزين البيانات من أضافة وتعديل وحذف ..اإلخ <_<

أخي عاشق أعمل النافذة مرتين مرة بالترتيب العربي ومرة بالترتيب الانجليزي بشكل مرأة كما تفضل الأخر عرarafa