(29/06/2020, 16:51)ozanakkaya yazdı:Private Sub Komut6_Click()
Komut6'nın tıklandığında olayını iki defa yazmışsızın.
Private Sub Komut6_Click()
If MsgBox("Kaydetmek istiyor musunuz? (hayır'a tıklarsanız geri alır)", vbYesNo, "Kaydet") = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.GoToRecord , , acNewRec
Else
Me.Undo
Cancel = True
End If
Me.altforum.Requery
End Sub
Private Sub Komut6_Click()
DoCmd.GoToRecord , , acNewRec
Dim AccessTr_SNO As Integer
AccessTr_SNO = DMax("[no]", "Sorgu1")
Me.txtil.DefaultValue = Dlookup ("il_kodu", "tablo", "[no]=" & AccessTr_SNO)
Me.txtilce.DefaultValue = Dlookup ("ilce_kodu", "tablo", "[no]=" & AccessTr_SNO)
Me.txtmerkez.DefaultValue = Dlookup ("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO)
Me.txtfider.DefaultValue = Nz(DLookup("fider_kodu", "fider", "[merkez_kodu]='" & Dlookup ("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO) & "'"), 0)
Me.txtsebep.DefaultValue = Nz(DLookup("[no]", "kesinti_yapan", "[kesinti_yapan]='" & Dlookup ("kesinti_sebebi", "tablo", "[no]=" & AccessTr_SNO) & "'"), 0)
End Sub
Aynı olayı iki defa yazamazsınız.
Her iki kodu da silip yerine aşağıdaki kodu ekleyiniz.
Private Sub Komut6_Click()
Dim AccessTr_SNO As Integer
If MsgBox("Kaydetmek istiyor musunuz? (hayır'a tıklarsanız geri alır)", vbYesNo, "Kaydet") = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.GoToRecord , , acNewRec
AccessTr_SNO = DMax("[no]", "Sorgu1")
Me.txtil.DefaultValue = Nz(DLookup("il_kodu", "tablo", "[no]=" & AccessTr_SNO), 0)
Me.txtilce.DefaultValue = Nz(DLookup("ilce_kodu", "tablo", "[no]=" & AccessTr_SNO), 0)
Me.txtmerkez.DefaultValue = Nz(DLookup("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO), 0)
Me.txtfider.DefaultValue = Nz(DLookup("fider_kodu", "fider", "[merkez_kodu]='" & Dlookup ("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO) & "'"), 0)
Me.txtsebep.DefaultValue = Nz(DLookup("[no]", "kesinti_yapan", "[kesinti_yapan]='" & Dlookup ("kesinti_sebebi", "tablo", "[no]=" & AccessTr_SNO) & "'"), 0)
Else
Me.Undo
Cancel = True
End If
Me.altforum.Requery
End Sub
Hocam formülü ekledim açılan kutular boşalmıyor ama ikinci kaydı kaydederken açılan kutular boşmuşçasına kaydetmiyor. ekteki hatayı veriyor.
