29/10/2025, 22:35
Alt Formda Tik İşareti İle Otomatik Kod Oluşturm
Dün, 12:54
onur_can
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 11 saat önce
atoykan
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.
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.
9 saat önce
osman06
(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
6 saat önce
atoykan
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