10/04/2011, 10:28
alpeki99
Eklemiş olduğunuz dosyada SURUCUKAYIT isimli formunuzu tasarım modunda açın. Form özelliklerinden Açıldığında ve Geçerli Olduğunda isimli olaylarda yer alan kodlarınızı inceleyin. Aşağıda örnek olarak verdiğim Geçerli Olduğunda olayının kodları yer almaktadır:
Alttan üçüncü satırda yer alan
komutunun önüne tek tırnak yani ' işaretini koyarsanız hata mesajını almazsınız. Yukarıda zaten diğer üstadlarımız aynısını yazmış ama bende bir daha yazma ihtiyacı hissettim.
Private Sub Form_Current()
On Error GoTo err_Form_Current
If Not Me!MKResim = "" Or Not IsNull(Me!MKResim) Then
Me!ResimCercevesi.Picture = Me!MKResim
Else
Me!ResimCercevesi.Picture = ""
End If
exit_Form_Current:
Exit Sub
err_Form_Current:
'MsgBox Err.Description
Resume exit_Form_Current
End Sub
Alttan üçüncü satırda yer alan
MsgBox Err.Description
komutunun önüne tek tırnak yani ' işaretini koyarsanız hata mesajını almazsınız. Yukarıda zaten diğer üstadlarımız aynısını yazmış ama bende bir daha yazma ihtiyacı hissettim.