بلال اليامين قام بنشر فبراير 19, 2020 قام بنشر فبراير 19, 2020 السلام عليكم لدي ستة حقول اريد دمجهم في حقل واحد وهذا ليتم وضعهم في الباركور واريد ان يتكون الباكور من 16رقما وهذا عن طريق وحدة نمطية او الاستعلام وتتكون هذه الارقام من معلومات الموظفين وهو الرمز الموظف
محمد أبوعبدالله قام بنشر فبراير 20, 2020 قام بنشر فبراير 20, 2020 وعليكم السلام ورحمة الله وبركاته من الاستعلام استخدم 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 تحياتي 3 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.