(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