حذف صدای بیپ بعد از زدن کلید اینتر در تکست باکس+ارتباط با اکتیو ریپورت

[ashkan1234]

با درود خدمت دوستان!
1-در تکست باکس وقتی کی اسکی رو 13 قرار میدهم (که بعد از اینتر به تب بعدی برم)یه صدای بیپ ایجاد میکنه!میخواستم ببینم راهی هست که این صدای بیپ نباشه ولی با اینتر بشه رفت به تب بعدی؟
ضمن اینکه بنده واسه هر یک از تکست باکس ها این کد رو تک تک نوشتم!راهی هست که یبار و در یک جا(مثل ماژول)این کد رو نوشت بعد هر تکست باکسی که رو فرم بود با اینتر بره رو تب بعدی؟(البته صدای بیپ حذف بشه)
2-تو کانکت شدن با اکتیو ریپورت مشکل دارم!
خیلی هم گشتم نه سورسی بود،نه اینکه راه و روش درستی!
من میخوام وقتی تو فرمم روی دکمه گزارش کلیک کردم:
1-اگه کاربر سرچ کرد و خواست از اونی که سرچ کرده گزارش و پرینت بگیره،فقط و فقط همون مورد جستجو شده اش رو براش نمایش بده!
2-اگه کابری چیزی سرچ نکرد هر چی اطلاعات تو دیتا گرید بود رو پرینت بگیره!
دقیقا مثل این سورس (http://barnamenevis.org/attachment.php?attachmentid=91874&d=1345974418) که کاربر عزیز m.4.r.m زحمت اش رو کشیدن!(فقط با این تفاوت که این فرم دیتا ریپورته،ولی من اکتیو ریپورت میخوام،چون خیلی کامل تر و بهتره ولی متاسفانه تا حالا باهاش کار نکردم!)
3-اگه کسی حوصله نداشت 2 رو جواب بده حداقل یه سورس بدرد بخوره از اتصال به اکتیو ریپورت با استفاده از کد نویسی بزاره!(یدونه تو انجمن بود،تو قسمت آموزش اکتیو ریپورت که بدردم نخورد)

[hrj1981]

1. جواب سوال

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0
End Sub
2. جواب سوال

Private Sub Command1_Click()
With ActiveReport1
With .DataControl1 ' ADO DataControl
.ConnectionString = "Connection Path"
.)Source = "SELECT * FROM table_name WHERE Field_Name=" & (Numeric Value
' OR
.)Source = "SELECT * FROM table_name WHERE Field_Name='" & (String Value" & "'"
.Refresh
End With
.Refresh
.Show
End With
End Sub