Kod:
docmd.maximizeKod:
me.form.requeryMadem form boyutuyla oynamadan olmuyor o zaman önce tam ekran yapıp sonra da docmd.restore kullanarak eski haline getirelim. O zaman sorun çıkmıyor
)))Formun açıldığında olayını şu şekilde yapın
Kod:
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
DoCmd.Restore 'SADECE BUNU EKLİYORUZ
Me.ILKTARIH = ""
Me.SONTARIH = ""
Me.köyseç = ""
Me.Form.Requery
End SubYalnız şimdşi farkettim, siz yukarda docmd.minimize yazmışsınız. Bendeki örnekte orası maximizedir. Minimize yaparsanız simge durumuna küçülür. Orayı benim gönderdiğim kodlarla aynen değiştirin.