PDA

View Full Version : save as لطفاً راهنمایی کنید



amaali20
شنبه 02 شهریور 1387, 19:48 عصر
سلام
1- میخواهم اطلاعات frm2 را با کلیک بر دکمه Save در منوی فایل داخل پایگاه داده به نام MMPI-71 ذخیره کنم
2- چطوری میتوانم به جای نوشتن دستور if ، از روش نوشتن دستور در داخل پرانتز در()Private Sub BC1_Click استفاده کنم ، منظورم اینست که داخل () چی باید بنویسم .
اگر امکان دارد تغییرات را روی برنامه انجام دهید تا دانلود کنم.
با تشکر.

scarce
شنبه 02 شهریور 1387, 20:01 عصر
بهترین کار ممکن اینه که یک دستور شرطی در رویداد Change شی های موجو و مورد نیاز بنویسید به مثال زیر توجه کنید.


Private Sub Text1_Change()




If Text1.Text <> "" And Text2.Text <> "" Then ' Text1 to Text n or combo n

cmdSave.Enabled = True
Else
cmdSave.Enabled = False
End If
End Sub
Private Sub Text2_Change()
If Text1.Text <> "" And Text2.Text <> "" Then ' Text1 to Text n or combo n
cmdSave.Enabled = True
Else
cmdSave.Enabled = False

End If

amaali20
یک شنبه 03 شهریور 1387, 22:52 عصر
سلام
اگر امکان دارد دستورات را روی برنامه بنویسید تا دانلود کنم، چون نتوانستم انجام بدهم.
با تشکر