طريقة دمج ستة حقول عن طريق وحدة نمطية

[بلال اليامين]

السلام  عليكم

لدي ستة حقول اريد 

دمجهم في حقل واحد 

وهذا ليتم وضعهم في الباركور واريد ان يتكون الباكور من 16رقما

وهذا عن طريق وحدة نمطية او الاستعلام  

وتتكون هذه الارقام من معلومات الموظفين وهو الرمز الموظف

[محمد أبوعبدالله]

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

من الاستعلام استخدم

B : Text1 & "" & Text2 & "" & Text3 & "" & Text4 & "" & Text5 & "" & Text6

عن طريق الكود ضع هذا الكود في وحدة نمطية

Public Function All_Text(ID As Long) As String
On Error GoTo err_All_Text
    
    Dim rst As dao.Recordset
    Set rst = CurrentDb.OpenRecordset("Select * From tbl1 Where ID=" & ID)
    
    All_Text = rst!Text1 & "" & rst!Text2 & "" & rst!Text3 & "" & rst!Text4 & "" & rst!Text5 & "" & rst!Text6


Exit_All_Text:

    rst.Close: Set rst = Nothing
    Exit Function
err_All_Text:
    If Err.Number = 3265 Then
        All_Text = ""
        Resume Exit_All_Text
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Function

ثم استدعي الكود في الاستعلام بالشكل التالي

A: All_Text([id])

مرفق مثال ارجو ان يفيدك

D55.zip

تحياتي