boxer68

مشكور اخي جاري التحميل

اخي العزيز ضع الكود التالي في مفتاح الحفظ Dim xx As String On Error GoTo mysol ' ' ' ' Exit Sub mysol: If Err.Number = -2147467259 Then xx = MsgBox("Error in save !", vbOKOnly + vbMsgBoxRight + vbCritical, "Error") Exit Sub End If ملحوظة : نسختك المرفقة لا تعم…

اليك هذا المثال و لدينا مربعين نص وكان التركيز على المفتاح الأول ونريد عند الضغط على مفتاح Enter ان ينتقل التركيز إلي مربع النص الثاني فما عليك إلا كتابة الكود التالي في حدث Key Press لمربع النص الأول If KeyAscii = 13 Then text2.text.SetFocus End If وهذا معناه…

اليك هذا المثال و لدينا مربعين نص وكان التركيز على المفتاح الأول ونريد عند الضغط على مفتاح Enter ان ينتقل التركيز إلي مربع النص الثاني فما عليك إلا كتابة الكود التالي في حدث Key Press لمربع النص الأول If KeyAscii = 13 Then text2.text.SetFocus End If وهذا معناه…

آخي العزيز يمكن يتم ذلك عن طريق كود الـ ASCII الخاص بكل مفتاح حيث يمكن وضع كود التعطيل أو التعطيل في الحدث Key Press ومرفق لك برنامج يعرفك الـ ASCII كود لكل مفتاح على لوحة المفاتيح ASCII.rar

السلام عليكم ورحمة الله وبركاته مرفق لكم البرنامج مرة آخرى Users.rar

الاخ مبرمج صغير كما قال لك الاخ amricost في عملية التعديل لا يمكن التعديل في قيمة المفتاح الاساسي بمعنى عليك ان تجعل Textbox الخاص بالمفتاح الاساسي Lock = true حتى لا يتمكن المستخدم من التغيير فيها ثم تسمح له بالتعديل في كافة مربعات النص الخاصة بالحقول الآخرى …

اخي العزيز هذا يتوقف على الطريقة التي تستدعي بها البيانات من الجدول بمعنى جملة الSQL تكتبها في اي اداة فمثلاً لو استخدمت الADODC فيمكنك معرفة عدد السجلات الموجودة بالداتا جريد : ضع هذا الكود في المكان المطلوب حساب عدد السجلات فيه LblCount.Caption = GetRecordCo…

رائع يا اخي إلي الامام دائماً :)

اخي العزيز ضع هذا الكود في حدث Load لنموذج ResWidth = Screen.Width \ Screen.TwipsPerPixelX ResHeight = Screen.Height \ Screen.TwipsPerPixelY ScreenRes = ResWidth & "x" & ResHeight MsgBox (ScreenRes) وارجو ان يفيدك بإذن الله :)

اخي k.f.u المقصود بتحزيم البرنامج هو تجميع الملف التنفيذي للمشروع مع جميع ملفات OCX و DLL التي يستخدمها المشروع في ملف واحد Setup File بحيث يتم عمل Setup للمشروع على جهاز العميل يتم انزال الملفات الخاصة بتشغيل البرنامج بدون نماذج او اكواد .... لذلك فأن عمل ملف…

جرب الكود التالي : dim i as long Tb1.MoveFirst for i = 1 to 10000 if Tb1.eof then i = 10001 else Tb1("Pr1") = Tb1("Pr1") * Val(Text1) Tb1("Pr2") = Tb1("Pr2") * Val(Text1) Tb1("Pr3") = Tb1("Pr3") * Val(Text1) Tb1("Pr4") = Tb1("Pr4") * Val(Text1) Tb1.Update Tb1.…

اعتقد ان هناك ادوات ocx لم تأخذها معك اثناء عمل التحزيم عموما الراط التالي سوف يعرفك على الادوات المطلوبة لبرنامجك اضغط هنا

شكراً لمرورك اخي المزمجر وجزاك الله خيراً

اخي العزيز لا يمكن تغيير اسم حقل من خلال جملة sql اثناء تشغيل البرنامج ولكن يمكن تغيير التعليق (caption) يأمر as كما قال لك الاخ k.f.u كما يمكنك تغيير قيمة تحت هذا الحقل فقط :)

اخواني الاعزاء البرنامج المرفق يحتوي على التالي نقل عناصر من listbox الى listbox آخرى والعكس ترتيب عناصر listbox\ اظهار اسهم تمرير افقية في listbox في حالة كبر حجم النص بها ارجو من الله ان يكون فيه الافادة ولا تنسونا بالدعاء :) listbox.rar

مشكور اخي عبد العزيز على البرنامجين جزاك الله خيراً :)

مشكور اخي المزمجر اكملت الموضوع جزاك الله خيراً

جرب في نفس الكود تغير اسم الجدول والحقول بحيث اذا استمر الخطأ يبقى الخطأ في الكود وإذا لم يظهر الخطأ فأن الخطأ في الجدول

[b ]تأكد من مسار قاعدة البيانات في الجهاز الذي لا يعمل عليه البرنامج وهل تم وضع البرنامج بالنسخ ام setup اي تثبيت