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..
+1 artan değerlerden kurtulma sabit bir şifre tanımlama
Bu Konudaki Yorumlar |
+1 artan değerlerden kurtulma sabit bir şifre tanımlama - Yazar: Redgreen - 14/12/2008, 17:10
Cvp: +1 artan değerlerden kurtulma sabit bir şifre tanımlama - Yazar: alpeki99 - 14/12/2008, 17:25
Cvp: +1 artan değerlerden kurtulma sabit bir şifre tanımlama - Yazar: Redgreen - 14/12/2008, 17:39
Cvp: +1 artan değerlerden kurtulma sabit bir şifre tanımlama - Yazar: alpeki99 - 14/12/2008, 17:52
Cvp: +1 artan değerlerden kurtulma sabit bir şifre tanımlama - Yazar: Redgreen - 14/12/2008, 18:06
Cvp: +1 artan değerlerden kurtulma sabit bir şifre tanımlama - Yazar: Redgreen - 14/12/2008, 19:06
|
Konuyu Okuyanlar: 1 Ziyaretçi