VB 6.0 MS-Access 2003 - Make Sure Before You Delete

Visual Basic 6 By
بسم الله الرحمن الرحيم
فى اى مشروع متعلق بقاعدة البيانات من نوع اكسس على وجه الخصوص أو من اى نوع على وجه العموم , يجب ان تتأكد قبل عملية حذف سجل ان :
1) السجل المراد حذفه موجود بالفعل
و يتم ذلك عن طريق البحث عن السجل فاذا كانت نتيجة البحث ايجابية : يتم الحذف اما اذا كانت سلبية فلا يتم الحذف
2) جدول قاعدة البيانات غير فارغ
و يتم ذلك عن طريق RecordCount اذا كانت = صفر بالتالى الجدول فارغ فلا يتم حذف
3) مؤشر قاعدة البيانات يقف على السجل المطلوب حذفه

و يتم ذلك عن طريق AbsolutePosition اذا كانت القيمة -1 فان هذا معناه ان الجدول فارغ والمؤشر لا يقف على أى شىء فى الجدول او ان هناك مشكلة فى محرك قاعدة البيانات اما اذا كانت القيمة -2 فان هذا معناه ان المؤشر يقف قبل بداية اول سجل فى الجدول انا اذا كانت القيمة -3 فان هذا معناه ان المؤشر يقف بعد نهاية اخر سجل بالجدول , و جميع هذه الحالات لا يتم فيها الحذف.
و ذلك حتى لا يقابل العميل الذى صممت من أجله البرنامج أى مشاكل عند اجراء عملية الحذف و ايضا حتى يكون البرنامج الذى تصممه لا وجد به اى عيوب (Bugs) .
visual basic 6, vb6 source code,vb6 tutorials
Egyptian Financial Accountant since 2005.

Comments

Anonymous said…
hello!,I like your writing very so much! proportion we communicate extra approximately your article on AOL?
I need a specialist in this area to solve my problem.
May be that's you! Looking forward to see you.


Feel free to surf to my webpage DarrelVBlatchley
July 13, 2015 at 7:17 PM
Anonymous said…
This is the perfect web site for anybody who would like to find out about this topic.

You know so much its almost tough to argue with you (not that I personally will need to…HaHa).
You certainly put a brand new spin on a topic that has been discussed for many years.

Wonderful stuff, just excellent!

Here is my weblog FlorindaWChowhan
July 16, 2015 at 6:35 PM
Anonymous said…
This is my first time visit at here and i am truly impressed to read all
at single place.

Here is my homepage SheronWTheden
July 16, 2015 at 6:38 PM
Anonymous said…
Thank you a bunch for sharing this with all people you really
understand what you are speaking about! Bookmarked. Please also visit my website =).
We may have a hyperlink trade contract between us

Look into my web site: DeePAmirault
July 24, 2015 at 10:07 AM
Anonymous said…
What's up to all, how is all, I think every one is
getting more from this web page, and your views are nice in favor of new viewers.


Also visit my web-site - CodiELandres
August 2, 2015 at 9:03 AM
Anonymous said…
continuously i used to read smaller posts that as well clear their
motive, and that is also happening with this post which I am reading at this time.


my blog SantanaOBulter
August 2, 2015 at 12:03 PM
Post a Comment

VB6 Popular Posts

Visual Basic Online Course - Excel 2003 Part 1

21 comments Visual Basic 6 By
Image
بسم الله الرحمن الرحيم الموضوع : التعامل مع الأكسل 2003 من خلال الفيجوال بيزك 6 MS VB6 Excel الأجـــــــــــــــزاء  : انشاء ملف اكسل جديد و حفظه . فتح و تعديل و حفظ ملف اكسل استيراد البيانات من الأكسل تصدير البيانات الى الاكسل طباعة الاكسل بعض الموضوعات الهامه فى التعامل مع الـ Excel من خلال الـ Visual Basic 6.0 مشروع عملى على التعامل مع الاكسل و نبدأ بسم الله الجزأ الأول ....   الجـــــــــزء الأول - انشاء ملف اكسل جديد قبل الشروع فى انشاء ملف Excel جديد و حفظه فى مجلد Folder باسم معين Save As يجب أن نتعرف على جزئين هما : نظره سريعه على مكونات Excel 2003 : انظر الصورة التاليه ... Quick look at MS-Excel 2003   2.   التعرف على مكتبة الـ Excel الموجوده داخل الـ Visual Basic 6.0 : المكتبة اسمها Microsoft Excel 11.0 Object Liberary و هى المختصه بالتعامل مع نسخة الـ Excel 2003 و هناك مكتبات للتعامل مع نسخ الـ Excel المختلفه على حسب الاصدار مثل : اذا كنت تريد التعامل مع نسخة Microsoft Office Excel 2007 ت...
Visual Basic 6.0

VB 6.0 - Save/Retrieve Images From Access Database

Visual Basic 6 By
Image
بسم الله الرحمن الرحيم طريقة حفظ صورة فى قاعدة يانات اكسس و استرجاعهـــــــــــــا مرة أخرى عن طريق vb6 How to Save/Retrieve Pictures To/From Access DB Using VB 0.6 أولا : شكل الفورم النهائى قم بتصميم مشروع عبارة عن Form1 و ضع عليها الادوات (Command1 و Image1 و Command2و Command3) وظيفة الـــ Command1 هى حفظ الصورة و بالتالى تكون وظيفة الـــ Command2 هى استرجاع الصورة من قاعدة البيانات و الـــ Command3 لاختيار صورة من الكمبيوتر لعرضها و الــــ Image1 لعرض الصورة المراد حفظها و التى سيتم استرجاعها. قم بحفظ المشروع انشاء قاعدة البيانات باسم Mydb.mdb و وضعها فى فولدر المشروع (كما هو دائما متبع) انشاء جدول باسم MyTbl عبارة عن عدد (2) حقل الاول باسم Img نوعه OLE و الثانى باسم ImgSz و نوعه Number Integer قم بحفظ قاعدة البيانات و الجدول من المشروع نستدعى مكتبة ADO النسخة 2.8 او اى نسخه المنطقية : ما سنقوم بعمله هو كالاتى ( عمل متغيرين الاول من نوع Long و اسمة ImgLen ووظيفتة هى تخزين قيمة حجم الصورة المراد تخزينها فى قاعدة البيانات , و ال...
Visual Basic 6.0

Visual Basic Online Course - ProgressBar Colors

455 comments Visual Basic 6 By
Image
Visual Basic Online Course How to change the ProgressBar colors by code Progressbar The ProgressBar control in Visual Basic 6.0 is replaced by the Windows Forms ProgressBar control in Visual Basic 2005. The names of some properties, methods, events, and constants are different, and in some cases there are differences in behavior. Conceptual Differences Negotiate Property In Visual Basic 6.0 , the Negotiate property of a ProgressBar control can be used to automatically hide the control when a toolbar is displayed. The Visual Basic 2005  ProgressBar control does not have a Negotiate property; you can achieve the same effect by setting the Visible property to  false at run time. Orientation Property In VB 6 , a Progress Bar control can be displayed either horizontally or vertically by setting the Orientation property. The Visual Basic 2005  ProgressBar control can only be displayed horizontally. Create New (Module) Then in...
Visual Basic 6.0

VB 6.0 with MS-Access 2003 Copy a record from table to another

Visual Basic 6 By
Image
VB 6.0 with MS-Access 2003 Copy a record from table to another Copy record from table to another table المثال التطبيقى ( MediaFire Link ) الشــــــــــــــــــــــــــــــــــــــــرح 1) قاعدة البيانات : Database Access 2003 with (4) tables with same records count and properties (3 copies of the original) المشروع به قاعدة بيانات اكسس 2003 و عدد (4) جداول لها نفس عدد السجلات و نفس الاسماء و الخصائص اى انها نسخة من بعضها . 2 ) التصميـــــــــم : عمل خانات  فى فيجوال بيزك TextBoxes بعدد سجلات الجداول (id - name - age - phone) عمل (4) ازرار بعدد و اسماء جداول قاعدة البيانات (ahmed - ali - said - mohammed) عمل الازرار اللازمة (save - find - delete - exit) يمكنك اضافة ايضا (Previous - Next) 3 ) الطريقة (المنطق) : اذا اردنا نقل سطر "سجل" من الجدول (Ahmed) الى الجدول (Ali) نقوم بالاتى : a) الضغط على زر (Ahmed) و باالتالى يتم فتح الجدول Ahmed b) نقوم بكتابة البيانات المطلوب نقلها c) نقوم بعمل حفظ (Save) d) ثم نبحث عن السجل المطلوب نقلة الضغط على زر (F...
Visual Basic 6.0

Free download Visual Basic 6 Documentation MSDN

Visual Basic 6 By
Image
Free download Visual Basic 6 Documentation MSDN Free download Visual Basic 6 Documentation MSDN What is visual basic 6 MSDN ? It stands for Microsoft Developer Network. How is VB6 MSDN useful ? It is a collection of sites ( msdn.microsoft.com ) for the developer community that provide information, documentation, and discussion that is authored both by Microsoft and by the community at large. Recently. It is available in many languages. Online Visual Basic 6 (vb6) MSDN link at Microsoft.  Here Online Visual Basic 6 (vb6) MSDN previous version .  Here Download Visual Basic 6 (vb6) MSDN. vb6 MSDN CD1 (DN60AENU1) zip  109.05MB(Password: vb6access2003.blogspot.com) vb6 MSDN CD2 (DN60AENU2) zip  537.32MB (Password: vb6access2003.blogspot.com) Download Visual Basic 6 (vb6) Samples.  Here Download Lou Tylee best seller book - VB 0.6.pdf  Here ♥ 🔥 Explore More Tutorials 🔥 ⏲️ VB6 Analog Clock Project 💥 Part1, learn Micro...
Visual Basic 6.0

Visual Basic Online Course - Run-time error '3021' : Either BOF or EOF is True, or the current record has been deleted.

18 comments Visual Basic 6 By
Image
Visual Basic Online Course Run-time error '3021' : Either BOF or EOF is True, or the current record has been deleted. C ase : In Visual Basic 6.0 project with Database (e.g: MS-Access 2003) table, while trying to navigate through records you get the following error message. E rror No. : 3012 E rror description : Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record Solution : ♥ V isual B asic 6.0 Course Online : Automate MS-Access Database in Visual Basic 6.0 though a net work Visual Basic 6.0 Analog Clock Vi sual Basic 6.0 Temperature Convertor Visual Basic 6.0 , MS-Access 2003 and Crystal Reports - Phone book Visual Basic 6.0 , MS-Access 2003 Database and DataGridView Visual Basic 6 .0  FTP full application source code Visual Basic 6.0 Color Picker tool source code Visual Basic 6.0 TreeView Control lesson ( Part1 - Part 2 - Part3 - Part4 - Part5 ) Arabic. Visual Basic 6....
Visual Basic 6.0

Visual Basic Online Course - Create a Phone Book

142 comments Visual Basic 6 By
Image
Visual Basic Help - Phone-Book Microsoft Visual Basic 6.0 help and Tutorials MS-Visual Basic 6.0 and MS-Access 2003 - Crystal Reports to create a desktop software professionally Index .../ (1) Visual Basic 6.0 project design and controls (2) MS-Access 2003 Database design (3) Visual Basic 6.0 codes for design (4) How does it work ? (5) Visual Basic 6.0 code for MS-Access 2003 (6) Crystal Reports 4.6 for Visual Basic 6.0 (7) Building the desktop application (8) Packing and Deploying the project (9) Testing the Phone-Book application (1) Visual Basic 6.0 project design & controls Create a new folder on your desktop, name it (PhoneBook). Open your Visual Basic 6.0, create new (Windows Applicatio). Save As .... your project in your (PhoneBook) folder on Desktop with the name (MyPhoneBook), or before saving, from (Project) , (Project Properties) , (General Tab) , (Project Title : MyPhoneBook) then from (Make Tab) , (Application Title : MyPhoneBook) then...
Visual Basic 6.0

VB6 Crystal Reports 4.6 Error : Method 'Action' of object 'CrystalCtrl' Failed

Visual Basic 6 By
Image
Visual Basic 6 Crystal Reports 4.6  Method 'Action' of object 'CrystalCtrl' Failed [1] Error description  In VB6 I get an error Method 'Action' of object 'CrystalCtrl' Failed when I attempt to execute the code : CrystalReport1.Action = 1 Cause Installing newer version of Crystal Reports in VB6 (I.e Crystal Reports for Visual Basic 11) Error message Method 'Action' of object 'CrystalCtrl' Failed Solution Open Visual Basic 6 project that causes the problem Add-In -> Report Designer Create a new Crystal Report file (I.e CrystalRep.rpt) Re-try your code with the new Report file ( CrystalRep.rpt ) Briefly : You will need to re-create all your reports in VB6 using Crystal Reports 4.6 to solve this problem. [2] Error description  I get an error in VB6 " Crystl32.ocx " Could Not Be Loaded when I attempt to open VB6 Project on Win7 32 or Win7 64 : Crysl32.Ocx Could Not Be Loaded Cause Missi...
Visual Basic 6.0

Visual Basic Online Course - Excel 2003 Part 2

7 comments Visual Basic 6 By
Image
بسم الله الرحمن الرحيم فى الموضوع السابق تناولنا دراسة انشاء ملف اكسل جديد و حفظه موضوع اليوم ان شاء الله تعالى يتناول فتح و تعديل و حفظ ملف اكسل الجـــــــــزء الثانى - فتح و تعديل و حفظ ملف اكسل باذن الله تعالى سنستخدام مشروع المثال السابق و الذى سيتم رفعه فى نهاية الأجزاء ان شاء الله تعالى , حيث سنقوم بالضغط على New لانشاء ملف Excel جديد حيث سيفتح ملف الـ Excel على الشاشة ثم نقوم بحفظه فارغ بدون تعديل عليه باسم ExcelFile من مفتاح Save As الموجود على الفورم ثم نغلق الـ Excel الذى نلاحظ أنه بالفعل تغير اسمه فى شريد عنوان الـ Excel و نغلق البرنامج و نتأكد من وجوده فى المجلد الموجود به المشروع أو اذا كنت تقوم بنفس مثالى ستجده فى المجلد Excel كما بالصورة التاليه : شكل المجلد المفروض أننا نقوم الأن بالتعديل على ملف الـ Excel باستخدام الكود من داخل الـ Visual Basic و هنا نفرق بين أمرين : 1) التعديل على ملف الـ Excel الموجود به بيانات مسبقا و حفظ التغييرات . 2) بداية الكتابه فى ملف الـ Excel . الان نقوم بفتح الاكسل ExcelFile عن طريق البرنامج كالتالى ...
Visual Basic 6.0