تغییر کد select از یک کوئری به کد vba

[starckczar]

سلام
برای تغییر کد select زیر از کوئری به معادل آن در vba چکار باید انجام داد ؟


SELECT Zsaadatabad.[301], Zsaadatabad.address, Zsaadatabad.[post capacity], Zsaadatabad.[name post], *
FROM Zsaadatabad
WHERE (((Zsaadatabad.[301])<>0))
ORDER BY Zsaadatabad.[301];

همچنین این کد با یک کد vba جهت باز کردن گزارش همین کوئری در یک باتن باید قرار بگیرد،چطوری این دو در یک باتن بکار می روند؟
کد ریپورت:

Private Sub Command21_Click()

Dim stDocName As String

stDocName = "301"
DoCmd.OpenReport stDocName, acPreview
End Sub

[wolfstander]

سلام
در مورد تغییر کد
شما به این صورت مینویسی
dim vbarecoredsource as string
vbarecoredsource = "کدهای درون کوئری البته در یک خط"
در مورد اینکه در کامندباتن استفاده کنی، متوجه منظورت نشدم
اگه نمونه برنامه ات رو بذاری شاید بتونم کمک کنم

[starckczar]

در این بانک کمند باتن دکمه ای است که بوسیله آن ریپورت را فرا خوانی می کنم.

اگه ممکنه همون کد بالا رو با فرمتی که گفتین بصورت کامل بنویسد البته بعلاوه کد پایینترش ‍!
(یعنی با کد بالا در vba یک کوئری اجرا بشه و سپس ریپورت مربوط به آن نیز نمایش داده بشه)

مرسی

[id1385]

با سلام
اگه منظورتون اینه که چطور می شه توی کد vba از sql استفاده کرد می تونید نمونه های زیر رو ببینید.

کد VBA


'sql Statement
DoCmd.SetWarnings (off)
Dim sql As String
sql = "SELECT UserActivity.UserName, UserActivity.UserId FROM UserActivity WHERE (((UserActivity.UserId)=" & whosis(UserId) & "));"
DoCmd.RunSQL sql
خروجی که میده


SELECT UserActivity.UserName, UserActivity.UserId FROM UserActivity WHERE (((UserActivity.UserId)=17));
برای نمونه های دیگه هم یتونید از این نمونه ها استفاده کنید:
"DELETE"



DoCmd.SetWarnings (off)
Dim strsql As String
strsql = "DELETE daste.*, daste.code_daste FROM daste WHERE (((daste.code_daste)='" & Form_fr_tarifdaste.cod.Value & "'));"
DoCmd.RunSQL strsql
"UPDATE"


t1='
StrSql1 = "UPDATE kalaha SET kalaha.mojoodi = " & t1 & newVar & t1 & " , kalaha.kole_frosh = " & t1 & newkol & t1 & " WHERE (((kalaha.id_kala)= " & upvar.Value & " ));"



نمونه برنامه ای که از VBA در اون استفاده شده رو در این قسمت (http://www.barnamenevis.org/forum/showthread.php?t=221938) ببینید

http://www.barnamenevis.org/forum/showthread.php?t=221938

[مهدی قربانی]

سلام
کدهای نوشته شده در رخداد Click کامند باتون رو بررسی کنید .