29-03-2015, 13:43
Yeni bir modul açalım ve bu kodları yazalım
Public Function hatagec()
On Error Resume Next
End Function
Public Function BuGun()
BuGun = Date
End Function
Public Function Ileri()
DoCmd.GoToRecord , , acNext
End Function
Public Function Geri()
DoCmd.GoToRecord , , acPrevious
End Function
Public Function EnBas()
DoCmd.GoToRecord , , acFirst
End Function
Public Function EnSon()
DoCmd.GoToRecord , , acLast
End Function
Public Function Yeni()
DoCmd.GoToRecord , , acNewRec
End Function
Public Function FormAc(FormAdi As String)
DoCmd.OpenForm FormAdi, acNormal
End Function
Public Function SorguAc(SorguAdi As String)
DoCmd.OpenQuery SorguAdi, , acEdit
End Function
Public Function RaporAc(RaporAdi As String)
DoCmd.OpenReport RaporAdi, acViewReport
End Function
Public Function Kaydet()
DoCmd.RunCommand acCmdSaveRecord
End Function
Public Function Sil()
DoCmd.RunCommand acCmdDeleteRecord
End Function
Public Function Mesaj(Metin As String)
MsgBox Metin, vbInformation
End Function
ve bu şekide basit ve hızlı bir şekilde formlarımızda kullanabiliriz
ister metin kutusu ister düğmeye atayabilirsiniz
benim gibi uzun uzun kod yazmaya üşenen arkadaşlara yardımcı olur inşallah
Private Sub Komut4_Click()
hatagec
FormAc "Form1"
End Sub
Private Sub Komut5_Click()
MsgBox "yeni"
End Sub
Private Sub Komut6_Click()
Sil
End Sub
Private Sub Komut6_Click()
Kaydet
End Sub
Private Sub Komut7_Click()
Ileri
End Sub
Public Function hatagec()
On Error Resume Next
End Function
Public Function BuGun()
BuGun = Date
End Function
Public Function Ileri()
DoCmd.GoToRecord , , acNext
End Function
Public Function Geri()
DoCmd.GoToRecord , , acPrevious
End Function
Public Function EnBas()
DoCmd.GoToRecord , , acFirst
End Function
Public Function EnSon()
DoCmd.GoToRecord , , acLast
End Function
Public Function Yeni()
DoCmd.GoToRecord , , acNewRec
End Function
Public Function FormAc(FormAdi As String)
DoCmd.OpenForm FormAdi, acNormal
End Function
Public Function SorguAc(SorguAdi As String)
DoCmd.OpenQuery SorguAdi, , acEdit
End Function
Public Function RaporAc(RaporAdi As String)
DoCmd.OpenReport RaporAdi, acViewReport
End Function
Public Function Kaydet()
DoCmd.RunCommand acCmdSaveRecord
End Function
Public Function Sil()
DoCmd.RunCommand acCmdDeleteRecord
End Function
Public Function Mesaj(Metin As String)
MsgBox Metin, vbInformation
End Function
ve bu şekide basit ve hızlı bir şekilde formlarımızda kullanabiliriz
ister metin kutusu ister düğmeye atayabilirsiniz
benim gibi uzun uzun kod yazmaya üşenen arkadaşlara yardımcı olur inşallah
Private Sub Komut4_Click()
hatagec
FormAc "Form1"
End Sub
Private Sub Komut5_Click()
MsgBox "yeni"
End Sub
Private Sub Komut6_Click()
Sil
End Sub
Private Sub Komut6_Click()
Kaydet
End Sub
Private Sub Komut7_Click()
Ileri
End Sub


