Fatura takip programı

[SERSERP]

fedeal hocam kullanıcı girişi ile ilgili bir userform açtım. bunun üstüne combox1 (kullanıcı adı) ve textbox1 (şifre) birde commandbuton (giriş) koydum şimdilik. Kullanıcı adını kullanıcı sayfasından yönlendirip listeliyorum. daha sonra bu kullanıcı sayfasında H sütununa bu kullanıcı adlarının karşılığı olarak şifreler yazdım.
bu oluşturduğum kullanıcı girişi userformunda giriş butonuna aşağıdaki kodu yazdım ve hata verdi. Burdaki amacım Combobox1 de ki veri kullanıcı sayfasında "B" sütunda varmı ve text1 deki veri kullanıcı sayfasında "H" sütunda varmı. böyle bir sorgulamayla kullanıcı girişini düşünüyorum.

Private Sub CommandButton1_Click()
Dim i As Byte
If ComboBox1.Text = "" And TextBox1.Text = "" Then
MsgBox "Kullanıcı Adı veya Şifrenizi Girmediniz", vbExclamation, "Dikkat"

Exit Sub
End If


For i = 2 To Sheets("Kullanıcı").Range("A65536").End(xlUp).Row

If Sheets("Kullanıcı").Range("B", i).Value = ComboBox1.Text And Sheets("Kullanıcı").Range("H", i).Value = TextBox1.Text Then
Fatura_Takip.Show
Unload Me
Else
MsgBox "Kullanıcı Adı veya Şifrenizi Yanlış Girdiniz", vbInformation, "Yanlış Bilgi Girişi"
End If
Next i

End Sub

 

[fedeal]

mantık hatası var döngü 2 den başlıyor ve comboboxta yazan kullanıcı 6.sırada döngünün ilk satırında msgbox çıkar.bunun yerine find fonksiyonu hem iyi hem hızlıdır.

hatayı veren yanlış ise;

Range("B", i).Value

dogrusu

Range("B"& i).Value

virgülü cells ile kullanıyoruz o ise böyle olmalıydı,

cells(i, "b").value

 

[SERSERP]

mantık hatası var döngü 2 den başlıyor ve comboboxta yazan kullanıcı 6.sırada döngünün ilk satırında msgbox çıkar.bunun yerine find fonksiyonu hem iyi hem hızlıdır.

hatayı veren yanlış ise;

Range("B", i).Value

dogrusu

Range("B"& i).Value

virgülü cells ile kullanıyoruz o ise böyle olmalıydı,

cells(i, "b").value

hocam döngüyü 2 den başlatmamın sebebi kullanıcı sayfasının ilk satırında başlıklar var yani b1 ve h1 hücrelerinde kullanıcılara ait bir bilgi yok.

Range düzeltmelerini yaptım ve dediğiniz gibi MsgBox çıkıyor. comboboxta yazan kullanıcı 6 sırada demişiniz. bunu anlayamadım.
hocam Find fonksiyonu hakkında hiçbir bilgim yok. neden bende msgbox çıkıyor. yardım edermisiniz.

 

[SERSERP]

hocam bu arada ben şifre kısmını doldurmadığım için hep msgbox çıkıyordu .şimdi düzeldi kullanıcı adını ve şifreyi giriyorum ama bir sorun var eğer kullanıcı adı 5 sırada ise 4 defa msgbox çıkıyor herseferinde tamam diyorum ve beşinciye geldiğinde kullanıcı adını ve şifreyi kabul edip userforma geçiş yapıyorum. bu tekrar tekrar msgbox ı nasıl orrtadan kaldırabilrimben dosyanın son halinide ekte yolluyorum.

 

[fedeal]

döngü 2 den başlıyor
Sheets("Kullanıcı").Range("B"&2).Value = ComboBox1.Text satır doğru değilse mesaj çıkacak oysaki
Sheets("Kullanıcı").Range("B"& 3).Value = ComboBox1.Text dogruydu bunu mesaj cıkmadan yapmak mı istersiniz (döngüyle) yoksa findle kod yazıyımmı ?

neyse döngüyle olur yolunu yazayım.

Private Sub CommandButton1_Click()
Dim i As Byte
If ComboBox1.Text = "" And TextBox1.Text = "" Then
MsgBox "Kullanıcı Adı veya Şifrenizi Girmediniz", vbExclamation, "Dikkat"

Exit Sub
End If

s=0
For i = 2 To Sheets("Kullanıcı").Range("b65536").End(xlUp).Row
If Sheets("Kullanıcı").Range("B"&i).Value = ComboBox1.Text And Sheets("Kullanıcı").Range("H"& i).Value = TextBox1.Text Then
s=s+1
End If
Next i
if s>0 then
Fatura_Takip.Show
Unload Me
else
MsgBox "Kullanıcı Adı veya Şifrenizi Yanlış Girdiniz", vbInformation, "Yanlış Bilgi Girişi"
end if
End Sub

 

[SERSERP]

hocam herzamanki gibi mühtişsiniz. Ellerinize sağlık

burda kullandığınız "s" değişkeni neyi saydırmamıza yaradı bunu anlayamadım.
hocam şimdi bu kullanıcı giriş kısmını şimdilik sayenizde aştığıma göre sıradaki adımda bu kullanıcı girişi yaptığımız bilgiyi ilk açılan userformda (Fatura_Takip) combobox2 de nasıl tanımlarız. ve buradaki combobox işlemler bitene kadar hiç değişmemeli. bunu sağlayabilirsem buradaki comboboxu kaldırıp bunun yerine textbox kullanmalıyım ve dediğim gibi programdan çıkana kadar burdaki bilgininde değişmemesini sağlamam geregkli.

 

[fedeal]

s değişkeni sorgulamalarda dogru sayısı kadar artacak örnegin aynı kullanıcı ve şifresi 1 kere varsa s=1 olacak ve 1 ise alttaki sorgu dogru olacak ( if s>0 then ) mantıgı bu

kulanıcı adı silinsede olur sayfada bir hücreye yazdırırız ve yanındaki hücrelere yetkilerini her açılışta bu değişir. userform açılış ayrlarınada örnegin kayıt yapmasına izin yok ise kayıt yapan butonu etkisiz halagetiririz.

 

[SERSERP]

kulanıcı adı silinsede olur sayfada bir hücreye yazdırırız ve yanındaki hücrelere yetkilerini her açılışta bu değişir. userform açılış ayrlarınada örnegin kayıt yapmasına izin yok ise kayıt yapan butonu etkisiz halagetiririz.

Fedeal hocam kullanıcı adını kaldırdım diyelim. Ben zaten veri girişi yaptığım userform üzerine kullanıcı yetkileri diye bir bölüm koymuştum ve buradan kullanıcılar için yetki belirledim. Bunlarıda kullanıcı sayfasına yazdırıyorum.Bu kısım işimizi görürümü? Eğer bu kısım işimimizi görürse buradaki bilgilerede 1 kişinin değişiklik yapma hakkı olması gerekir. Bunu nasıl sağlayabilrim.

 

[fedeal]

Dosyayı inceleyin serkan önal olarak giriş yapın kullanıcı yetkileri enaz olan,ayşe yargı ise yönetici olarak yaptım

 

[Civan Jack]

Şifre neydi hocam ??

 

[SERSERP]

Hocam süpersiniz ya nediyeceğimi bilmiyorum artık.

Ellerinize kollarınıza sağlık .
Hocam bir sorum daha olacak . bu kullanıcı girişi yapılırken şifre yazarken (mesela 1234) bunu nasıl gizleyebiliriz ( şifre yazılırken **** şeklinde görüntü)

 

[SERSERP]

hocam birde ben bu kullanıcı giriş bölümüne şifre değişikliği için buton koydum ve bu butona aşağıdaki kodu yazdım

Private Sub CommandButton1_Click()
Dim i, s As Byte
If TextBox1.Text = "" And TextBox2.Text = "" And TextBox3.Text = "" And TextBox4.Text = "" Then
MsgBox "Lütfen tüm bilgileri eksiksiz giriniz.", vbExclamation, "Eksik Bilgi Girişi"
Exit Sub
End If
s = 0
For i = 2 To Sheets("Kullanıcı").Range("A65536").End(xlUp).Row
If Sheets("Kullanıcı").Range("B" & i).Value = TextBox1.Text And Sheets("Kullanıcı").Range("H" & i).Value = TextBox2.Text Then
If TextBox3.Text = "" Or TextBox4.Text = "" Then
MsgBox "Yeni şifrenizi giriniz", vbExclamation, "Dikkat"
Exit Sub
End If
If TextBox3.Text <> TextBox4.Text Then
MsgBox "Yeni şifre ile şifre tekrarı birbibirini tutmamaktadır.", vbExclamation, "Yanlış şifre girişi"
Else
Sheets("Kullanıcı").Range("H" & i) = Empty
Sheets("Kullanıcı").Range("H" & i) = TextBox4.Text
End If
s = s + 1
End If
Next i
If s > 0 Then
Unload Me
MsgBox "Kullanıcı adınızı veya şifrenizi yanlış girdiniz", vbExclamation, "Dikkat"
End If
MsgBox "Şifreniz Başarıyla Değiştirilmiştir.", vbInformation, "Şifre Değişikliği"
End Sub


bu kodu çalıştırıyorum ve sonuç olarak karşıma şifereniz değiştirildi mesajı ile beraber kullanıcı adını ve şifrenizi yanlış girdiniz diye mesaj çıkıyor (ben kullanıcı adı ve şişfreyi doğru girdim)

 

[fedeal]

Şifre neydi hocam ??

ayşe yargı için 1234

 

[Civan Jack]

Teşekkürler Sn. fedeal

 

[fedeal]

Hocam süpersiniz ya nediyeceğimi bilmiyorum artık.

Ellerinize kollarınıza sağlık .
Hocam bir sorum daha olacak . bu kullanıcı girişi yapılırken şifre yazarken (mesela 1234) bunu nasıl gizleyebiliriz ( şifre yazılırken **** şeklinde görüntü)

textbox1 properties ayarlarında passwordchar kutusuna * işaretini koyarsanız olur.

 

[SERSERP]

Hocam bir sonraki mesajımdaki kod hakkında da sizden yardım istiyorum. Eğer onuda düzeltirseniz sanırım işlem tamam olacak gibi.

 

[fedeal]

şifre giriş 3 hakla sınırlandırıldı ,kullanıcı adı ve şifre değiştirme yapıldı.

 

[SERSERP]

Hocam valla döktürdünüz yine. ben bunu tasarlarken hiç bu seviyelere çıkabileceğimi sanmıyordum. Yadımlarınız için size sonsuz minnettarlığımı sunarım.

hocam bir sorum daha olacak ben bu veri girişi yaptığım yerde bir tanede kullanıcı değiştir butonu koydum ve buna

Unload Me
Kullanıcı_Girişi.Show


kodunu yazdım.daha sonra bu butona bastığımda hata komutu veriyor ve
Kullanıcı_Girişi.Show
kısmını sarıya boyuyor. Bunu neden kabul etmiyor.

 

[fedeal]

Bir şeyler yaptım inceleyin,

 

[SERSERP]

Hocam yaptığınız inceledim. ellerinize sağlık, fakat ben bunu kullanıcı değiştir dediğimde burdaki userformu kapatıp, dosyayı ilk açtığımızda karşımıza gelen kullanıcı giriş userformunu ekrana getirmesi gerekli.

bunun için

Unload Fatura_Takip
Kullanıcı_Girişi.Show

yazdım. hata verdi