• الإعلانات

    • فيصل الحربي

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

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

mhareek

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

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

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

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

  1. اريد كود ترحيل البينات الموجوة فى اكثر من تكست فى الفورم الى عمود واحد بقاعدة البينات بحيث تاخد البينات فى موقعها فى العمود بالترتيب   قاعدة بينات اكسس  
  2. اخوانى الاحباب لقد تعبت ولم اجد حلا فارجو من اخوانى المبرمجين ان تساعدونى فى حل هذة المشكلة اريد ان احفظ الصورة من بعد سحبها مباشرتا من الاسكنر عند ظهورها اريد ان اضغط حفظ فتحفظ فى قاعدة البيانات ارجو المساعدة للاهمية ومن بيده شى ارجو ان لايبخل على جعلها الله فى ميزان حسناته جزاكم الله خيرا vb4arab pic.rar
  3. اخوانى الاحباب انا ارفقت مثال ما اريدة هو شرح للمرفق بخصوص الشيك بوكس فقط لانى تهت فى المثال مش عارف مايخص الشيك بوكس فى الكود لان المثل بة اكثر من شى ارجو الاهتمام اخوانى المحترفون جزاكم الله خير نظرا لحاجتى الية اريد فقط الشيك بوكس ولكم جزيل الشكر , وايضا وجدت الشرح بالانجليزى للمساعدة فى فهم المرفق ومساعدتى لنفهمة سويا بما يفيد الكل وجزاكم الله خيرا ارجوالمساعده جزاكم الله خيرا The Checkbox Column Implementing checkboes for boolean columns involves many of the same constructs as the lookup column, except that we must have one checkbox for every visible row, and we must maintain synchronization between the visible states of the checkboxes and the data that underlies them. Checkboxes in VB aren't actually boolean, they are tristate; a value property of 1 indicates the check-mark is set, 0 means it is clear, and 2 means it is grayed to symbolize an indeterminate value. Values 1 and 0 map perfectly to SQL Server bit columns but some adjustment is needed for to support [VB-native] variant boolean values, which represent "True" with the numeric value -1. You can use the Abs function to convert a True expression to set a checkbox, e.g., checkbox1.value = Abs(str = "Yes") This will evaluate to 1 if the value of str is "Yes", and 0 otherwise. To dynamically supply each visible row with a checkbox at runtime, we must create a control array with one element at design time -- at index 0. This can be done in several ways, the easiest of which to explain being: 1.) Create a checkbox on the form; 2.) Set the Index property of that checkbox to 0 (it will be empty by default.) A non-empty Index property converts a regular control to a control array. Once done, you can create additional elements in that array, using the Load statement in your code. The pair of loops below will adjust the number of array elements up or down to suit the size of the Grid: Dim i With Grid If (ChkboxArray.UBound <> .VisibleRows) Then For i = ChkboxArray.UBound + 1 To .VisibleRows - 1 Load ChkboxArray(i) Next For i = .VisibleRows To ChkboxArray.UBound Unload ChkboxArray(i) Next End If End With Syncing changes made by a user clicking a checkbox is best accomplished using a clone of the recordset that's bound to the Grid -- we don't want to use the same recordset as the Grid uses its record position internally, and altering it causes negative behavior to say the least. A clone is created by calling the Recordset.Clone method (see the ADO documentation for a full discussion of recordset cloning.) Assume for purposes of this handler that a valid clone has been created at class scope or above. Private Sub cb_Click(index As Integer) On Error Resume Next With Grid rsClone.Bookmark = .RowBookmark(index) rsClone.Fields(1).Value = cb(index).Value * -1 End With End Sub If something other than the grid could change the underlying data while it's displayed in the grid, we must declare the recordset object WithEvents, and process the RecordChangeComplete event. Note the use of a global boolean flag (bInSetCheckboxes) to prevent a recursive event storm. Private Sub rsClone_RecordChangeComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) If bInSetCheckboxes = True Then Exit Sub SetCheckboxes 1, cb End Sub That's basically it! The sample application that accompanies this article demonstrates implementation of these technique. (It also includes a utility form called GridSpy, that's explained in a companion article.) ارجو الاهتمام من يفعل خيرا يجد خيرا GridSpyTester.zip
  4. اخى الحبييب ممكن ان تضع مثال بسيط على فكرتك بالربط بدون اكواد مشكور اخى الحبييب جزاك الله خيرا
  5. اخى الحبييب الغالى كلامك جميل ولكن لن تظهر الشيك بوكس فى الداتا جريد ولو وضعت فى قاعدة البينات عمود ب نعم او لا يطهر فى الداتا جريد 0 و -1 ولا يظهر الشيك بوكس ولكن فى المثال المرفق تظهر الشيك بوكس فى الداتا جريد ولكن تقراء فقط من قاعدة البينات ولا تحفظ فيها اى اذا اشرت فى الدتا جريد فى اى شيك بوكس ثم اغلقت وفتت مرة اخرى تجد ان لاتاثير بينما لو قمت بالتاشير داخل قاعدة البينات عند فتح البروجكت يظهر التغيرات التى غيرتها اذن نفهم من ذلك انة مجرد عرض لما فى داخل قاعدة البينات ولا يؤثر فيها اما ما تريد ان تقوم به اخى الحبييب فانه لاتظهر الشيك بوكس فى الدتا جريد وبالتالى انتفى الغرض الاساسى اخى الحبييب ان شاء الله ربنا يساهدنا ونقدر نفهم المثل ونغير فية والله المستعان
  6. اخى الحبييب جزاك الله خيرا على الرد انا لا اريد تحليل المثال كل الذى اريدة بالنسبة للداتاجريد كيف نضع فيها شيك بوكس مثل التى بالمثال وعند وضع علامة صح فى الشيك بوكس تواثر فى قاعدة البينات لذلك جلبت هذا المثل ولكنى لا افهم جميع اطرافة فطلبت من الاخوة الافاضل المساعدة جزاك الله خيرا للاهتمام
  7. غريبة ناس كتير شاهدة المشاركة ولا احد ردد هلى الموضوع شائك لهذة الدرجة حتى فى 5 قامو بالتحميل تاخوانى طيب نتناقش سوبا فى هذا الموضوع ومن النقاش انا متاكد اننا هنقدر نوصل لشى ممتاتز سويا والله الموفق وهو المستعان على كل شء والحمد للة رب العالمين جزاكم الله خيرا
  8. الخى الحبييب عند التصدير الى الاكسيل اريد ان يفتح صفحة واختار موقع الملف واسم الملف ولكن الكود الى حضرتك وضعتة يقوم بالتصدير الى اكيل الى ملف واحد فقط والى مكان واحد يوجد مثال مرفق مع ابرنامج لكنة صعب الفهم ارجو المساعدة جزاك الله خيرا
  9. الف الف شكر اخى الحبييب جزاك الله عنى خيرا وجعلة الله فى ميزان حسناتك فقد استفد بشرح الرائع افضل الناس انفعهم للناس لا حرمنا الله منك ابدا سؤال اخى الحبييب هل هناك اصدار جديد من الاكتف ريبورت بعد الاصدار 2