+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Otomatik sayı (/konu-otomatik-sayi--77966.html)
Cvp: Otomatik sayı - hgsoftware - 24/10/2013
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...
Cvp: Otomatik sayı - KJS - 24/10/2013
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.
Cvp: Otomatik sayı - hgsoftware - 24/10/2013
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....
Cvp: Otomatik sayı - hgsoftware - 24/10/2013
konu anlaşıldı ve kodların çalıştığı anlaşıldı...bence bilgilendirmeler bu şekilde yapılmalı reklam olmasın ama sana rep verdim....
Cvp: Otomatik sayı - KJS - 24/10/2013
Teşekkürler rep puan için yapmıyorum bunları
