Kayıt edilen bir müşteride aynı form içinde iken değişiklik yapılmaması için
Önce FrmMusteri formunuzun özellikler penceresindeki GezintiDüğmelerini Hayır olarak değiştirin. Sonra form üzerine Komut Düğmesi Sihirbazını kullanarak Önceki Kayda Git ve Sonraki Kayda Git butonları ekleyin.
Önceki kayda git butonun adını özellikler penceresinden OncekiKayit yapıp kod tarafını aşağıdaki gibi yapın. Bu kod ile önceki kayıt butonu tıklanınca form üzerindeki kontroller inaktif olacak ve değişiklik yapılamayacak.
On Error GoTo Err_OncekiKayit_Click
Dim kontrol As Control
DoCmd.GoToRecord , , acPrevious
For Each kontrol In Form_FrmMusteri.Controls
If kontrol.ControlType = acTextBox Or kontrol.ControlType = acComboBox Then
kontrol.Enabled = False
End If
Next
Exit_OncekiKayit_Click:
Exit Sub
Err_OncekiKayit_Click:
MsgBox Err.Description
Resume Exit_OncekiKayit_Click
Sonraki Kayda Git butonun adını özellkler penceresinden SonrakiKayit yapın ve kodunu aşağıdaki gibi yazın.On Error GoTo Err_SonrakiKayit_Click
DoCmd.GoToRecord , , acNext
If IsNull(Me.IdMusteri) Then
For Each kontrol In Form_FrmMusteri.Controls
If kontrol.ControlType = acTextBox Or kontrol.ControlType = acComboBox Then
kontrol.Enabled = True
End If
Next
End If
Exit_SonrakiKayit_Click:
Exit Sub
Err_SonrakiKayit_Click:
MsgBox Err.Description
Resume Exit_SonrakiKayit_Click
Dışarı çıkmak zorunda olduğum için bu kadarını yapabildim.Umarım işinize yarar iyi çalışmalar.