تثبيت رقم على باقى الخلايا بالضغط على زرار

[khaledhelmy]

إخوانى من فضلكم المثال المرفق به نموذج يوجد به شاشة بحث بالتاريخ

والمفروض اننى عندما أقوم بإدخال التاريخ 2015/03/16

يقوم بإظهار العملاء.

والرقم الموجود فى اول خانة هو 1

المطلوب هو أنه عندما اقوم بالضغط على الزرار الموجود بالأسفل يقوم بكتابة رقم 1 فى باقى الخلايا

بدل من أقوم بكتابته فى باقى الخلايا باليد

وشكراً جزيلا وجزاكم الله كل خير

CALLING.rar

[Elsayed Bn Gemy]

طب سؤال يا خى الكريم هو الرقم واحد دا ثابت ولا متغير

[jjafferr]

تفضل أخي 

 

هذا كود الزر:

Private Sub Command25_Click()
'On Error Resume Next
' DoCmd.GoToRecord , , acNewRec
'If Me.NewRecord And Me.CurrentRecord > 1 Then
'    Me.NUM_ESAL = DLast("[num_esal]", "1")
'      End If

    Num = InputBox("Please Enter the number")
    
    Set rst = Me.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    DoCmd.GoToRecord , , acFirst
    
    For I = 1 To RC
        
        rst.Edit
            rst!NUM_ESAL = Num
        rst.Update
        
        rst.MoveNext
    Next I
    

End Sub

مافي داعي تكتب الرقم ، وطريقة العمل:

1. اختر التاريخ ،

2. اضغط على الزر ، 

3. في نافذة تطلب منك الرقم ، ادخل الرقم واضغط ok والسلام 

 

 

جعفر

[jjafferr]

تعديل بسيط ، اذا لم يتم اخيار اي رقم وتم الغاء الامر:

Private Sub Command25_Click()
'On Error Resume Next
' DoCmd.GoToRecord , , acNewRec
'If Me.NewRecord And Me.CurrentRecord > 1 Then
'    Me.NUM_ESAL = DLast("[num_esal]", "1")
'      End If

    Num = InputBox("Please Enter the number")
    If Len(Num & "") = 0 Then Exit Sub
    
    Set rst = Me.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    DoCmd.GoToRecord , , acFirst
    
    For I = 1 To RC
        
        rst.Edit
            rst!NUM_ESAL = Num
        rst.Update
        
        rst.MoveNext
    Next I
    

End Sub

جعفر

[Elsayed Bn Gemy]

اخى جعفر دائما سباق الى الخير لا حرمنا الله منكم

[khaledhelmy]

السيد الأستاذ المحترم / جعفر

شكراً جزيلاً على تعبك ومعايا

فعلاً وهو المطلوب

جزاك الله كل خير وشكراً جزيلاً

[khaledhelmy]

ردا على الأخ الكريم / مارد

فالرقم دائماً متغير

[jjafferr]

اخى جعفر دائما سباق الى الخير لا حرمنا الله منكم

 

حياك الله 

هاه ، هل استقر رأيك على صورة معينة 

 

 

 

السيد الأستاذ المحترم / جعفر

شكراً جزيلاً على تعبك ومعايا

فعلاً وهو المطلوب

جزاك الله كل خير وشكراً جزيلاً

 

 

حياك الله 

اعتقد سؤالك في الموضوع الاخر يعتبر ملغي الان ، صح؟

 

 

جعفر

[khaledhelmy]

صح أخى الكريم جعفر