Private Sub Komut23_Click()
Dim COK
COK = DMax("[SIRA]", "GOREVLER", "[ARACID] = formlar!PARK_LISTESI!ARACID")
[GÖREV TARİHİ] = Dlookup ("[GÖREV TARİHİ]", "[GOREVLER]", "[SIRA]=" & [COK])
[GÖREV YERİ] = Dlookup ("[GÖREV YERİ]", "[GOREVLER]", "[SIRA]=" & [COK])
[İŞ DURUMU] = Dlookup ("[İŞ DURUMU]", "[GOREVLER]", "[SIRA]=" & [COK])
DoCmd.Close
DoCmd.OpenForm "PARK_LISTESI"
End Sub
#11
aktar butonundaki kodu aşağıdaki gibi değiştirin
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!
(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
ölsende yaşamaya mecbursun!
UNUTMA!!!
(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
