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.
ama hiç aklıma gelmedi kodu alta yazmak ben şöyle yazmıştım.