Kaydet() Alt Prosedüründe Son Eklenen Kaydın ID'sini Alın:
Mevcut kodunuzda, kaydetme işlemi tamamlandıktan sonra MessageBox.Show("Kayıt Eklendi") mesajı gösteriyorsunuz. Bu mesajı göstermeden önce, son eklenen kaydın ID'sini almanız gerekir. Bunu yapmak için aşağıdaki kodu ekleyebilirsiniz:
Dim sonEklenenID As Integer = komut.ExecuteScalar()
Form3'ü açarken, sonEklenenID değerini parametre olarak kullanabilirsiniz. Bunu yapmak için Show() metodunu şu şekilde kullanın:
Form3.Show(sonEklenenID)
Form3'te, Form_Load veya Show olayında, parametre olarak alınan ID'yi txt_hayvanid.Text textbox'ına atayabilirsiniz:
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
txt_hayvanid.Text = Me.Tag.ToString()
End Sub
SonEklenenID değerini Form3'e aktarmak için Tag özelliğini kullanabilirsiniz.
Form3'te ID'yi textbox'a atamak için Me.Tag.ToString() kullanmanız gerekir.
Bu değişiklikleri yaptıktan sonra, kayıt yaparken "gebe sağmal", "gebe düve" veya "tohumlandı" seçildiğinde, Form3 otomatik olarak açılacak ve son eklenen kaydın ID'si txt_hayvanid.Text textbox'ına atanacaktır.
Form3'te ID'yi kullanarak veri tabanından ek bilgi alma işlemleri yapabilirsiniz
.
Daha fazla güvenlik için, ID'yi Int32 veya Long gibi bir veri tipi yerine Guid gibi benzersiz bir veri tipi olarak saklayabilirsiniz.
Hata ayıklama için, Form3'te ID'nin doğru şekilde alınıp alınmadığını kontrol etmek için kod ekleyebilirsiniz.
Umarım bu bilgiler yardımcı olmuştur!