[mhareek]

اخوانى الاحباب    اريد   عند اختيار مجموعة بينات بكود البحث        اريد ان اكتب فى احد الخانات نفس البيان  وترحيل مرة واحدة الى  فى خانة واحد من الجدول

سوف اضع الكود  ارجو التعديل علية   جزاكم الله خيرا

كود :

Adodc1.Refresh
Adodc1.RecordSource = "SELECT cod,mas FROM alldata WHERE  cod >=" & (Text2.Text) & " and cod <=" & (Text3.Text) & ""
Adodc1.CommandType = adCmdText
   Adodc1.Refresh
   
     For i = Text2.Text To Text3.Text
   
  Adodc1.Recordset.Fields![mas] = Combo1.Text
   Adodc1.Recordset.Update
 
     
  Next


End Sub

[mhareek]

احبابى فى الله لية محدش رد عليا هلى سوالى صعب

[mhareek]

احبابى اى حد يدنى مساعدة جزاكم الله خيرا

[ahmedabdelaliem]

سلام عليكم
ممكن توضيح اكثر هل تريد تعبئة الكمبو بالبيانات ام ماذا ويا ريت يكون فيه صور للفهم اكثر

بالتوفيق

[mhareek]

استاذي وحبيبنا الغالى الاستاذ احمد عبد الحميد

الموضوع باختصار  :        انا اريد عند البحث فى فليكس جريد  مثلا   هيظهر 10 نتائج       بالجدول  العمود الاخير  اسم المسؤول

اريد ان اكتب   اسم  هانى مثلا  فلا جميع الصفوف العشرة   مرة واحد فى عمود اسمالمسؤول   بدون تغير اى بينات فى باقى الاعمدة

[ahmedabdelaliem]

معلش ممكن تتصل عليه

للتوضيح اكثر

حاضرين يا غالي

[ahmedabdelaliem]

السلام عليكم

اخي الكريم هذا مثال للمطلوب

بالتوفيق

[mhareek]

احسنت استاذى الغالى ربى يحفطك يارب جزاك الله عنى خيرا جعله الله فى ميزان حسناتك اخى الغالى

[ahmedabdelaliem]

اتفضل اخي التعديل كما طلبت زر للعرض وزر للاضافة

PHP كود :

Private Sub Command1_Click()
Dim SQLs As String
Dim i As Integer
Dim RSDShow1 As New ADODB.Recordset
SQLs = ""
        SQLs = "Select * From Trans where Area='" & (Combo1.Text) & "'"
        If RSDShow1.State = adStateOpen Then RSDShow1.Close
        RSDShow1.Open SQLs, CN, adOpenKeyset, adLockPessimistic
        
         
         N = RSDShow1.RecordCount
         If N > 0 Then
      
    RSDShow1.MoveFirst
    Grid.Rows = RSDShow1.RecordCount + 1
        
        
        For i = 1 To N
                With Grid
                          If Not IsNull(RSDShow1.Fields(0)) Then .TextMatrix(i, 0) = RSDShow1.Fields(0)
                          If Not IsNull(RSDShow1.Fields(1)) Then .TextMatrix(i, 1) = RSDShow1.Fields(1)
                          '.TextMatrix(i, 2) = Combo2.Text
                          
                          End With
            RSDShow1.MoveNext
        Next
        End If
End Sub
Private Sub Command2_Click()
Dim i As Integer
 For i = 1 To Grid.Rows - 1
                With Grid
                          .TextMatrix(i, 2) = Combo2.Text
                          
                          End With
        Next
End Sub 


بالتوفيق

---

اتفضل اخي هذا التعديل مع الحفظ في قاعدة البيانات

بالتوفيق

---

وهذا الكود لتنظيف الجريد قبل كل عملية بحث ضيفه في اعلى الزر الاول

PHP كود :

For i = 1 To Grid.Rows - 1
For N = 0 To Grid.Cols - 1
Grid.TextMatrix(i, N) = ""
Next
Next 


بالتوفيق

[mhareek]

بارك الله فيك استاذانا الفاضل سلمت