PDA

View Full Version : فارسی کردن پیغام اکسس



ITST-1
چهارشنبه 30 فروردین 1385, 10:28 صبح
با سلام
دوستان من یک فرم دارم که در آن از یک ساب فرم هم استفاده کردم
حال وقتی که رکورد یا ردیفی را می خواهم حذف کنم آنرا انتخاب و دکمه del را فشار می دهم

که در این حالت پیغامی به صورت انگلیسی ظاهر می شود .حال چگونه می توان این پیغام را فارسی کرد .

آیا می شود دکمه del را در این فرم غیر فعال کرد .چگونه.
پیشاپیش از راهنمایی شما متشکرم

mohammadgij
چهارشنبه 30 فروردین 1385, 14:56 عصر
در ساب
Private Sub Form_Delete(Cancel As Integer)
ِDim strQuestion As String
Dim intMsg as integer
"آیا مایل به حذف ردیف مذکور می باشید"= strQuestion
intMsg = MsgBox(strQuestion, vbYesNo+vbQuestion, "اخطار")
If intMsg = vbYes Then
Cancel = True
Else
SendKeys "{ENTER}"
End If

End Sub

mohammadgij
چهارشنبه 30 فروردین 1385, 15:06 عصر
اگرم می خوای که اصلا نتونه با زدن کلید Delete کاری از پیش ببره
این رو انجام بده


Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
Cancel = 1
End Sub

ITST-1
شنبه 02 اردیبهشت 1385, 07:08 صبح
دوستان
سپاسگزارماز همگی شما