اضافة dot فى منتصف الكلمة او بعد ثلاث خانات تلقائيا

[Abdelaziz Osman]

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

لدى فى النموذج المرفق حقل باسم middledot

اريد كود vba او طريقة تجعل السجلات فى هذا الحقل تلقائيا تحتوى على "." بعد ثلاث خانات او فى منتصف الكلمة

بعد الادراج او التحديث

تفصيلا :   اذا اردت ان الصق محتويات هذه السجلات دفعة واحدة من ملف اكسل بحوالى 100 سجل او اكثر ولكن هذه السجلات فى الاكسل لا تحتوى على "." فى المنتصف فاضطر الى تعديل تلك السجلات فى اكسيس سجل سجل واضيف "." فى المنتصف بعد لصقها من الاكسل او استيرادها من ملف الاكسل

لان طبيعة قاعدة البيانات فى شغل الاكسيس لابد ان يكون هذا الحقل يحتوى على "." فى المنتصف او بعد ثلاث خانات ايهما اسهل

 

فماذا افعل  ارجوا المساعدة

 

 

 

 

dot.accdb

[ابوخليل]

تفضل شغل الاستعلام وهو يقوم بالمهمة

تنبيه : لا تكرر تشغيل الاستعلام .. لانه سيضيف نقطة اخرى

التشغيل مرة واحدة ثم احذف الاستعلام

dot2.rar

[ابو عارف]

تفضل انظر استعلام و نموذج الجديدين

dot.accdb

[Foksh]

1 ساعه مضت, Abdelaziz Osman said:

فماذا افعل  ارجوا المساعدة

 

مشاركة مع الأساتذة ،

في حدث بعد التحديث لمربع النص middledot ، استخدم الكود التالي وهو تلقائياً سيقوم باضافة "." بعد التحديث بعد 3 حروف ، او تغيير القيمة حسب حاجتك :-

Private Sub middledot_AfterUpdate()
    Dim txt As String
    txt = Nz(Me.middledot.Value, "")
    If Len(txt) = 0 Then Exit Sub
    txt = Replace(txt, ".", "")
    If Len(txt) > 3 Then
        Me.middledot.Value = Left(txt, 3) & "." & Mid(txt, 4)
    End If
    Exit Sub
End Sub

 

أما عند نسخك سجلات أكثر من 1 على سبيل المثال ، فهذا الاكود في حدث عند التحميل سيقوم بإضاة "." للقيم في الحقل نفسه التي لا تحتوي على "." أساساً .

Private Sub Form_Load()
    Dim db As DAO.Database
    Set db = CurrentDb()
    db.Execute "UPDATE Dot " & _
               "SET middledot = Left(Replace(middledot,'.',''), 3) & '.' & " & _
               "Mid(Replace(middledot,'.',''), 4) " & _
               "WHERE middledot IS NOT NULL " & _
               "AND Len(middledot) > 3 " & _
               "AND Mid(middledot, 4, 1) <> '.'", dbFailOnError
    Set db = Nothing
    Exit Sub
End Sub

وها يضمن عدم اضافة "." للسجلات التي تحتوي أساساً على "." بعد الحرف الثالث ..

 

dot.accdb

 

 

 

تم تعديل منذ 14 ساعات بواسطه Foksh
إضافة كود حدث عند التحميل