alt 11 yaptım açtımda bu bilgileri nereye nasıl yapıştıracağım...

yani bu kodun çalışan şekli ile veritabanına yeniden eklebilirmisiniz diyeceğim...biliyorum çözülen soru içinde soru sormak yasak ama bu soru ancak buraya yakışıyor...saygı ve sevgilerimle...

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.

ben daha çok öğrenecek olanlara yardım etmek için soru sorarım ama öğrendim mi tam öğrenirim...şu anda mesaideyim zamanım ancak cumartesi pazar oluyor...yine bilgi için teşekkürler bir ara deneyeceğim...sizlere başarılar dilerim....

konu anlaşıldı ve kodların çalıştığı anlaşıldı...bence bilgilendirmeler bu şekilde yapılmalı reklam olmasın ama sana rep verdim....

Teşekkürler rep puan için yapmıyorum bunları