دسترسی به داده های یک سطر در دیتاشیت [بایگانی]

saraytanha

یک شنبه 13 آبان 1397, 23:21 عصر

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

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

mohammadsaleh

دوشنبه 14 آبان 1397, 20:40 عصر

سلام
باید در رویداد کلیک فیلدی مثل 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 (https://www.w3schools.com)

saraytanha

سه شنبه 15 آبان 1397, 23:12 عصر

سلام
باید در رویداد کلیک فیلدی مثل 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 (https://www.w3schools.com)

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

نوشیروانی

سه شنبه 15 آبان 1397, 23:51 عصر

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

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

saraytanha

پنج شنبه 17 آبان 1397, 03:13 صبح

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

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