PDA

View Full Version : سوال: عمل نكردن كدهاي VBA



msf_2008
دوشنبه 10 خرداد 1389, 12:01 عصر
سلام
در اكسس
يه فرم براي ورود اطلاعات مدارس دارم كه شامل 3 فيلد كد مدرسه، نام مدرسه و ناحيه است...
فعلا اين فرم 6 تا دكمه داره شامل: درج( بعد از كليك روي دكمه ي درج مي شه اطلاعات رو وارد كرد) ثبت (ثبت اطلاعات در جدول)، اولين ركورد، آخرين ركورد، ركورد قبلي و ركورد بعدي (پيمايش بين ركوردها)
كد درج رو اين طور نوشتم:
Private Sub cmdnew_Click()
Me.Recordset.AddNew
s_id.SetFocus
Me.s_id.Locked = False
Me.s_name.Locked = False
Me.s_area.Locked = False
cmdnew.Enabled = False
cmdsabt.Enabled = True
End Sub

كد ثبت:

Private Sub cmdsabt_Click()
cmdnext.Enabled = True
cmdprevious.Enabled = True
cmdlast.Enabled = True
cmdfirst.Enabled = True
On Error GoTo p
Me.Recordset.Update
p:
If Err.Number = 2110 Then
MsgBox ("فيلد ها را پر كنيد")
cmdnext.Enabled = False
cmdprevious.Enabled = False
cmdlast.Enabled = False
cmdfirst.Enabled = False
cmdnew.Enabled = False
cmdsabt.Enabled = False
Else
cmdnew.Enabled = True
cmdnew.SetFocus
cmdsabt.Enabled = False
End If
Me.s_id.Locked = True
Me.s_name.Locked = True
Me.s_area.Locked = True
Me.s_id.Enabled = False
Me.s_name.Enabled = False
Me.s_area.Enabled = False

End Sub

ولي كار نمي كنه...
كلا برنامه ام كار نمي كنه حتي دكمه هاي ويرايش

مهدی قربانی
سه شنبه 11 خرداد 1389, 01:03 صبح
سلام
اگر در اکسس 2007 کار میکنید ممکنه Security Warning مانع کار شما بشه و اجازه اجرای کدها رو نده ، بهتره نمونه فایلتون رو برای بررسی بیشتر اینجا بذارید .

msf_2008
سه شنبه 11 خرداد 1389, 15:02 عصر
سلام
مشكل اجرا نشدن كدها حل شد...علت: چون در اكسس 2007 كار مي كنم قسمت كد نويسي اكسس 2007 رو فعال نكرده بودم، كه با راهنمايي يكي از دوستان مشكل برطرف شد...
مرسي

مژگان مهدوي
سه شنبه 24 مرداد 1391, 10:26 صبح
من اكسس 2010 كار مي كنم هيچ كدوم از Event ها و كد هام اجرا نمشه. لطفا راهنماييم كنيد كه از كدوم قسمت كد نويسيشو فعال كنم

emami.sie
سه شنبه 24 مرداد 1391, 14:11 عصر
سلام
می تونید از تاپیکهای زیر کمک بگیرید... (لازم به ذکره که مسیر تنظیمات در اکسس 2007 و 2010 تقریبا مشابه همه)
http://barnamenevis.org/showthread.php?325821-%D8%BA%DB%8C%D8%B1-%D9%81%D8%B9%D8%A7%D9%84-%D8%B4%D8%AF%D9%86-%D9%81%D8%A7%DB%8C%D9%84-%D8%A7%DA%A9%D8%B3%D8%B3-2003-%D8%AF%D8%B1-%D8%A7%DA%A9%D8%B3%D8%B3-2007&highlight=Macro+2007
و
http://barnamenevis.org/showthread.php?300176-%D8%AA%D9%86%D8%B8%DB%8C%D9%85%D8%A7%D8%AA-%D9%85%D8%A7%DA%98%D9%88%D9%84-%D8%AF%D8%B1-Trust-Center&highlight=Macro+2007
و
http://barnamenevis.org/showthread.php?262393-%D8%AC%D9%88%D8%A7%D8%A8-%D9%86%D8%AD%D9%88%D9%87-%D8%AD%D8%B0%D9%81-Security-Warning/page2&highlight=Macro+2007
موفق باشید
یا علی