Visual Basic 6 'da Form1 de
Form2 deki command Butonun Click olayında Normalde "End" Kodu mevcut ama Burda Form1 de Butona Tıklanırsa O buton Kodu Form3 ü Açsın
Bolt ve Kırmızı ile Gösterilen Kodun Doğru Şekli varmı yada Böyle bişey olması imkansız mı ?
Kod:
Private Sub Command1_Click()
Dim rs As ADODB.Recordset
Dim strsql As String
strsql = "select * from uye where kadi = " & "'" & LTrim(kadi.Text) & "'" & " and sifre= " & "'" & LTrim(sifre.Text) & "'"
Set rs = cn.Execute(strsql)
If Not rs.EOF Then
Form2.Show
Form2.Label1.Caption = "Giriş Başarılı"
Form2.Command1.Visible = False
Dim usertype As String
usertype = rs!userlevel
MsgBox usertype
Unload Me
Form2.Show
Else
Form2.Show
Form2.Label1.Caption = "Giriş Başarısız"
Form2.Command1.Visible = False
[B][COLOR="Red"]Form2.Command1_Click (Form3.Show)[/COLOR][/B]
End If
End SubForm2 deki command Butonun Click olayında Normalde "End" Kodu mevcut ama Burda Form1 de Butona Tıklanırsa O buton Kodu Form3 ü Açsın
Bolt ve Kırmızı ile Gösterilen Kodun Doğru Şekli varmı yada Böyle bişey olması imkansız mı ?
