نمایش اطلاعات رکورد انتخاب شده در دیتاگرید در یک فرم دیگه

[parisa.s]

سلام
بچه ها ببخشید انقد سوالام ابتداییه
خیلی گشتم ولی نتونستم جوابی پیدا کنم
2تا سوال دارم.البته سوالام خیلیه ولی اینا رو الن میپرسم
1-من اطلاعات یک جدول رو در دیتا گرید نمایش میدم حالا میخوام کاربر هرکدوم از رکودهامو انتخاب کرد محتوای فیلد شماره اتاق رو در یک لیبل در فرم دیگه نمایش بده لیبل من به همون فیلد شماره اتاق همون جدول ارتباط داره
از Adodc هم استفاده می کنم
2- من یه فیلد دارم از نوع yes/no در اکسس من میخوام وقتی مثلا شماره اتاق ثبت میشه فیلد اقامت در جدول اتاق بشه yes

بچه ها خواهش می کنم زود جوابمو بدین آخه فقط 10 روز وقت دارم واسه پروژم کلی هم eror
اگه میشه زود جوابمو بدین
خواهش می کنم:ناراحت::افسرده:

[akbarg64]

سلام.والا نمیدونم درست باشه یا نه.امیدوارم اشتب نکرده باشم.جواب سوال اولت.موفق باشید.اگه اشتب بود ببخشید.




Private Sub DataGrid1_Click()
If Adodc1.Recordset.RecordCount > 0 Then
Form2.Label1 = Adodc1.Recordset.Fields("Customer_ID")
End Sub

[returnx]

برای سوال دومت شاید این راه حلی که میگم خیلی اصولی نباشه ولی جواب میده .
شما تو این فرمت یک Adodc دیگه به همراه یک Check box بزار زمانی که شماره اتاق ثبت شد اونوقت :

checkbox.value=1 بشه بعد هم Addoc دوم هم Addnew بشه.
در ضمن باید Checkbox با فیلد مورد نظر ارتباط بدی.

[HjSoft]

میتونید به جای استفاده از Yes/No از یک فیلد عادی استفاده کنید که 1 نشانگر yes و 0 نشانگر no هست .
برای سوال الوتن هم می تونید فیلد ها رو با پایگاه set کنید . یعنی فقط نام فیلد رو به تکست باکس بدید و بعد در موقع لود اون فرم datasource ها رو با کد زیر به فرم یک ارتباط بدید .

set textbox1textdatasource = form1.adodc1

[parisa.s]

سلام.والا نمیدونم درست باشه یا نه.امیدوارم اشتب نکرده باشم.جواب سوال اولت.موفق باشید.اگه اشتب بود ببخشید.




Private Sub DataGrid1_Click()
If Adodc1.Recordset.RecordCount > 0 Then
Form2.Label1 = Adodc1.Recordset.Fields("Customer_ID")
End Sub




سلام
اول از همتون مخصوصا دوستمون akbarg64 (http://www.barnamenevis.org/forum/member.php?u=72295) بابته کمکتون تشکر می کنم
با همین جواب داد
برای سوال دومم
هم
frmroomview.Adodc1.Recordset.Filter = "shomareotagh ='" & lblroom.Caption & "'"
frmroomview.Adodc1.Recordset.Fields!por = True
که جواب داد
مرسی از همتون