انتقال کلیه اطلاعات رکوردهای یک فیلد در سابفرم به تکس باکسی در فرم

[saeed1234n]

با سلام
دوستان عزیز
همانطور که در فایل پیوست خواهید دید
میخواهم کلیه اطلاعات رکوردهای یک فیلد در سابفرم به تکس باکسی در فرم منتقل شود
:متفکر::متفکر::متفکر::متفکر:
با تشکر از همگی عزیزان
:تشویق::تشویق:

115343

[Abbas Amiri]

با سلام
دوستان عزیز
همانطور که در فایل پیوست خواهید دید
میخواهم کلیه اطلاعات رکوردهای یک فیلد در سابفرم به تکس باکسی در فرم منتقل شود
:متفکر::متفکر::متفکر::متفکر:
با تشکر از همگی عزیزان
:تشویق::تشویق:

115343

کد زیر را در ماژول فرم اصلی قرار دهید

Private Sub Form_Current()
Dim rs As Recordset, strGhabz As String
Set rs = Me![Table2 Subform].Form.Recordset
With rs
.MoveFirst
Do While Not .EOF
strGhabz = strGhabz & Nz(rs(1)) & ","
.MoveNext
Loop
End With
If Len(strGhabz) Then strGhabz = Left(strGhabz, Len(strGhabz) - 1)
Me.no_ghabz = strGhabz
Set rs = Nothing
End Sub

[saeed1234n]

با سلام
با تشکر فراوان از جناب استاد امیری
جناب استاد بنده کد فوق را طبق فرمایش جنابعالی استفاده کردم
ولی متاسفانه نتیجه نگرفتم

کمال تشکر را دارم اگر بار دیگر آنرا بررسی بفرمایید .

[Abbas Amiri]

با سلام
با تشکر فراوان از جناب استاد امیری
جناب استاد بنده کد فوق را طبق فرمایش جنابعالی استفاده کردم
ولی متاسفانه نتیجه نگرفتم

کمال تشکر را دارم اگر بار دیگر آنرا بررسی بفرمایید .

سلام

کدهای فوق در نمونه خودتان

[saeed1234n]

با تشکر از استادخوبم جناب امیری
جناب امیری اگر فیلد دیگری در سابفرم قرار دهیم و بخواهیم تنها اطلاعات فیلد جدید اضافه شود چه باید کرد ؟

در نمونه ضمیمه فیلدجدید را اضافه کردم تحت نام fee
و می خواهم اطلاعات قرار گرفته در این فیلد به تکست باکس فرم منتقل شود .
باز هم تشکر می کنم و از اینکه با سوالات پیش پا افتاده برای جنابعالی وقت با ارزشتان رامی گیرم شرمنده هستم.

115349

[abdoreza57]

سلام ضمن تشکر از دوست خوبم جناب Saeed1234n و استاد امیری عزیز لطفا فایل را فرمت 2003 بگذارید چون ایده خوبی هست. خدا نگهدار

[Abbas Amiri]

با تشکر از استادخوبم جناب امیری
جناب امیری اگر فیلد دیگری در سابفرم قرار دهیم و بخواهیم تنها اطلاعات فیلد جدید اضافه شود چه باید کرد ؟

در نمونه ضمیمه فیلدجدید را اضافه کردم تحت نام fee
و می خواهم اطلاعات قرار گرفته در این فیلد به تکست باکس فرم منتقل شود .
باز هم تشکر می کنم و از اینکه با سوالات پیش پا افتاده برای جنابعالی وقت با ارزشتان رامی گیرم شرمنده هستم.

115349

اگر می خواهید فیلد دیگری را انتخاب کنید کافیست شماره فیلد و یا نام آنرا در کدها عوض می کردید. ضمیمه زیر در ورژن 2003 تهیه شده . با تغییر مقدار فیلد Fee مقدار No-ghabz آپدیت خواهد شد.