Рет қаралды 551
Excel VBA - STOK CARİ FATURA UYGULAMASI
Excel VBA ortamında form uygulaması
Menü Sistemi Oluşturma:
1. Excel Şeriti Üzerinde CommandBar kontrolü oluşturarak
2. Sayfa üzerinde butonlarla - ActiveX komut butonlarla
3. Menü Formu - Bu amaçla bir Userform hazırlayarak
Private Sub CmdGiris_Click()
' BUTONA BASILDIĞINDA
If ThisWorkbook.Worksheets("PARAMETRELER").Range("A2").Value = 3 Then
MsgBox "3 kez hatalı parola", vbCritical, "parola kontrol"
ThisWorkbook.Worksheets("PARAMETRELER").Range("A2").Value = 0
Application.Quit
End If
If FrmParola2.TxtParola.Text = ThisWorkbook.Sheets("PARAMETRELER").Range("a1").Value Then
LblParola = "Parola doğru"
Unload Me
'ThisWorkbook.Sheets("ANA MENÜ").Activate
' ya da menü formu
Application.Visible = True
FrmMenu2.Show
Else
LblParola = "Parola HATALI!"
FrmParola2.TxtParola.SetFocus
ThisWorkbook.Worksheets("PARAMETRELER").Range("A2").Value = _
ThisWorkbook.Worksheets("PARAMETRELER").Range("A2").Value + 1
End If
End Sub
Private Sub CmdCari_Click()
' CARİ FORMUNU AÇ
Unload Me ' FORMU KAPAT
FrmCari2.Show
End Sub
Faruk Çubukçu - Bilgi Teknolojileri Danışmanlık
www.farukcubukcu.com www.excelakademi.com