19-10-2012, 23:34
merhaba
bu şekilde değiştirin
Visual Basic
- If DCount("*", "sorgu1") > 0 Then
- If MsgBox("Formu Açıp" & vbCr & _
- "Veri Girişi Yapmak İstiyor musunuz?", vbInformation + vbYesNo, _
- "form aç") = vbYes Then
- DoCmd.OpenForm "Tablo2"
- Else
- endif
- Else
- MsgBox " Kayıt Bulunamadı!.", vbOKOnly
- End If
bu şekilde değiştirin