عبدالفتاح حسن

لتغيير مستوى تأمين وحدات الماكرو من قائمة Tools اختر Macro ثم scurity فتظهر لك ثلاث مستويات للتأمين الأول لايمكن معه تفعيل الماكرو وتظهر الرسالة التى أرفقتها والثانى تظهر رسالة عند فتح الملف توضح أن الملف يحتوى على وحدات ماكرو ويعطى لك حرية اختيار تشغيله والثا…

لتلافى التغير النسبى فى مواضع الخلايا يجب أن تسبق الحرف الدال على عمود الخلية بالرمز $ وكذلك الرقم الدال على الصف بالرمز $ فتصبح المعادلة : =sum($K$12;$K$14;$K$15)

الأخ الكريم فهمت قصدك واليك المثال ارجو ان يفى بالغرض SaveFile.zip

اخى الفاضل اليك المثال بعد التعديل يمكنك تغييره بما يناسبك methal.zip

الأخ الفاضل ماذا تقصد بــ يقرأ ؟!!!

الأخ الفاضل يرجى توضيح طلبك بمثال

الأخ الفاضل اليك اللف بعد التعديل ارجو ان يفى بالغرض EXA1.zip

تفضل Private Sub Text1_LostFocus() If Val(Me.Text1) < 5 Or Val(Me.Text1) > 70 Then Me.Text2 = "": Exit Sub Me.Text2 = Round((Val(Me.Text1) - 32) * 5 / 9, 4) End Sub Private Sub Text2_LostFocus() If Val(Me.Text1) < 5 Or Val(Me.Text1) > 70 Then Me.Text2 = "": Ex…

Function GetNumper(FromText As String, Numper As Double) As Integer 'FromText النص الذى يتحوى الرقم 'Numper الرقم المراد البحث عنه 'GetNumper ترتيب الرقم فى النص Dim T As Integer For T = 1 To Len(FromText) If Val(Right(FromText, T)) = Numper Then GetNumper = L…

الأخ هشام الملفات المرفقة لا تعمل

الأخ الفاضل GHOST2010 الرقم الذى ذكرته خاص بعدد الخلايا وليس الصفوف اى حاصل ضرب الصفوف فى الأعمدة فالكود الذى ذكرته سيعطى رسالة خطأ بالطبع لوكان عدد الأعمدة اكبر من 1

استبدل Set DataGrid1.DataSource = rs بـ Set rs= DataGrid1.DataSource

السادة الأعضاء ابحث عن ابسط كود يمكن من خلالة تحويل اعادة الحروف الى ارقام فمن المعروف انه عند تخزين رقم فى قاعدة بيانات فى الصورة Long فإنه يشغل اربع Bytes والفكرة ان هذه الأربع محارف يمكن أن تعطى سلسلة مكونة من 256 bit اى رقم ثنائى وكذلك فى حالة التخزين فى ا…

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

للرفع

على حد علمى ليس الحد الأقصى لعدد السطور ولكن لعدد الخلايا

استفسار هام لقد ذكرت يا أخى انا البيانات على ملف أكسس وانها ثمرة جهد كبير ومعنى ذلك أن قيمة البرنامج ليس فى ملف التشغيل بل فى ملف الداتا بيز - الأكسس - المرفق فماذا لو تم نسخ هذا الملف من على الأسطوانة وتم التعامل معه مباشرة او عن طريق برنامج اخر يتم تصميمه لل…

كما ذكر الأخ Yemen بخصوص اجابة السؤال الأول اما السؤال الثانى فيمكن تنفيذه لو أن الصورة على Picture Box مرفق لك مثال ارجو أن يفى بالغرض Reply.zip

الأستاذ Yamanra لو ممكن شرح الكود وماهو الكود اللازم على جهاز الطرف الأخر حتى تتم المشاركة فى المجلد ولك منى جزيل الشكر

تفضل Private Sub Form_Load() Me.Text1.MaxLength = 3 Me.Text2.MaxLength = 3 End Sub Private Sub Text1_Change() If Len(Me.Text1) = 3 Then Me.Text2.SetFocus End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 46 Then Me.Text2.SetFocus End Sub Pr…