• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

اسلام الكبابى

اعضاء
  • عدد المشاركات

    306
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل شيء نشر بواسطة اسلام الكبابى

  1. أريد كود اذا عدل المستخدم بنفسه فى ال txtFields

    جزاك الله خيرآ ولك ألف شكر   وأتمنى من أى أحد من المائة المتابعين للموضوع ان كان يعرف اللغتين ان يحول كوده هذا بلغة ال فيجوال بيسك6 وياليته يرفق لى الفورم كاملة بلغة ال فيجوال بيسك6 :thumb_up: ولكم ألف شكر
  2. أريد كود اذا عدل المستخدم بنفسه فى ال txtFields

    لامانع   لعل أحدآ ممن يعرف اللغتين يأخذ تطبيقك هذا ويحوله بلغة ال فيجوال بيسك 6
  3. أريد كود اذا عدل المستخدم بنفسه فى ال txtFields

    فى انتظار المثال العملى الموضح به الكود الصحيح
  4. أريد كود اذا عدل المستخدم بنفسه فى ال txtFields

    أتمنى دلك ولك ألف شكر
  5. أريد كود اذا عدل المستخدم بنفسه فى ال txtFields

    جزاك الله خيرآ ولكن ليتك توضح بكتابة الكود الصحيح وشكرآ
  6. أريد كود اذا عدل المستخدم بنفسه فى ال txtFields

    حاولت محاولة أخرى وهى وضع متغير يدل على تنقل ال Adodc1 بين السجلات فوضعت متغيراسمهmovv وكتبت الكود Dim movv As BooleanPrivate Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)movv = TrueEnd SubPrivate Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.ERROR, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)movv = False  Adodc1.Caption = "Record: " & CStr(Adodc1.Recordset.AbsolutePosition)End SubPrivate Sub txtFields_Change(Index As Integer)  If movv = True Then GoTo 100  cmdCancle.Visible = False  CMDUpdate.Visible = False100 End Sub  كتبته ظنآ منى ان تسلسل الأحداث هوAdodc1_WillMove ثم txtFields_Change ثم Adodc1_MoveComplete ولكن لم يفلح الكود لأن تسلسل الأحداث كان غير ذلك
  7. توصلت لحل والحمد لله هذا كود يقوم بهذه العملية (وقد جربته ونفذ المطلوب والحمد لله)       Dim MAXWid(9)Private Sub Form_Activate()   For J = 0 To 3 Rem0,1,2,3"  الرقم3 باعتبار أن ال ataGrid1  أربعة أعمدةLabel1(J).AutoSize = TrueLabel1(J).Font.Size = DataGrid1.Font.SizeLabel1(J).Font.Name = DataGrid1.Font.NameLabel1(J).Font.Italic = DataGrid1.Font.ItalicLabel1(J).Font.Bold = DataGrid1.Font.Bold   Next JAdodc1.RefreshNrec = Adodc1.Recordset.RecordCountAdodc1.Recordset.MoveFirstFor I = 1 To Nrec - 1   For J = 0 To 3      TEXTT = DataGrid1.Columns(J).Value      Label1(J).Caption = TEXTT + " "      If MAXWid(J) < Label1(J).Width Then MAXWid(J) = Label1(J).Width   Next J    Adodc1.Recordset.MoveNextNext I      For J = 0 To 3      TEXTT = DataGrid1.Columns(J).Value      Label1(J).Caption = TEXTT + " "      If MAXWid(J) < Label1(J).Width Then MAXWid(J) = Label1(J).Width   Next J   For J = 0 To 3DataGrid1.Columns(J).Width = MAXWid(J) + 100   Next JEnd Sub  وأرجو من أى منكم أن يكتبه بأسلوب أسهل من ذلك أو أن يذكر لى خاصية من خواص ال datagrid تقوم بهذه العملية ولكم ألف شكر
  8. لدى datagrid متصلة ب ADODC وتعرض بيانات جدول معين فى أعمدتها فهل من كود أو خاصية من خواص ال datagrid أو أى طريقة تغير من عروض هذه الأعمدة تلقائيآ حسب البيانات المكتوبة فيها كما نتحكم فى عرض ال Label مثلآ بجعل الخاصية Autosize تساوي True ولكم ألف شكر  
  9. جزاك الله خيرآ ولك ألف ألف شكر
  10. لدى فورم جهزتها بجميع أدواتها وأريد الكود اللازم لطباعتها على الورق   أريد طباعتها بأكملها على الورقة الموجودة فى الprinter مهما كانت أبعاد الفورم ومهما كانت أبعاد الورقة   ولكم ألف شكر طباعة الفورم.zip  
  11. نعم أريد طباعة محتوياتها فقط - دون إطار ودون بعض الأزرار   Private Sub Command1_Click() cmdAdd.Visible = False: cmdAdd.Enabled = False cmdDelete.Visible = False: cmdDelete.Enabled = False CMDUpdate.Visible = False: CMDUpdate.Enabled = FalsecmdCancle.Visible = False: cmdCancle.Visible = False Adodc1.Visible = False: Adodc1.Enabled = False Command1.Visible = False -Rem"هنايجب وضع الكوداللازم لطباعةالفورم عندالضغط على زرالطباعة" Command1.Visible = True End Sub  أرجو منك تعديل الكود وليتك ترسل الفورم كاملة فى ملفى المرفق ولك ألف ألف شكر
  12. ان كان المطلوب صعبآ فأرجو ممن حملو المرفق أى كود لطباعتها على الورقة ومش ضرورى الشرط (مهما كانت أبعاد الفورم ومهما كانت أبعاد الورقة)
  13. طب أى حد يعرفنى السؤال واضح وطلبى مفهوم ولكن حله صعب؟ أم أن السؤال غير مفهوم أصلا؟  
  14. السلام عليكم ورحمة الله تعالى وبركاته أود أن اعرف كيف يكتب الكود الصحيح للقيام بعملية التكرار هذه علمآ بأن عدد مرات التكرار متغير غير ثابت   Private Sub Command1_Click()    N = InputBox("  ", "أدخل قيمة N") For I1 = 1 To 20For I2 = I1 + 1 To 20For I3 = I2 + 1 To 20For I4 = I3 + 1 To 20Rem " وهكذا وهكذا .........حتى نصل لقيمةN  "Rem "   فاذا كانت N=9 مثلا" فان آخر جملة تكونFor I9 = I8 + 1 To 20Rem "هنا توجد مجموعة الجمل المحتوية على كل من ........,I1,I2,I3"Next I4Next I3Next I2Next I1End Subوأوضح مرة أخرى أن الكود الذى أريده يحتوى على عدة متغيرات عددها=In,......,I3,I2,I1) N)   جزاكم الله خيرا ولكم الف شكر 
  15. بحث عن كلمة في صفحة الموقع

    يبدو أن هذا ليس طلبك نهائيآ
  16. أوضح المشكلة عندى للجميع أكثر وأكثر المشكلة عندى أنى لا استطيع ضبط عدد مرات تكرار اللوب(عدد مرات جمل الFOR وعدد مرات جمل الNEXT) أعرف فقط أن عددهم سيكون على قدر قيمةالمتغير N   :cry: ولكن كيف أكتب الكود اللازم لذلك وأنا لاأعرف أصلآ كم ستكون قيمة هذا المتغير N  (فالمستخدم هو الذى سيعطى بنفسه قيمته) ولكم ألف شكر
  17. أنا فى انتظار ردك بعد ما أخبرتك عمّا أريد أن أفعل بالضبط
  18.   أوضح معنى هذه الكلمة جيدآ  . ففى المثالين المرفقين أحدهما هوكود يسرد لنا طرق الاختيار اذا كان لينا 8 أشياء نريد اختيار 4منهم مثلآ والآخر هوكود يسرد لنا طرق الاختيار اذا كان لينا 8 أشياء نريد اختيار 3منهم مثلآ ولكنى أريد مثالآ عامآ لأى رقمين غير معلومين   لاأريد  8 ولا  4 ولاأريد  8 ولا  3 ولكن أريد المستخدم هو الذى يعطى بنفسه قيمة كل منهما
  19. جراك الله خيرآ الغرض من ذلك هو عملية توافيق واحتمالات فاذا كان لينا 6 أشياء نريد اختيار 3منهم فكلنايعلم ان عدد طرق اختيارهم 6ق3 =(1*2*3)/(4*5*6)=20 ولكنى أريد سرد كل احتمالات طرق الاختيار الممكنة وليس معرفة عددهم فقط وهذا مرفق به مثال بسيط يوضح للجميع الكود الذى أريده اذا كان لينا 8 أشياء نريد اختيار 3منهم مثلآ 8ق3 ومثال بسيط آخر يوضح للجميع الكود الذى أريده اذا كان لينا 8 أشياء نريد اختيار 4منهم مثلآ 8ق4 ولكنى أريد مثالآ عامآ لأى رقمين سؤال فى اللوب.zip  
  20. بحث عن كلمة في صفحة الموقع

    أتمنى أن يكون هذا هو طلبكالبحث عن كلمة.zip
  21. طلب مساعده في الفجيوال بيسك لو سمحتم

    أليس هذا هو طلبك   ان لم يكن هو فليتك توضح لنا ما طلبك
  22. طلب مساعده في الفجيوال بيسك لو سمحتم

    هذا هو طلبك وطبعآ الكود كان ممكن يكون أسهل من كده لو لم أراعى عدد أيام كل شهر أى لو اعتبرت عدد أيام أى شهر 30 يوم   لاتنسى تقييم الاجابة ان كان هذا فعلآ هو طلبك طرح الأوقات.zip
  23. تعديل كود التفقيط

    هذا هو كود التفقيط ولكن باللغة العربية ان شاء الله يكون هو طلبك   تفقيط الرقم.zip