sn hgsoftware;
Siz kendinizi geliştirin diye kodları yazdım yoksa benim için oraya kodu uygulayıp, örneği eklemem fazla zamanımı almaz. Ama kısa kodlamalarda sizin de kendinizi geliştirmenizi isterim.
Adım adım gidelim; bu sefer de olmazsa uygulamayı eklerim.
Access dosyasını açtıktan sonra:
Form1 üzerinde sağ tıklayalım - Tasarım görünümünde açalım.
Form1 tasarım halindeyken Komut0 butonun üzerinde sağ tıklayalım olay oluştura basalım
Private Sub Komut0_Click()
On Error GoTo Err_Komut0_Click
Dim a, b, c, d, e, f, g As Integer
Dim h As String
a = Now()
b = Mid(a, 1, 2)
c = Mid(a, 4, 2)
d = Mid(a, 7, 4)
e = Mid(a, 12, 2)
f = Mid(a, 15, 2)
g = Mid(a, 18, 2)
h = b & c & d & e & f & g
DoCmd.GoToRecord , , acNewRec
Dim mydb As Database
Set mydb = CurrentDb()
Me!mtnRastegeleNo.Value = h
mydb.Close
Exit_Komut0_Click:
Exit Sub
Err_Komut0_Click:
'MsgBox Err.Description
MsgBox "Aynı Saniyede Yeni Kayıt Açamazsınız !!! "
DoCmd.RunCommand acCmdUndo
Resume Exit_Komut0_Click
End Sub
17. satırdaki mydb.Close satırından sonra aşağıdaki gibi refresh yazalım ve kaydedelim. (siz tasarım halindeyken satır numaralarını göremezsiniz.)
Private Sub Komut0_Click()
On Error GoTo Err_Komut0_Click
Dim a, b, c, d, e, f, g As Integer
Dim h As String
a = Now()
b = Mid(a, 1, 2)
c = Mid(a, 4, 2)
d = Mid(a, 7, 4)
e = Mid(a, 12, 2)
f = Mid(a, 15, 2)
g = Mid(a, 18, 2)
h = b & c & d & e & f & g
DoCmd.GoToRecord , , acNewRec
Dim mydb As Database
Set mydb = CurrentDb()
Me!mtnRastegeleNo.Value = h
mydb.Close
Refresh
Exit_Komut0_Click:
Exit Sub
Err_Komut0_Click:
'MsgBox Err.Description
MsgBox "Aynı Saniyede Yeni Kayıt Açamazsınız !!! "
DoCmd.RunCommand acCmdUndo
Resume Exit_Komut0_Click
End Sub
Inişallah anlatabilmişimdir.
