• الإعلانات

    • فيصل الحربي

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

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

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

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

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

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

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

  1.   مطلوب كود ينفذ مجموعة أوامرفى الفورم الأصلية form1 فى حالة الضغط فى الmsgbox على  (تعليمات) مثلآ ينفذ مجموعة الأوامر PP = 3267: Print PP   وينفذ مجموعة أوامرأخرى فى نفس الفورم الأصلية form1 فى حالة الضغط فى الmsgbox على  (موافق) مثلآ ينفذ مجموعة الأوامر PP = 98: Print PP   وينفذ مجموعة أوامرأخرى (باقى كود الفورم الأصلية) فى أى من الحالتين بعد الانتهاء من الmsgbox مثلآ ينفذ الأمر Print "KKKKKKKKKKKKK"   ان كنت تستطيع ذلك فليتك ترفق لنا برنامجك كاملآ بطريقتك السهلة البسيطة  
  2. أجد الكود فى مرفقك هو نفس كودى بما فيه ال loop الذى اعترضت عليه نريد كودآ بدون هذا ال loop ودون أن تضع بدلآ منها جمل شرطية
  3. وما الفرق بين هذه الجملة وهذه الجملة؟ كلاهما جملة واحدة لنفس الغرض   وماذا تقصد باللوب ؟ هل تقصد الجمل الثلاثة DoDoEventsLoop Until Dialog.Visible = Falseهذه الجمل لاعلاقة لها باظهار الDialog أو اخفاؤه انما هى شرط لابد منه كى لا يكمل الكود  الا اذا تم  الضغط على أحد أزارالDialog   ان كنت تستطيع ذلك دون هذه الجمل ودون أن تضع بدلآ منها جمل شرطية IF .......THEN.......................END IFفليتك تعدل لنا كودى وترفقه لنا بالطريقة السهلة البسيطة التى تقصدها
  4. أريد كود اذا عدل المستخدم بنفسه فى ال txtFields

    عرفت الحل والحمد لله أن أكتب نفس الكود الذى كتبته فى البداية ولكن فى حدث الtxtFields_KeyPress وليس حدث الtxtFields_Change Private Sub txtFields_KeyPress(Index As Integer, KeyAscii As Integer)  CMdCancle.Visible = True  CMdUpdate.Visible = TrueEnd Sub  
  5. أريد كود لاظهار الزرين cmdUpdate و cmdCancle اذا عدل المستخدم بنفسه فى ال txtFields كتبت هذا الكود فوجدته يظهرهما فعلآ عند تعديل المستخدم فى ال txtFields ولكنه :hmm: يظهرهما أيضآ عند التنقل بين السجلات (أى عند الضغط على ال Adodc1)  Private Sub txtFields_Change(Index As Integer)   cmdCancle.Visible = False   cmdUpdate.Visible = False End Sub  ولكم ألف شكر
  6. هذا ما فهمته بالفعل وفى مرفقى الاجابة على سؤالك أظنك لم تقم بعمل الRUN للبرنامج الذى أرسلته لك
  7. أريد كود اذا عدل المستخدم بنفسه فى ال txtFields

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

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

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

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

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

    جزاك الله خيرآ ولكن ليتك توضح بكتابة الكود الصحيح وشكرآ
  13. أريد كود اذا عدل المستخدم بنفسه فى ال 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 ولكن لم يفلح الكود لأن تسلسل الأحداث كان غير ذلك
  14. توصلت لحل والحمد لله هذا كود يقوم بهذه العملية (وقد جربته ونفذ المطلوب والحمد لله)       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 تقوم بهذه العملية ولكم ألف شكر
  15. لدى datagrid متصلة ب ADODC وتعرض بيانات جدول معين فى أعمدتها فهل من كود أو خاصية من خواص ال datagrid أو أى طريقة تغير من عروض هذه الأعمدة تلقائيآ حسب البيانات المكتوبة فيها كما نتحكم فى عرض ال Label مثلآ بجعل الخاصية Autosize تساوي True ولكم ألف شكر  
  16. جزاك الله خيرآ ولك ألف ألف شكر
  17. لدى فورم جهزتها بجميع أدواتها وأريد الكود اللازم لطباعتها على الورق   أريد طباعتها بأكملها على الورقة الموجودة فى الprinter مهما كانت أبعاد الفورم ومهما كانت أبعاد الورقة   ولكم ألف شكر طباعة الفورم.zip  
  18. نعم أريد طباعة محتوياتها فقط - دون إطار ودون بعض الأزرار   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  أرجو منك تعديل الكود وليتك ترسل الفورم كاملة فى ملفى المرفق ولك ألف ألف شكر
  19. ان كان المطلوب صعبآ فأرجو ممن حملو المرفق أى كود لطباعتها على الورقة ومش ضرورى الشرط (مهما كانت أبعاد الفورم ومهما كانت أبعاد الورقة)
  20. طب أى حد يعرفنى السؤال واضح وطلبى مفهوم ولكن حله صعب؟ أم أن السؤال غير مفهوم أصلا؟  
  21. السلام عليكم ورحمة الله تعالى وبركاته أود أن اعرف كيف يكتب الكود الصحيح للقيام بعملية التكرار هذه علمآ بأن عدد مرات التكرار متغير غير ثابت   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)   جزاكم الله خيرا ولكم الف شكر 
  22. بحث عن كلمة في صفحة الموقع

    يبدو أن هذا ليس طلبك نهائيآ
  23. أوضح المشكلة عندى للجميع أكثر وأكثر المشكلة عندى أنى لا استطيع ضبط عدد مرات تكرار اللوب(عدد مرات جمل الFOR وعدد مرات جمل الNEXT) أعرف فقط أن عددهم سيكون على قدر قيمةالمتغير N   :cry: ولكن كيف أكتب الكود اللازم لذلك وأنا لاأعرف أصلآ كم ستكون قيمة هذا المتغير N  (فالمستخدم هو الذى سيعطى بنفسه قيمته) ولكم ألف شكر