دسترسی به داده های یک سطر در دیتاشیت

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

http://uupload.ir/files/40t_untitled.jpg

سلام
باید در رویداد کلیک فیلدی مثل id یه چیزی شبیه کدهای زیر رو اضافه کنی
سمت چپ علامت = نام فیلدهای جدول شما و سمت راست نام کنترلهای روی فرم شماست

Dim db As Database
Set db = CurrentDb
Dim rst As Recordset
Dim sql As String
sql = "select * from telefone WHERE id=" & Me.Tid & ""
Set rst = db.OpenRecordset(sql, dbOpenDynaset)
With rst
.Add
!dat = Tarikh
!name = Me.Tname
!job = Me.Tsemat
!organe = Me.Torgan
.Update
.Close
End With

سایت عالی برای یادگیری:
https://www.w3schools.com

نقل قول:

---

نوشته شده توسط mohammadsaleh

سلام
باید در رویداد کلیک فیلدی مثل id یه چیزی شبیه کدهای زیر رو اضافه کنی
سمت چپ علامت = نام فیلدهای جدول شما و سمت راست نام کنترلهای روی فرم شماست

Dim db As Database
Set db = CurrentDb
Dim rst As Recordset
Dim sql As String
sql = "select * from telefone WHERE id=" & Me.Tid & ""
Set rst = db.OpenRecordset(sql, dbOpenDynaset)
With rst
.Add
!dat = Tarikh
!name = Me.Tname
!job = Me.Tsemat
!organe = Me.Torgan
.Update
.Close
End With

سایت عالی برای یادگیری:
https://www.w3schools.com

---

فک می کنم درست متوجه منظورم نشدید
من حتی نمی دونم به ایدی انتخاب شده چطور دسترسی داشته باشم .. روال جستجو با یک ایدی مشخص رو می دونم .. نکته هم ندونستن ایدی انتخاب شده است

نقل قول:

---

نوشته شده توسط saraytanha

فک می کنم درست متوجه منظورم نشدید
من حتی نمی دونم به ایدی انتخاب شده چطور دسترسی داشته باشم .. روال جستجو با یک ایدی مشخص رو می دونم .. نکته هم ندونستن ایدی انتخاب شده است

---

سلام
اگه درست متوجه شده باشم شما می خواهید با کلیک روی هرسطر به فرم دیگری وصل شوید
من یه مثال ساده ساختم ببنید بکارتان میآد

نقل قول:

---

نوشته شده توسط نوشیروانی

سلام
اگه درست متوجه شده باشم شما می خواهید با کلیک روی هرسطر به فرم دیگری وصل شوید
من یه مثال ساده ساختم ببنید بکارتان میآد

---

ممنونم ازت دوست گرامی من با کد vb نوشتم و مشکلم با نمونه ماکرو قسمت شرط ات حل شد