mrb
formlar tablo1 formunda tik ile kod oluşturmak için yardımlarınızı rica ediyorum.
tam açıklamayı form üzerine yazdım.

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

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.

(7 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

---

(8 saat önce)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

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

şeklinde revize edin.

    Else

        Me.kodu.Value = Null

    End If

kısmı tiki kaldırdığınızda mevcut kod kaydını siler.