Kullanıcı Formunda yardım

[ustura4040]

:yardim:

ekteki örnekte örnek tablo ve form örneği var. kodunu yazmadım. çünkü karıştırdım iyice kafamı. forma girdiğim bilgilerin anında tablodaki yerlerine oturmasını istiyorum. çünkü kullanacağım tabloda kişi ve harcama ayrıntısı çok fazla. toplamlı girişe de izin vermeli form.
ilginiz ve yardımınız için çok teşekkür ederim şimdiden. saygılarımla...

 

[ASMET67]

Selam.
Dosyanızı inceledim ama anlayamadım.
Biraz açarmısınız.

 

[ASMET67]

Dosyanızdan anlayaildiğim kadarı ile birşeyler yapmaya çalıştım.
İncelermisiniz.

 

[ustura4040]

yaptığınız koda hiç dokunmadım ama üstte olan kısımda liste kutusuna gerek yok orda hesap nosu yazılan kişnin bilgileri görüntülenecek veri girişleri genelde alttan yapılacak.yani üstteki ve alttaki hesap no kısmına nosu yazılanın bilgileri ilgili yerlere oturacak formda. ve harcamalar harcama kısmına(alttaki) yazılacak.harcama türü liste kutusundan seçilecek. hesap nosu yazılacak taba bastıktan sonra harcamalar tutarı girilecek. kaydet e falan basmaya gerek olmadan direk bunlar tabloya oturacak.

 

[ASMET67]

Benden bukadar kusura bakma benim bildiğim budar burdan sonra diğer arkadaşlar yardımcı olur.

 

[ustura4040]

teşekkür ederim..

 

[ustura4040]

Private Sub TextBox13_Change()
   
    Dim harca As Currency
    Dim limit As Currency
    Dim bakiye As Currency
    
    harca = TextBox13.Value
    hedef = ActiveCell.Value
    
    ActiveCell.Value = harca

    Selection.NumberFormat = "0.00"
    ActiveCell.EntireColumn.ColumnWidth = 6.57
      
    limit = Range("h" & (ActiveCell.Row)).Value
    bakiye = Range("f" & (ActiveCell.Row)).Value
    If limit > 200 Then Beep: MsgBox ("limiti aştın.")
    If bakiye < 0 Then Beep: MsgBox ("o kadar para yok..")
 
End Sub

arkadaşlar harcamanın text boxtan girildiği kısımı yukardaki gibi yazıyorum. ama bu şekilde sadece rakam girişi yapabiliyorum. kişinin örneğin aynı anda 2 harcaması varsa =2,10+3,00 şeklinde giiş yapamıyorum. bana 2 yada fazla harcamayı girebilmem konusunda yardımcı olabilirseniz seviniim.

 

[ASMET67]

harca = "=" & TextBox13.Value

Bu şekilde dene

bu teboxsa gidriğin değerleri hücreye toplayarak yazar.

textbox = 30+ 25 olsun
hücreye =30+25= 55 olarak yazar.

Private Sub TextBox13_Change()

Dim harca As Currency
Dim limit As Currency
Dim bakiye As Currency

harca = "=" & TextBox13.Value
hedef = ActiveCell.Value

ActiveCell.Value = harca

Selection.NumberFormat = "0.00"
ActiveCell.EntireColumn.ColumnWidth = 6.57

limit = Range("h" & (ActiveCell.Row)).Value
bakiye = Range("f" & (ActiveCell.Row)).Value
If limit > 200 Then Beep: MsgBox ("limiti aştın.")
If bakiye < 0 Then Beep: MsgBox ("o kadar para yok..")

End Sub

 

[ustura4040]

dediğiniz şekilde yazar yazmaz type mitsmach error veriyor direkt olarak

harca = "=" & TextBox13.Value

satırında... çünkü = değeri alfanümerik ve harca değişkeni sayısal değişken..

 

[ASMET67]

Ben değişken tanımlamadan direk textboxa yaptın oldu.
Dosyanız ekte
Dediğiniz değişiklikleri uygulamaya çalıştım
İnceleyiniz.

 

[ustura4040]

ilginiz ve yard&#305;m&#305;n&#305;za &#231;ok te&#351;ekk&#252;r ederim.. &#231;al&#305;&#351;malar&#305;n&#305;zda ba&#351;ar&#305;lar..