أبو عبد النور

الخطأ في اسم الصفحة فانت تريد القيمة "اردني" واسم الصفحة هو "اردني " مع زياادة فراغ في آخر اسم الصفحة. لذا لديك هذا الخطأ. بالتوفيق.

السلام عليكم، لا ليست VB6 وانما قطعا VBA/Excel والحدث لود LOAD موجود في الـ VB. شكرا لك اخي ابو نصار على كل حال. وانتظر المساعدة من الاساتذة. شكراً مسبقاً.

السلام عليكم، لماذا ليست هناك مساعدة ؟

للرفع

للرفع

السلام عليكم، محاولة جديدة ولكن ما زالت منقوصة . يحيث يعمل الزر BackSpace فقط عندما نمحو الارقام من الآخر. اما من الوسط فلا يتم مسح الا رقمين على اقصى حد بالنسبة للزرين. ويتم دائما اضافة الارقام في آخر وضعية من TextBox وليس في مكان الارقام الممحوة. Option Explicit Dim LeTexte As String Dim chargement As Boolean Dim posinex As Byte Dim flag As Boolean Dim poscur As Byte Private Sub TextBox1_Change() Dim Val As String Dim Ind As Byte Dim i As Byte If flag = True Then Exit Sub i = TextBox1.SelStart If i < poscur Then TextBox1.SelStart = i poscur = i Label1.Caption = i - 1 Exit Sub End If formatagetextbox TextBox1.SelStart = 12 poscur = 12 For i = 1 To 12 If Mid(TextBox1, i, 1) = "_" Then TextBox1.SelStart = i - 1 poscur = i - 1 Label1.Caption = i - 1 Exit For End If Next i End Sub Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii < 48 Or KeyAscii > 57 Or _ Len(Replace(TextBox1, "_", "")) = 12 Then KeyAscii = 0 Exit Sub End If End Sub Private Sub formatagetextbox() Dim Data1 As String Dim Data2 As String Dim i As Byte Dim j As Byte flag = True ' formatage des données Data1 = Replace(TextBox1, "_", "") Data1 = Application.WorksheetFunction.Trim(Data1) Data1 = Replace(Data1, " ", "") j = 1 For i = 1 To 12 Select Case i Case 1, 2, 3, 5, 6, 8, 9, 11, 12 If IsNumeric(Mid(Data1, j, 1)) Then Data2 = Data2 & Mid(Data1, j, 1) j = j + 1 Else Data2 = Data2 & "_" End If Case 4, 7, 10 Data2 = Data2 & " " End Select Next i TextBox1 = Data2 flag = False End Sub Private Sub UserForm_Initialize() LeTexte = "___ __ __ __" ' 123456789012 TextBox1.Value = LeTexte TextBox1.SelStart = 0 End Sub

الصيغ المراد اختصارها : Private Sub tbAD_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Private Sub tbPr_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer Private Sub tbTr_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Private Sub tbN_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) بحيث يتكرر فيها الكود التالي : If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then With tbTr .Text = "T" .SelStart = Len(.Text) .SetFocus End With End If وشكراً.

مثلا جرب ان تمسح رقما من الوسط فستختفي كل الارقام الموجودة على يسار المؤشر وليس الرقم المقصود فقط. ما اريده ان نستعمل الزرين BACKSPACE و DELETE بصورة عادية على الارقام المدخلة بصورة عادية وبدون نقائص.

السلام عليكم، هل من احد يساعدني في Class Module ؟

السلام عليكم، لدي فورم واريد استعمال قناع في حقل TextBox لادخال رقم هاتف. القناع سيكون على الشكل التالي : __ __ __ ___ موافقة للحروف : xxx xx xx xx ولكن لا استطيع استعمال ازرار BACKSAPCE و DELETE بشكل عادي على النص في حالة ما اذا اردت مسح او تصحيح خطأ ما في الادخال. فكيف يمكن لي الحصول على كود يعالج لي المشكلة ؟ شكراً. Mask_v1.rar

آسف فلضعف الاتصال عندي لم أر بعض الردود ومنها التي وضعها الاستاذ يحياوي. سوف اطلع على الموضوع المشار اليه ان شاء الله. شكراً.

أهلا اخي ابو الحسن. شكرا لك وقد اطلعت على الفيديو وهو نفس اجابتك في الرقم 5 اعلاه.

اخي ابو نصار بحثت ولم اجد الموضوع. هل من الممكن ان تشرح لنا الامر كما طلب الاخ طاهر او وضع رابط الشرج مشكوراً.

أهلا اخي ابو نصار، المشكل ليس مطروحا لدي وانما استطيع تفسيره هكذا : قمت باعداد تطبيق لاحد الاصدقاء وهو ليس متعودا على التعامل مع الاكسل. فوددت ان اقوم بتفعيل الماكرو مباشرة عند فتحه في جهازه لان لا يخطيئ في شيئ ما وذلك فقط في هذا التطبيق من دون غيره.

مرحبا بك اخي الفاضل. كيف يمكن استبدال الاوامر المتكررة في الاحداث التالية : MouseDown و KeyDown باستعمال الـ Class Module ؟ شكراً.

السلام عليكم، هل يمكن تفعيل الماكرو تلقائيا عند فتح اي مستند ؟ شكراُ.

السلام عليكم، هل يمكن تفعيل الماكرو تلقائيا عند فتح اي مستند ؟ شكراُ.

أهلا أخي ابو نصار، ByVal تستعمل عندما لا نريد ان تغير الدالة قيمة المتغيرة. عكسها ByRef تستعمل عندما نريد تغيير قيمة المتغيرة في الدالة. كما أنتظر أصحاب الخبرة للادلاء يدلوهم في التطبيق.

السلام عليكم، لدي تطبيق أردت أن أتعرف على أرائكم حوله وهل من الممكن تطويره وتحسينه أو تصحيح الخطأ فيه إن وجدت. التطبيق يعتمد على نموذج إدخال يحوي ستة حقول تكست بوكس. وقد أفردت اهتماما خاصا بالزر إلغاء Cancel بحيث اعتمدت على متغيرين TypeEntrance إذا كانت قيمته 1 فمعناه أن الإلغاء سيشمل الحقلين 5 و6 فقط. إذا كانت قيمته 2 فمعناه أن الإلغاء سيشمل كل الحقول الستة. Cancell إذا كانت قيمته 1 فان الإلغاء سيشمل الحقول في النموذج أما إذا كانت قيمته 2 فان الإلغاء سيتم في الخلايا على الورقة BD. هناك مشكل بسيط وهو عند استعمال زر TAB من تكست بوكس إلى آخر أن يتم وضع مؤشر الفأرة في نهاية التكست البوكس وليس في أوله أو بعد الحرف T كما في tbTr. ما حل هذه المشكلة ؟ أترككم مع التطبيق وانتظر منكم التعليقات والانتقادات. شكراً. entrance_v(1).rar

شكرا لك اخي ابو الحسن. وليتفضل بااقي الاخوة بالمشاركة ان هناك مزيدا من الطرق في هذا الصدد. شكرا مسبقا.

اهلا بكم جميعا. ولكن كيف فعل ذلك ؟ أريد معرفة الطريقة ان امكن ؟

السلام عليكم، في احد الامثلة التي حماتها من النت عندما اضغط على ALT+F11 للاطلاع على مود سورس يظهر لي نموذج يطلب مني كلمة مرور. واذا اردت الخوا على ThisWorkBook يحدث نفس الشيء. فكيف يمكن القيام بذلك ؟ شكراً.

والله اخي رياض لو كان لي الوقت الكافي للقراءة لفعلت ذلك كعادتي في تعلم الامور.ولكن الوقت يداهمني لانهي هذا الامر ولو بنسبة 50% كاقصى حد يوم 4 ديسمبر 2009....

استفسار :هل النماذج تستعمل فقط حصريا مع كود الـ VBA ؟وهل بالامكان استعمالها مع اوامر الاستعلامات مباشرة ؟--> المثال المرفق اخي رياض يشير الى خطافي السطر التالي :' Open the table of Switchboard Items, and find ' the first item for this Switchboard Page. Set con = Application.CurrentProject.Connection

هذا مثال للقاعدة التي اعمل عليها. test.rar