mmghv

ليس من الضروري وجود حقل MyYear المهم وجود حقل للتاريخ , فهو ضروري .. انا اعطيك مثال فقط لإيضاح الفكرة ,,

هنا استخدمت (عدد السجلات)+1 ليكون رقم السجل الجديد , للبدأ برقم جديد عند قدوم سنة جديدة استخدم : (عدد سجلات السنة الحالية )+1 ليكون رقم السجل الجديد . اي إذا كنت تستخدم الإستعلام التالي : Select * From MyTable إستبدله بالإستعلام : Select * From MyTable Where M…

المثال بعد التعديل في المرفقات ... الخاصية LeftCol تحدد رقم اول خانة ظاهرة في الجريد , بتغيرها تتحكم في الـ ScrollBars Flx_Scroll.rar

إن كان من الممكن رفع المشروع ولو حتى Form1 فقط ( طبعاً بملف الـ Project ايضاً ) يكون من الافضل حتى نستطيع تحديد المشكلة وحلها إن شاء الله ..

المثال بعد التعديل في المرفقات طبعاً عند تغيير اسم الجدول لن يعمل كود عرض البيانات لان الجدول تم تغيير اسمه , يفضل عمل جدول إعدادات يوضع به اسم الجدول الجديد حيث يقوم كود عرض البيانات بجلب اسم الجدول من جدول الإعدادات كل مرة يقوم بعرض البيانات فيها ... Group1.…

لا يوجد طريقة مباشرة لتغيير اسم جدول لقاعدة بيانات اكسس لكن يمكنك إستخدام الإستعلام الاتي : Select * Into NewTable_Name From OldTable_Name Drop Table OldTable_Name حيث NewTable_Name اسم الجدول الجديد و OldTable_Name اسم الجدول القديم يقوم السطر الاول بعمل Copy…

* لإستخراج الرقم الموجود بالتسلسل الذي ينطبق عليه الشروط التالية : 1) يتكون التسلسل من 22 خانة 2) يبدأ التسلسل بالمقطع "Code(s):" والـ 14 خانة الاخرى تكون رقم - استخدم : If Len(Blocks(i2Loop)) = 22 Then If Left(Blocks(i2Loop), 8) = "Code(s):" And IsNumeric(Rig…

يبدو من الرسالة ان الاداة MSComctlLib ناقصة , انا لا اعلم كيف لانه من المفروض ان مع تسطيب الفيجوال بيسك يقوم بإضافة هذه الاداة إن لم تكن موجوده بالفعل لكن هذا ما تقوله الرسالة قومي بتحميل المرفق وفك الضغط ستجدي ملفين احدهما بإسم Register.bat قومي بتشغيله ثم ست…

تكملة هذه الرسالة هو مسار ملف امتداده log في فولدر المشروع ويكون اسمه بإسم الفورم الذي لم يتم تحميله ( مثال Form1.log ) افتحي هذا الملف ( والذي ستجديه في فولد المشروع كما سبق الذكر )وقومي بنسخ محتواه وضعيه هنا كي نعرف ما هو الخطأ بالتحديد

لا يستطيع المشروح تحميل احد الفورمات على الارجح , تكملة الخطأ مسار ملف بإمتداد log يوجد به سبب عد إمكانية التحميل , غالباً سيكون ملف OCX استخدمته بالمشروع غير موجود بالجهاز إن لم تتمكني من حل المشكلة قومي بإرفاق محتوى الملف log لنستطيع تحديد المشكلة ..

الخطأ انك وضعط علامة الـ = قبل الـ > , < جرب : SQLs = "Delete from u1arch where num >= '" & Text1 & "' and num <='" & Text2 & "' " وايضاً إذا كان نوع الحقل num رقم فلا تستخدم معه العلامة '

SQLs = "Delete from u1arch where num => '" & Text1 & "' and num =<'" & Text2 & "' " If rs.State = adStateOpen Then rs.Close rs.Open SQLs, db, adOpenKeyset, adLockPessimistic MsgBox "ok" Select تقوم بعرض السجلات و Delete تقوم بحذف السجلات , ويمكن معها استخدام ا…

طبعاً تقوم بتغيير الكود حسب ما تريد ,, Delete Table.rar

هذا يعني انك قمت بعمل Copy و Paste للكود بدون ان تقوم بتعريف المتغيرات الخاصة به ( الـ Recordset والـ Connection ) ..

/index.php?showtopic=191563&st=0&p=958049&fromsearch=1entry958049

قم بإستبدال هذا الجزء : If Len(Blocks(i2Loop)) = 15 Then If IsNumeric(Left(Blocks(i2Loop), 14)) And Right(Blocks(i2Loop), 1) = "." Then GetPinCode = Left(Blocks(i2Loop), 14) Exit Function End If End If بهذا الجزء : If Len(Blocks(i2Loop)) >= 12 Then If IsNumeri…

في احد الملفات التي ارفقتها كمثال : هنا الـ Pin Code مكون من 14 خانة متبوع بفاصلة "28014685689881," والـ Serial Number مكون من 11 خانة متبوع بنقطة "88512741472." ايهما تريد إستخراجه ؟؟! حسناً , الكود التالي يقوم بما ذكرته , اي انه يستخرج التسلسل المكون من 14 خ…

جرب هذا الكود : Private Declare Sub CoTaskMemFree Lib "Ole32.dll" (ByVal hMem As Long) Private Declare Function SHBrowseForFolder Lib "Shell32.dll" (lpbi As BrowseInfo) As Long Private Declare Function SHGetPathFromIDList Lib "Shell32.dll" (ByVal pidList As Lo…

ما هي المشكلة بالتحديد , إذا كانت رسالة خطأ فقم بإرفاق صورة لها حتى نستطيع تحديد المشكلة بالتحديد لنوجد لها حل بإذن الله

اخي هذا غريب جداً , فقد وجدت شئ غريب في هذا النوع من الملفات , فهذا النوع من الملفات يوجد به رموز غير مرئية بين الاحرف والارقام وهذا هو سبب الخطأ الذي ظهر معك , ولا يتعلق هذا الموضوع بإمتداد الملف , فقد قمت بتغيير امتداد الملف الى .txt ثم مسحت كل ما يوجد به وك…