DoCmd.OpenForm "Araç takip", , , "[Kimlik]=" & kimliknoyaz
Kod satırında bir düzenleme yapıp;eğer InputBox ile yazılan KİMLİK NO değeri ilgili tabloda mevcut değilse uyarı vermesini de sağlatabilirsiniz.Bunun için;
yukarıdaki kod satırını iptal edip ya da etkisizleştirip yerine,
If kimliknoyaz = Dlookup ("[Kimlik]", "Araç takip tablo", "[Kimlik]=" & kimliknoyaz) Then
DoCmd.OpenForm "Araç takip", , , "[Kimlik]=" & kimliknoyaz
Else
MsgBox ("Bu KİMLİK NO,Tabloda mevcut değildir."), vbCritical, "KİMLİK NO bulunamadı MESAJI"
Exit Sub
End If
Yukarıdaki kodları kullanabilirsiniz.
Bilginize…iyi çalışmalar,saygılar.