textbax

[sinemomec]

userformunda textbaxlar ve combobaxlar var bunların boş olması durumunda kayıt yapmamasını ve msjbax ile bilgi vermesini istiyorum.teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki gibi yapabilirsiniz.

if textbox1.text="" then
    msgbox "textbox1 boş olamaz.
    exit sub
elseif combobox1.text="" then
    msgbox "combobox1 boş olamaz.
    exit sub
elseif combobox2.text="" then
    msgbox "combobox2 boş olamaz.
    exit sub
end if

 

[sinemomec]

Private Sub Cmdkaydet_Click()
sonsatır = WorksheetFunction.CountA(Worksheets("PERSONELÖNTANIM").Range("A:A")) + 1
If sonsatır = 2 Then
Worksheets("PERSONELÖNTANIM").Cells(sonsatır, 1) = 1
Else
Worksheets("PERSONELÖNTANIM").Cells(sonsatır, 1) = Worksheets("PERSONELÖNTANIM").Cells(sonsatır - 1, 1) + 1
End If
Worksheets("PERSONELÖNTANIM").Cells(sonsatır, 2) = Tbadsoyad.Value
Worksheets("PERSONELÖNTANIM").Cells(sonsatır, 3) = Tbgörev.Value
Worksheets("PERSONELÖNTANIM").Cells(sonsatır, 4) = Tbgörev.Value
MsgBox "VERİ KAYDEDİLDİ.", vbInformation, "BİLDİRİ"
Tbadsoyad.Value = ""
Tbgörev.Value = ""
Tbkurum.Value = ""
listele
If Tbadsoyad.Text = "" Then
MsgBox "Tbadsoyad boş olamaz."
Exit Sub
ElseIf Tbgörev.Text = "" Then
MsgBox "Tbgörev boş olamaz."
Exit Sub
ElseIf Tbgörev.Text = "" Then
MsgBox "Tbgörev boş olamaz."
Exit Sub
End If
End Sub
uyarı veriyor ama kayıt yapıyor ben eğer bossa kayıt yapmasın istiyorum

 

[Necdet]

Merhaba,

F8 ile adım adım kodların çalışmasını izlerseniz, nerede kaçak olduğunu anlarsınız.

 

[Greenblacksea53]

En başa yazsan sorun kalmaz, Muzaffer hocanın verdiği kodları en başa yaz

 

[Muzaffer Ali]

Önce kayıt ediyor sonra kontrol ediyorsunuz. Ondan öyle oluyor.
Önce boş mu diye kontrol eden kodları yazmalısınız.
Kodları düzenledim.

Private Sub Cmdkaydet_Click()
If Tbadsoyad.Text = "" Then
MsgBox "Tbadsoyad boş olamaz."
Exit Sub
ElseIf Tbgörev.Text = "" Then
MsgBox "Tbgörev boş olamaz."
Exit Sub
ElseIf Tbgörev.Text = "" Then
MsgBox "Tbgörev boş olamaz."
Exit Sub
End If
sonsatır = WorksheetFunction.CountA(Worksheets("PERSONELÖNTANIM").Range("A:A")) + 1
If sonsatır = 2 Then
Worksheets("PERSONELÖNTANIM").Cells(sonsatır, 1) = 1
Else
Worksheets("PERSONELÖNTANIM").Cells(sonsatır, 1) = Worksheets("PERSONELÖNTANIM").Cells(sonsatır - 1, 1) + 1
End If
Worksheets("PERSONELÖNTANIM").Cells(sonsatır, 2) = Tbadsoyad.Value
Worksheets("PERSONELÖNTANIM").Cells(sonsatır, 3) = Tbgörev.Value
Worksheets("PERSONELÖNTANIM").Cells(sonsatır, 4) = Tbgörev.Value
MsgBox "VERİ KAYDEDİLDİ.", vbInformation, "BİLDİRİ"
Tbadsoyad.Value = ""
Tbgörev.Value = ""
Tbkurum.Value = ""
listele

End Sub

 

[sinemomec]

TEŞEKKÜR EDERİM.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.