طاهر محمد قام بنشر مايو 22, 2014 قام بنشر مايو 22, 2014 السلام عليكم ورحمة الله وبركاته تحية طيبة لكل الموجودين بالمنتدى والى جميع اساتذتى بالمنتدى الرجاء التعديل على الفورم بالمستند المرفق الشرح بالمستند مصروفات.zip 1
إبراهيم ابوليله قام بنشر مايو 26, 2014 قام بنشر مايو 26, 2014 اخى طاهر تم عمل المطلوب مع اضافة زر للحزف ------------------- اما بالنسبه للنتيجه فلاسف لم ينج الامر معى --------------- تفضل مصروفات.rar
طاهر محمد قام بنشر مايو 28, 2014 الكاتب قام بنشر مايو 28, 2014 السلام عليكم ورحمة اللة وبركاتة تحية طيبة وبعد جهد مشكور اخى العزيز ا/ابراهيم هل من الممكن اخفاء زرالتسجيل عند ظهور زر التعديل او الحذف وعند الضغط على زر تعديل يتم ترحيل البيانات المعدلة ويصبح الفورم جاهز لعملية جديدة
إبراهيم ابوليله قام بنشر مايو 29, 2014 قام بنشر مايو 29, 2014 اخى طاهر السلام عليكم ورحمه الله وبركاته هل تقصد هكذا تفضل مصروفات.rar
جلال الجمال_ابو أدهم قام بنشر مايو 29, 2014 قام بنشر مايو 29, 2014 اخى / ابراهيم ابو ليلة بارك الله فيك و لاثراء الموضوع تم اضافة كود طباعة للفورم مصروفات_طباعة الفورم.rar
إبراهيم ابوليله قام بنشر مايو 29, 2014 قام بنشر مايو 29, 2014 اخى جلال بارك الله فيك زياده فى الخير مقبوله باذن الله
طاهر محمد قام بنشر مايو 30, 2014 الكاتب قام بنشر مايو 30, 2014 السلام عليكم ورحمة الله وبركاتة شكرا جزيلا ا/براهيم ولى طلب اتمنى ان توفق فية 1- عند الضغط على زر التعديل يتم ترحيل البيانات نص مما يجعلها لاتعمل مع معادلات الاكسيل فالرجاء العمل على ترحيلها كأرقام 2-هل من الممكن ان يفتح " يظهر "الفورم على صفحة رقم 1 بدلا من صفحة ادخال البيانات 3- ان تظهر رسالة التحزير اذا كان الاذن موجود من قبل ونصها " هذا الاذن مسجل من قبل " ولكم جزيل الشكر
إبراهيم ابوليله قام بنشر مايو 30, 2014 قام بنشر مايو 30, 2014 اخى طاهر السلام عليكم ورحمه الله وبركاته ------------------------------------ النسبه لسؤالك الاول 1- عند الضغط على زر التعديل يتم ترحيل البيانات نص مما يجعلها .................................................... تم معالجه الامر -------------------------------------------------------------- بالنسبه للسؤال الثانى 2-هل من الممكن ان يفتح " يظهر "الفورم على صفحة رقم 1 بدلا من صفحة ادخال البيانات ........................................................................................................ ممكن طبعا ولكن ضمانا للسلامة البيانات التى سوف يتم استدعائها عند البحث تجبرنا على ان تكون الصفحه النشطه هى صفحة البيانات -------------------------------------------------------------------------------------------------------------------------- اما بالنسبه للسؤال الثالث ان تظهر رسالة التحزير اذا كان الاذن موجود من قبل ونصها " هذا الاذن مسجل من قبل " ........................................................................................................ اعتقد انه ليس هناك داعى لوجود هذه الرساله لانك اذا قمت بكتابة رقم1مثلا فى التيكست بوكس وكان هذا الاذن قد تم تسجيله من قبل فسوف تجد ان الزر الخاص بتسجيل عمليه جديده قد اصبح غير نشط بحيث لا يمكنك استخدامه وبالتالى لم يعد امامك غير اما ات تقوم بالتعديل او ان تقوم بالحزف وبالتالى فلن يحدث مطلقا ان يتم تسجيل اذن مرتين ------------------------------------------------------------ وعلى العمود فقد اضفت الكود الاتى فى زر التسجيل يمكنك الاطلاع عليه زياده فى المعرفه لا اكثر If WorksheetFunction.CountIf(Sheets("sheet2").[A10:A10000], TextBox1) <> 0 Then MsgBox "ÇáßæÏ ÇáÐì ÇÏÎáÊå ãßÑÑ" & vbNewLine & "----------------------------" _ & vbNewLine & "ERROR CODE NO is exits", vbInformation, "ÎØÃ" Exit Sub End If فى امان الله مصروفات.rar
طاهر محمد قام بنشر مايو 31, 2014 الكاتب قام بنشر مايو 31, 2014 السلام عليكم ورحمة الله وبركاتة شكرا جزيلاا أ/ ابراهيم تم تنفيذ المطلوب ورحلت البيانات كرقم اعلم انى اثقل عليك ولكن املى كبير فى سعة صدرك مطلوب شىء صغير ان يفتح الفورم على جميع الشاشة "مع العلم ان النسخة المستخدمة اوفيس 2003 والشاشة ليست lcd" ووبالنسبة للكود الذى اضيف اعتقد انة لايعمل حيث ان الرسالة التى بة لاتظهر مع اى حركة فى الفورم
إبراهيم ابوليله قام بنشر يونيو 2, 2014 قام بنشر يونيو 2, 2014 اخى طاهر وعليكم السلام ورحمه الله وبركاته -------------------- ارجو النظر والرعوع الى المشاركه رقم8 ستجدنى قد كتبت لك اعتقد انه ليس هناك داعى لوجود هذه الرساله لانك اذا قمت بكتابة رقم1مثلا فى التيكست بوكس وكان هذا الاذن قد تم تسجيله من قبل فسوف تجد ان الزر الخاص بتسجيل عمليه جديده قد اصبح غير نشط بحيث لا يمكنك استخدامه وبالتالى لم يعد امامك غير اما ات تقوم بالتعديل او ان تقوم بالحزف وبالتالى فلن يحدث مطلقا ان يتم تسجيل اذن مرتين ----------------------------------------------- وبالتالى فلن تجد تاثير ملحوظ للكود وقد ارفقت لك الكود للتعلم طريقه كتابته فقط ---------------------------------- اما بالنسبه لكود ملئ الشاشه فهذا افضل كود للاخ ابو حنين استاذنا الكبير بارك الله فيه ----------------------------------- قم باضافة موديول جديده ثم قم بارفقا الكود الاتى داخلها 'كود جعل الفورم ملئ الشاشه ليتناسب مع جميع الاجهزه Public largeurbouton(), hauteurbouton(), leftbouton(), topbouton(), tcaractere(), couleurbouton(), couleurtext() As Long Public ctrl As Control Public maform As Object Public i, largeure_usf, hauteure_usf As Long Private Declare Function GAW Lib "user32" Alias "GetActiveWindow" () As Long Private Declare Function GWL Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SWL Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Const GWL_STYLE As Long = -16 'ajoute le full option au style Private Const WS_FULL_OPTION = &H70000 'Les 3 boutons et l'elasticité Sub troisbouton() 'كود جعل الفورم ملئ الشاشه ليتناسب مع جميع الاجهزه Whdl = GAW 'Acquisition du Handle de la Userform forme = GWL(Whdl, GWL_STYLE) 'Acquisition propriétés SWL Whdl, GWL_STYLE, forme Or WS_FULL_OPTION 'toute les options(trois bouton et elasticité) TextBox1 = GAW End Sub Sub determine() 'كود جعل الفورم ملئ الشاشه ليتناسب مع جميع الاجهزه hauteure_usf = maform.Height largeure_usf = maform.Width i = 0 For Each ctrl In maform.Controls i = i + 1 On Error Resume Next ReDim Preserve largeurbouton(i) largeurbouton(i) = maform.Width / ctrl.Width ReDim Preserve hauteurbouton(i) hauteurbouton(i) = maform.Height / ctrl.Height ReDim Preserve topbouton(i) topbouton(i) = maform.Height / ctrl.Top ReDim Preserve leftbouton(i) leftbouton(i) = maform.Width / ctrl.Left ReDim Preserve tcaractere(i) ' tcaractere(i) = ctrl.Width / ctrl.Font.Size Next End Sub Sub redimentionnement() 'كود جعل الفورم ملئ الشاشه ليتناسب مع جميع الاجهزه On Error Resume Next i = 0 For Each ctrl In maform.Controls i = i + 1 ctrl.Width = maform.Width / largeurbouton(i) ctrl.Height = maform.Height / hauteurbouton(i) ctrl.Left = maform.Width / leftbouton(i) ctrl.Top = maform.Height / topbouton(i) ctrl.Font.Size = ctrl.Width / tcaractere(i) Next maform.Repaint 'repeint le userform pour effacer les traces des anciens emplacement des control _ (du a la puissance de la carte graphique la plus part du temp) End Sub ثم فى حدث الفورم ضع الاكود الاتيه Private Sub UserForm_Activate() 'كود جعل الفورم ملئ الشاشه ليتناسب مع جميع الاجهزه Set maform = Me determine troisbouton '=============================================== End Sub Private Sub UserForm_Initialize() 'كود جعل الفورم ملئ الشاشه ليتناسب مع جميع الاجهزه Set maform = Me determine troisbouton '=============================================== End Sub Private Sub UserForm_Resize() 'كود جعل الفورم ملئ الشاشه ليتناسب مع جميع الاجهزه redimentionnement '=============================================== End Sub ثم قرب مؤشر الفأرة من علامة X في الفورم و اضغط على تكبير
طاهر محمد قام بنشر يونيو 2, 2014 الكاتب قام بنشر يونيو 2, 2014 السلام عليكم ورحمة الله وبركاتة اخى العزيز ا/ ابراهيم تحية طيبة وبعد شكرا جزيلا على تواصلك معى ولى رجاء او طلب اخير وهو ان يتم تطبيق الكود السابق من طرفك لانى نفذت كما فى الشرح ولكن الكود لا يعمل عندى
إبراهيم ابوليله قام بنشر يونيو 3, 2014 قام بنشر يونيو 3, 2014 اخى طاهر السلام عليكم ورحمه الله وبركاته ------------------------------------ تفضل اخى مصروفات.rar
طاهر محمد قام بنشر يونيو 3, 2014 الكاتب قام بنشر يونيو 3, 2014 شكرا جزيلا ا/ ابراهيم وجعل الله هذا العمل فى ميزان حسناتك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.