ok teşekürler

---

Private Sub cmdSomething_Click()
On Error GoTo Err_cmdSomething_Click

MsgBox "????????????????????????????????????????????"
Forms!frmForm!cmdDo.SetFocus
Forms!frmForm!cmdSomething.Enabled = False

Exit_cmdSomething_Click:
Exit Sub

Err_cmdSomething_Click:
MsgBox Err.Description
Resume Exit_cmdSomething_Click

End Sub

cmdSomething butonuna bastığımda ???????? mesajını yazmasın beni bir forma yönlendirsin istiyorum.Fazlalıkları neler acaba....

---

Private Sub cmdSomething_Click()
On Error GoTo Err_cmdSomething_Click

Dim stDocName As String
stDocName = "ana"
cmdSomething.OpenForm stDocName

Exit_cmdSomething_Click:
Exit Sub
End Sub


Bu kadar kısalttım hala girmiyor..