+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Soruları ve Cevapları (https://accesstr.net/forum-access-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: Alt Formda Tik İşareti İle Otomatik Kod Oluşturm (/konu-alt-formda-tik-isareti-ile-otomatik-kod-olusturm.html)
Alt Formda Tik İşareti İle Otomatik Kod Oluşturm - osman06 - 29/10/2025
mrb
formlar tablo1 formunda tik ile kod oluşturmak için yardımlarınızı rica ediyorum.
tam açıklamayı form üzerine yazdım.
RE: Alt Formda Tik İşareti İle Otomatik Kod Oluşturm - onur_can - 30/10/2025
Onay kutusunun Click Olayına aşağıdaki kodu yazın...
Private Sub Onay13_Click()
Dim koduret As Long
If Me.Onay13 Then
Kontrol:
koduret = Int((100000 - 999998 + 1) * Rnd + 100000)
If Dlookup ("kodu", "Tablo2") = True Then
GoTo Kontrol
Else
Me.kodu.Value = "TDX-" & Int((100000 - 999998 + 1) * Rnd + 100000)
End If
Else
End If
End SubRE: Alt Formda Tik İşareti İle Otomatik Kod Oluşturm - atoykan - 30/10/2025
Sayın @osman06
Eski bir üyemiz olarak forum kurallarına karşı daha hassas olmanızı rica ediyoruz. Forum kuralları gereği "Konu açarken sorununuzu açık bir şekilde ifade etmelisiniz. Sorunuz ile ilgili eklediğiniz örnek uygulamadaki form, rapor, sorgu vs. nesne isimlerini mutlaka belirtiniz. Sorunuzu mutlaka konuya yazınız, sorunuzu Access form üzerine yazmayınız konuya soru veya resim içeren slayt veya doküman eklemeyiniz."
Bu kural benzer konularda çözüm arayışı olanların ve/veya araştıranların rahatça konuyu anlaması ve değerlendirmesi ayrıca Uzman ekibi arkadaşlarımızın da mevcut iş yükleri içinde konuya hemen bir çözüm önerisi getirip getiremeyeceklerini görerek bir planlama yapabilmesi için önem arz etmektedir. Takdir edersiniz ki her soruyu örneği indirip açarak form üzerinden okuyacak vaktimiz ne yazık ki yok.
Sayın @onur_can Hocamız sorununuza çözüm bildirmiş, işinize yaramasını diliyorum ve lütfen bu ricamızı da bir dahaki konularınızda dikkate almayı unutmayın.
RE: Alt Formda Tik İşareti İle Otomatik Kod Oluşturm - osman06 - 30/10/2025
(11 saat önce)atoykan yazdı: Sayın @osman06
Eski bir üyemiz olarak forum kurallarına karşı daha hassas olmanızı rica ediyoruz. Forum kuralları gereği "Konu açarken sorununuzu açık bir şekilde ifade etmelisiniz. Sorunuz ile ilgili eklediğiniz örnek uygulamadaki form, rapor, sorgu vs. nesne isimlerini mutlaka belirtiniz. Sorunuzu mutlaka konuya yazınız, sorunuzu Access form üzerine yazmayınız konuya soru veya resim içeren slayt veya doküman eklemeyiniz."
Bu kural benzer konularda çözüm arayışı olanların ve/veya araştıranların rahatça konuyu anlaması ve değerlendirmesi ayrıca Uzman ekibi arkadaşlarımızın da mevcut iş yükleri içinde konuya hemen bir çözüm önerisi getirip getiremeyeceklerini görerek bir planlama yapabilmesi için önem arz etmektedir. Takdir edersiniz ki her soruyu örneği indirip açarak form üzerinden okuyacak vaktimiz ne yazık ki yok.
Sayın @onur_can Hocamız sorununuza çözüm bildirmiş, işinize yaramasını diliyorum ve lütfen bu ricamızı da bir dahaki konularınızda dikkate almayı unutmayın.
tamam hocam kusura bakmayın daha dikkatli olurum
(Dün, 12:54)onur_can yazdı: Onay kutusunun Click Olayına aşağıdaki kodu yazın...
Private Sub Onay13_Click()
Dim koduret As Long
If Me.Onay13 Then
Kontrol:
koduret = Int((100000 - 999998 + 1) * Rnd + 100000)
If Dlookup ("kodu", "Tablo2") = True Then
GoTo Kontrol
Else
Me.kodu.Value = "TDX-" & Int((100000 - 999998 + 1) * Rnd + 100000)
End If
Else
End If
End Sub
hocam elinize sağlık tam istediğim gibi tiki kaldırdığımda da silmesi için hangi kod eklemeleiyim
RE: Alt Formda Tik İşareti İle Otomatik Kod Oluşturm - atoykan - 30/10/2025
Private Sub Onay13_Click()
Dim koduret As Long
Dim mevcutkod As Variant
If Me.Onay13 = True Then
Kontrol:
koduret = Int((999998 - 100000 + 1) * Rnd + 100000)
mevcutkod = Dlookup ("kodu", "Tablo2", "kodu='TDX-" & koduret & "'")
If Not IsNull(mevcutkod) Then
GoTo Kontrol
Else
Me.kodu.Value = "TDX-" & koduret
End If
Else
Me.kodu.Value = Null
End If
End Sub
Else
Me.kodu.Value = Null
End If