مساعدة في تنسيق حقل في النموذج

[ازهر عبد العزيز]

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

المطلب الاول 

لدي نموذج fur كيف اضيف الاختصار في الحقل code الى القيمة في الحقل بمعنى عند اختبار ur1 من الحقل code يضاف الى الرقم الموجود في الحقل ur دون التاثير في الجدول اي هذة الاضافة تكون فقط في النموذج 

المطلب الثاني 

في النموذج furh في الحقل x1,و الحقلx2  نفس الشئ اي اظهار الارقام الموجود في الحقل مسبوقة بالاختصار ur1 في الحقل x1 وايضا الحقل x2 يكون الرقم مسبوق بur2 

دون التاثير في الجدول اي هذة الاضافة تكون فقط في النموذج 

 

 

ur.accdb

[د.كاف يار]

اخي ازهر بصراحة ما فهمت طلبك لكن جرب هذا و عدل حسب حاجتك

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
        Set db = CurrentDb
    
        Set rs = db.OpenRecordset("SELECT * FROM [HUR] WHERE [ID]=[Forms]![fur]![ID];")
    
            If Not rs.BOF And Not rs.EOF Then
                rs.MoveFirst
                While (Not rs.EOF)
                    [ur] = rs.Fields("ID")
                Wend
            End If
            rs.Close
        Set rs = Nothing