ilgili formun açıldığında olayındaki kodları aşağıdaki ile değiştirerek deneyiniz.

  SpeedEffect = 80



  'SetFormIcon "Logo.ico", Me.Name, Me.hwnd

 BoxGénéraleSize = Me!boxGénérale.Height

 BoxResultSize = Me!boxResult.Height

 BoxDétail = Me!boxDétails.Height

 

cmdDétails_Click

cmdResult_Click

cmdGénérale_Click

Me.TimerInterval = 800







Dim ResimYolu As String

Dim ResimDir As Variant

ResimYolu = Nz(DLookup("[resim]", "PERSONEL", "[SICILI]=" & PersonelSicili), "")

ResimDir = Dir(CurrentProject.Path & "\resim\" & ResimYolu)



If IsNull(ResimDir) Or ResimDir = "" Then

[Sub].Form![Resim12].Picture = CurrentProject.Path & "\resim\resimyok.jpg"

Else

[Sub].Form![Resim12].Picture = CurrentProject.Path & "\resim\" & ResimYolu

End If