View Full Version : عمل ذخیره با فشردن کلید
iransim
شنبه 11 اسفند 1397, 12:45 عصر
با سلام خدمت دوستان عزیز
اول عرض کنم که جستجو کردم ولی نتیجه دلخواه رو پیدا نکردم
من روی فرم برنامه ام ی دکمه بنام ذخیره دارم که عملیات ذخیره اطلاعات پس از ثبت و یا ویرایش رو انجام میده ، حال چطور میتونم بدون کلیک بروی دکمه < ذخیره > و با فشردن کلید F10 همان عمکرد دکمه ذخیره انجام بگیره ؟
ممنون
mohammadsaleh
شنبه 11 اسفند 1397, 16:26 عصر
یک ماکرو به نام autokeys ایجاد کن
در ساب ماکرو بنویس {f10}
در خط بعدی دستور save.. را انتخاب کن
iransim
یک شنبه 12 اسفند 1397, 09:01 صبح
ممنون از پاسخ شما فقط ی سئوال
دستور دکمه ذخیره من شامل کدهای زیر است :
If IsNull(Onvan) Or Onvan = "" Then
MsgBox "لطفا عنوان پروژه را وارد کنيد"
Me.Onvan.SetFocus
Else
If IsNull(Addrees) Or Addrees = "" Then
MsgBox "لطفا آدرس پروژه را وارد کنيد"
Me.Addrees.SetFocus
Else
'If IsNull(Etebar) Or Etebar = "" Then
'MsgBox "لطفا نوع اعتبار پروژه را انتخاب کنيد"
'Me.Etebar.SetFocus
'Else
' If IsNull(Mojri) Or Mojri = "" Then
' MsgBox "لطفا مجري پروژه را انتخاب کنيد"
' Me.Mojri.SetFocus
' Else
' If IsNull(Nazer) Or Nazer = "" Then
' MsgBox "لطفا ناظر پروژه را انتخاب کنيد"
' Me.Nazer.SetFocus
' Else
If IsNull(pol) Or pol = "" Then
MsgBox "لطفا مبلغ پروژه را وارد کنيد"
Me.pol.SetFocus
Else
' If IsNull(Numsaman) Or Numsaman = "" Then
' MsgBox "لطفا شماره درخواست سامانه مهندسي پروژه را وارد کنيد"
' Me.Numsaman.SetFocus
' Else
If IsNull(NumTarh) Or NumTarh = "" Then
MsgBox "لطفا شماره طرح پروژه را وارد کنيد"
Me.NumTarh.SetFocus
Else
If IsNull(InfoPro) Or InfoPro = "" Then
MsgBox "لطفا توضيحات پروژه را وارد کنيد"
Me.InfoPro.SetFocus
Else
'--------------------------------
If IsNull(Moed) Or Moed = "" Then
MsgBox "لطفا موعد تحويل و تحول را وارد کنيد"
Me.Moed.SetFocus
Else
' براي کنترل امتياز دهي مجري پروژه
If Me.TTF.Value = True And Me.Emtiaz.Value = 0 Then
MsgBox "لطفا امتياز مجري پروژه را وارد کنيد"
Me.Emtiaz.SetFocus
Else
On Error GoTo Err_cmdsave_Click
Me.AllowEdits = True
Me.Find.Locked = False
Me.dateRoz.Locked = True
Me.Emtiaz.Locked = True
Me.Sal.Locked = True
Me.Nahi.Locked = True
Me.NumPro.Locked = True
Me.Onvan.Locked = True
Me.Addrees.Locked = True
Me.Etebar.Locked = True
Me.ECOD.Locked = True
Me.ECOD_1.Locked = True
Me.ECOD_2.Locked = True
Me.pol.Locked = True
Me.Mojri.Locked = True
Me.Nazer.Locked = True
Me.InfoPro.Locked = True
'Me.Numsaman.Locked = True
Me.NumTarh.Locked = True
Me.Moed.Locked = True
Me.TTF.Locked = True
Me.DateMostanad.Locked = True
Me.Tavil.Locked = True
Me.cmdFirst.Enabled = True
Me.cmdnext.Enabled = True
Me.cmdPre.Enabled = True
Me.cmdLast.Enabled = True
Me.cmdnew.Enabled = True
Me.cmdnew.Visible = True
Me.cmdDel.Enabled = True
Me.cmdedit.Enabled = True
Me.cmdcancel.Enabled = False
Me.cmdcancel.Visible = False
FirstPage.Enabled = True
ReportPage.Enabled = True
Me.cmdsave.Enabled = False
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Emtiaz.Value = Frmsabt.Recordset.RecordCount
Frmsabt.Refresh
Exit_cmdsave_Click:
DoCmd.GoToRecord , , acLast
Exit Sub
Err_cmdsave_Click:
MsgBox Err.Description
Resume Exit_cmdsave_Click
End If
End If
'End If
' End If
' End If
End If
End If
End If
End If
End If
' End If
End Sub
این عملکرد دکمه ذخیره رو چطور اعمال کنم ؟ البته شرمنده من متوجه نحوه ساخت این ماکروئی که میفرمائید هم نشدم میشه این رو هم توضیح بدید ؟ :خجالت:
mohammadsaleh
یک شنبه 12 اسفند 1397, 12:04 عصر
در رویداد form_keydown فرمی که می خواهی کلیدهای فانکشن عمل کنند کدهات رو بنویس
برای راحتی کار میتونی کد زیر رو توی فرمت کپی کنی
Private Function SaveFunction()
If IsNull(Onvan) Or Onvan = "" Then
MsgBox "لطفا عنوان پروژه را وارد کنيد"
Me.Onvan.SetFocus
Else
If IsNull(Addrees) Or Addrees = "" Then
MsgBox "لطفا آدرس پروژه را وارد کنيد"
Me.Addrees.SetFocus
Else
'If IsNull(Etebar) Or Etebar = "" Then
'MsgBox "لطفا نوع اعتبار پروژه را انتخاب کنيد"
'Me.Etebar.SetFocus
'Else
' If IsNull(Mojri) Or Mojri = "" Then
' MsgBox "لطفا مجري پروژه را انتخاب کنيد"
' Me.Mojri.SetFocus
' Else
' If IsNull(Nazer) Or Nazer = "" Then
' MsgBox "لطفا ناظر پروژه را انتخاب کنيد"
' Me.Nazer.SetFocus
' Else
If IsNull(pol) Or pol = "" Then
MsgBox "لطفا مبلغ پروژه را وارد کنيد"
Me.pol.SetFocus
Else
' If IsNull(Numsaman) Or Numsaman = "" Then
' MsgBox "لطفا شماره درخواست سامانه مهندسي پروژه را وارد کنيد"
' Me.Numsaman.SetFocus
' Else
If IsNull(NumTarh) Or NumTarh = "" Then
MsgBox "لطفا شماره طرح پروژه را وارد کنيد"
Me.NumTarh.SetFocus
Else
If IsNull(InfoPro) Or InfoPro = "" Then
MsgBox "لطفا توضيحات پروژه را وارد کنيد"
Me.InfoPro.SetFocus
Else
'--------------------------------
If IsNull(Moed) Or Moed = "" Then
MsgBox "لطفا موعد تحويل و تحول را وارد کنيد"
Me.Moed.SetFocus
Else
' براي کنترل امتياز دهي مجري پروژه
If Me.TTF.Value = True And Me.Emtiaz.Value = 0 Then
MsgBox "لطفا امتياز مجري پروژه را وارد کنيد"
Me.Emtiaz.SetFocus
Else
On Error GoTo Err_cmdsave_Click
Me.AllowEdits = True
Me.Find.Locked = False
Me.dateRoz.Locked = True
Me.Emtiaz.Locked = True
Me.Sal.Locked = True
Me.Nahi.Locked = True
Me.NumPro.Locked = True
Me.Onvan.Locked = True
Me.Addrees.Locked = True
Me.Etebar.Locked = True
Me.ECOD.Locked = True
Me.ECOD_1.Locked = True
Me.ECOD_2.Locked = True
Me.pol.Locked = True
Me.Mojri.Locked = True
Me.Nazer.Locked = True
Me.InfoPro.Locked = True
'Me.Numsaman.Locked = True
Me.NumTarh.Locked = True
Me.Moed.Locked = True
Me.TTF.Locked = True
Me.DateMostanad.Locked = True
Me.Tavil.Locked = True
Me.cmdFirst.Enabled = True
Me.cmdnext.Enabled = True
Me.cmdPre.Enabled = True
Me.cmdLast.Enabled = True
Me.cmdnew.Enabled = True
Me.cmdnew.Visible = True
Me.cmdDel.Enabled = True
Me.cmdedit.Enabled = True
Me.cmdcancel.Enabled = False
Me.cmdcancel.Visible = False
FirstPage.Enabled = True
ReportPage.Enabled = True
Me.cmdsave.Enabled = False
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Emtiaz.Value = Frmsabt.Recordset.RecordCount
Frmsabt.Refresh
Exit_cmdsave_Click:
DoCmd.GoToRecord , , acLast
Exit Sub
Err_cmdsave_Click:
MsgBox Err.Description
Resume Exit_cmdsave_Click
End If
End If
'End If
' End If
' End If
End If
End If
End If
End If
End If
' End If
End Sub
End Function
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF1
KeyCode = 0
MsgBox "f1 pressed"
Case vbKeyF10
' KeyCode = 0
MsgBox "f10 pressed"
Call SaveFunction
'براي ساير کليدها مي تواني همينجا تعريف کنيد
End Select
End Sub
iransim
یک شنبه 12 اسفند 1397, 22:32 عصر
در رویداد form_keydown فرمی که می خواهی کلیدهای فانکشن عمل کنند کدهات رو بنویس
برای راحتی کار میتونی کد زیر رو توی فرمت کپی کنی
Private Function SaveFunction()
If IsNull(Onvan) Or Onvan = "" Then
MsgBox "لطفا عنوان پروژه را وارد کنيد"
Me.Onvan.SetFocus
Else
If IsNull(Addrees) Or Addrees = "" Then
MsgBox "لطفا آدرس پروژه را وارد کنيد"
Me.Addrees.SetFocus
Else
'If IsNull(Etebar) Or Etebar = "" Then
'MsgBox "لطفا نوع اعتبار پروژه را انتخاب کنيد"
'Me.Etebar.SetFocus
'Else
' If IsNull(Mojri) Or Mojri = "" Then
' MsgBox "لطفا مجري پروژه را انتخاب کنيد"
' Me.Mojri.SetFocus
' Else
' If IsNull(Nazer) Or Nazer = "" Then
' MsgBox "لطفا ناظر پروژه را انتخاب کنيد"
' Me.Nazer.SetFocus
' Else
If IsNull(pol) Or pol = "" Then
MsgBox "لطفا مبلغ پروژه را وارد کنيد"
Me.pol.SetFocus
Else
' If IsNull(Numsaman) Or Numsaman = "" Then
' MsgBox "لطفا شماره درخواست سامانه مهندسي پروژه را وارد کنيد"
' Me.Numsaman.SetFocus
' Else
If IsNull(NumTarh) Or NumTarh = "" Then
MsgBox "لطفا شماره طرح پروژه را وارد کنيد"
Me.NumTarh.SetFocus
Else
If IsNull(InfoPro) Or InfoPro = "" Then
MsgBox "لطفا توضيحات پروژه را وارد کنيد"
Me.InfoPro.SetFocus
Else
'--------------------------------
If IsNull(Moed) Or Moed = "" Then
MsgBox "لطفا موعد تحويل و تحول را وارد کنيد"
Me.Moed.SetFocus
Else
' براي کنترل امتياز دهي مجري پروژه
If Me.TTF.Value = True And Me.Emtiaz.Value = 0 Then
MsgBox "لطفا امتياز مجري پروژه را وارد کنيد"
Me.Emtiaz.SetFocus
Else
On Error GoTo Err_cmdsave_Click
Me.AllowEdits = True
Me.Find.Locked = False
Me.dateRoz.Locked = True
Me.Emtiaz.Locked = True
Me.Sal.Locked = True
Me.Nahi.Locked = True
Me.NumPro.Locked = True
Me.Onvan.Locked = True
Me.Addrees.Locked = True
Me.Etebar.Locked = True
Me.ECOD.Locked = True
Me.ECOD_1.Locked = True
Me.ECOD_2.Locked = True
Me.pol.Locked = True
Me.Mojri.Locked = True
Me.Nazer.Locked = True
Me.InfoPro.Locked = True
'Me.Numsaman.Locked = True
Me.NumTarh.Locked = True
Me.Moed.Locked = True
Me.TTF.Locked = True
Me.DateMostanad.Locked = True
Me.Tavil.Locked = True
Me.cmdFirst.Enabled = True
Me.cmdnext.Enabled = True
Me.cmdPre.Enabled = True
Me.cmdLast.Enabled = True
Me.cmdnew.Enabled = True
Me.cmdnew.Visible = True
Me.cmdDel.Enabled = True
Me.cmdedit.Enabled = True
Me.cmdcancel.Enabled = False
Me.cmdcancel.Visible = False
FirstPage.Enabled = True
ReportPage.Enabled = True
Me.cmdsave.Enabled = False
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Emtiaz.Value = Frmsabt.Recordset.RecordCount
Frmsabt.Refresh
Exit_cmdsave_Click:
DoCmd.GoToRecord , , acLast
Exit Sub
Err_cmdsave_Click:
MsgBox Err.Description
Resume Exit_cmdsave_Click
End If
End If
'End If
' End If
' End If
End If
End If
End If
End If
End If
' End If
End Sub
End Function
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF1
KeyCode = 0
MsgBox "f1 pressed"
Case vbKeyF10
' KeyCode = 0
MsgBox "f10 pressed"
Call SaveFunction
'براي ساير کليدها مي تواني همينجا تعريف کنيد
End Select
End Sub
دوست عزیز ممنون از راهنمائی شما
نمیدونم اشکال کار من کجاست که روی فرمم هر کلیدی میزنم پیام خطا میده
امکانش هست یه نمونه محبت کنید ؟
بازم ممنونم
mohammadsaleh
دوشنبه 13 اسفند 1397, 08:45 صبح
فرمت رو بفرست
iransim
دوشنبه 13 اسفند 1397, 09:36 صبح
خدمت شما دوست عزیز و ممنون بابت زحمت شما
iransim
دوشنبه 13 اسفند 1397, 10:49 صبح
شرمنده دوست عزیز
من اشتباها در ضمیمه پاسخ فایلهای ارشیو رو فرستادم
این فایل برنامه مورد نظر است ( InfoProject .rar )
بازم ممنون و ببخشید
mohammadsaleh
دوشنبه 13 اسفند 1397, 15:51 عصر
برای استفاده از کلیدهای فانکشن دو کار باید صورت داد
نوشتن تکه کد زیر در رویداد لود شدن فرم
me.keypreview=True
نوشتن کدهایی که مشخص می کند شما به کدام کلید ضربه زده اید در رویداد Form_KeyDown
دقت کنید در رویداد فرمتان کدها انتخاب شده باشند.
iransim
سه شنبه 14 اسفند 1397, 07:17 صبح
ممنون از پاسخ و راهنمائی شما دوست عزیز
لطف کردید :تشویق::چشمک:
iransim
سه شنبه 14 اسفند 1397, 10:49 صبح
سلام و پوزشش مجدد من بعد از اینکه کدهای مورد نظر را در فرم اعمال کردم ، پس از فشردن کلید F10 پیام انجام عملیات ذخیره صادر شده ولی بلافاصله پیام ضمیمه ظاهر و دکمه ذخیره روی فرم نیز در حال فعال باقی میماند ( یعنی عمل ذخیره اطلاعات انجام نشده ) ولی وقتی مجددا دکمه ذخیره را فشار میدم تغییرات ذخیره میشود
میشه بفرمائید علت چیه ؟
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.