اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

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

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

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

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

CALLING.rar

قام بنشر

تفضل أخي  :smile:

 

هذا كود الزر:

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 والسلام  :smile:

 

 

جعفر

  • Like 2
  • تمت الإجابة
قام بنشر

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

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

جعفر

قام بنشر

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

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

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

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

قام بنشر

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

 

حياك الله  :smile:

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

 

 

 

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

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

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

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

 

 

حياك الله  :smile:

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

 

 

جعفر

  • 2 weeks later...

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
×
×
  • اضف...

Important Information