كيف يتم تحديث النموذج عند التغيير في حقل "سجل" معين

[حامل المسك]

بسم الله الرحمن الرحيم

السلام عليكم إخوتنا الفضلاء ..

لدي نموذج به سجل مرتبط عن طريق الاستعلام .. أرغب عند التغيير في هذا السجل (الكتابة) أن يتم تحديث باقي السجلات مباشرة دون الانتظار إلى أن أخرج من السجل ..

مرفق مثال ..

تحديث حقل تلقائيا عند التغيير.rar

[حامل المسك]

[عبدالرحمن هاشم]

وعليكم السلام ورحمة الله

جرب أخي الفاضل هذا التعديل

عدد الحروف والكلمات مهم--edit.rar

[حامل المسك]

رائع جزت الجنة ووفقك الله لكل خير ورزقك البركة والتوفيق ..

[حامل المسك]

ظهرت مشكلة وهي اضطراب النموذج بشكل مزعج عند الكتابة المطولة؟؟!؟!؟؟!

[رمهان]

Private Sub حقل1_Change()
'رمهان اوفيسنا
x = حقل1.Text
حقل1 = x
Me.حقل1.SelStart = Len(x)
End Sub

 

[حامل المسك]

كتب الله أجركم المشكلة أنه في حال الكتابة في النموذج لأنها عبار عن مذكرة يصبح النموذج مضطرب .. لأنه يحدث .. فالمشكلة في اضطراب النموذج عند الكتابة 

[عبدالرحمن هاشم]

Private Sub حقل1_Change()
'رمهان اوفيسنا
x = حقل1.Text
حقل1 = x
Me.حقل1.SelStart = Len(x)
End Sub

 

كود في غاية الروعة اختصر الكثير أستاذ رمهان

جزاك الله كل خير

[عبدالرحمن هاشم]

أخي الفاضل حامل المسك أظن أنه من أسباب الاضطراب هو حجم حقل مربع النص لأنه أقصى إدخال له هو 255 حرف فقط وأنت تقول أنك تكتب مذكرة

إذن فالحل هو تبديل نوع الحقل من نص إلى مذكرة

وكود أستاذنا الكريم رمهان رائع ولكن عندما جربته وجدت أنه لا يعمل إلا مع مربع النص فلعله يتكرم علينا بإبداء حل في ذلك على حقل مذكرة

أما تعديلي البسيط السابق يمكنك تحويل حقل نص إلى مذكرة وسيعمل ولكن باضطراب بسيط بسبب تنفيذ الكود..

ولكن أرجح كود أستاذ رمهان وحبذا لو تم التعديل عليه بما يتماشى مع حقل المذكرة

[رمهان]

Private Sub حقل1_Change()
'رمهان اوفيسنا
x = حقل1.Text
حقل1 = x
Me.حقل1.SelStart = Len(x)
End Sub

 

كود في غاية الروعة اختصر الكثير أستاذ رمهان

جزاك الله كل خير

البركة فيك استاذ عبدالرحمن ! لك السبق في الحل ! 

طبعا اكيد انت شايف انه ليس له علاقة مباشرة بالحل ! هكذا الاكسس !

تحياتي

[عبدالرحمن هاشم]

    البركة فيك استاذ عبدالرحمن ! لك السبق في الحل ! 

طبعا اكيد انت شايف انه ليس له علاقة مباشرة بالحل ! هكذا الاكسس !

تحياتي

منكم نتعلم جزاك الله كل خير وزادكم من علمه

[حامل المسك]

حياكم الله العملية ناجحة لكن بالمثال يتضح المقال ..

لدي مذكرة موضوع طويل عند الكتابة يبدأ الحقل في الاضطراب لاحظوا المثال حاول إضافة كلام على حقل 1

تحديث نموذج عند التغيير.rar

[jjafferr]

تسمحون لي في ادلاء دلوي 

 

جرب النموذج frm2 ،

انا استعرت كود اخونا عبدالرحمن ، وعدلت عليه ، فاصبح:

Private Sub txt_KeyUp(KeyCode As Integer, Shift As Integer)
    
    Select Case KeyCode
        Case Is = vbKeySpace
            Exit Sub
    Case Else
      
        Call counting
    
    End Select
  
End Sub

Function counting()

    a = Me.txt.Text
    Me.txt_len = Len(a)
    Me.txt_letters = Len(Replace(a, " ", ""))
    Me.txt_words = Len(a) - Len(Replace(a, " ", "")) + 1
    
End Function

.

وممكن تجرب frm1 كذلك 

 

جعفر

209.عدد الحروف والكلمات مهم--edit.accdb.zip

[عبدالرحمن هاشم]

مبدع دائما أستاذي جعفر جزاك الله كل خير

[jjafferr]

حياك الله أخوي عبدالرحمن 

[رمهان]

تسمحون لي في ادلاء دلوي 

 

جرب النموذج frm2 ،

انا استعرت كود اخونا عبدالرحمن ، وعدلت عليه ، فاصبح:

Private Sub txt_KeyUp(KeyCode As Integer, Shift As Integer)
    
    Select Case KeyCode
        Case Is = vbKeySpace
            Exit Sub
    Case Else
      
        Call counting
    
    End Select
  
End Sub

Function counting()

    a = Me.txt.Text
    Me.txt_len = Len(a)
    Me.txt_letters = Len(Replace(a, " ", ""))
    Me.txt_words = Len(a) - Len(Replace(a, " ", "")) + 1
    
End Function

.

وممكن تجرب frm1 كذلك 

 

جعفر

209.عدد الحروف والكلمات مهم--edit.accdb.zip

مرحبا اخوي جعفر

هنا تم تحويل العناصر الى محسوبة وليس مضمنة ! فتلاحظ عند التنقل وعند الفتح  ليست دقيقة ! لم اجرب استخدام الكود عند الحدث عند الحالي! وطبعا انا افضل هذا الحل حيث لا حاجة لان تكون مضمنة لاستعلام !

كما انه عند التعديل بالمسح باكسبيس لا تتم الحسبة صحيحة 

اخيرا : لو اردنا ان تظل العناصر مضمنة ؟ هل من حل ؟ 

تحياتي

[حامل المسك]

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

[jjafferr]

الحقل الوحيد الذي موجود في الجدول هو حقل1 ، وهو مضمن في النموذج :)