access te virman gibi bi şey yapmak istiyorum

[realperest]

Merhaba,


Muhasebe işi ile az çok ilgilenmiş olanlar bilir.
İki hesap arasındaki kayıt hareketine (başka bi amaca hitap etmiyorsa, sadece paranın yeri değişiyorsa) virman deniliyor.

kasa defteri takip gibi bi şey yapmaya çalışıyorum. Ama burada bu virman işlemini yapmaya çalıştım çözümünü bulamadım.

Mesela KASA hesabındaki para BANKA hesabına geçti bu iki hesap arasında kayıt yapmak için
YA..... ;

önce bir kayıt açacağım ve KASA hesabını seçerek çıkan para kaydı gireceğim ve rakamı yazacağım. Sonra BANKA hesabı için bir kayıt daha girip bununda giren para kaydı olarak aynı rakamı yazacağım. Bunun ikisini birden yapmak kullanıcı için işkencenin ötesinde bir durum oluşturuyor.


Aklıma şu geldi....


Alan hesap
Veren hesap diye iki ayrı açılan kutudan hesapları seçeceğim tutarı yazacağım. Tuşa bastığımda Veren hesapa bir çıkış kaydı
alan hesaba da bir alış kaydı girecek. Yani iki ayrı kaydı kendi kendine açacak ve birinin HESAPADI alanınan ilk açılan kutudan seçileni ikinci kaydın HESAPADI alanına ikinci açılan kutudan seçilen kaydı girecek rakamı da her ikisine girecek.

Bir tuşla bu işi yapmanın yöntemi vardır umarım Access'te.

[acemi]

Kod yazarak yapabilirsin. INSERT INTO ile her iki kalem icin gerekli kaydi tabloya ekleyeceksin. Suna benzer bir kod, kaydin After Insert (kayit eklendiginde) olayina yazilabilir:

Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Dim sqlStr As String

Set cnn = New ADODB.Connection
Set cnn = CurrentProject.Connection

Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cnn_local

cnn.BeginTrans

' birinci kalem icin
sqlStr = "INSERT INTO TabloAdi " & _
"(Alan1, Alan2) " & _
"VALUES (deger1, deger2);"
cmd.CommandText = sqlStr
cmd.Execute

' ikinci kalem icin
sqlStr = "INSERT INTO TabloAdi " & _
"(Alan1, Alan2) " & _
"VALUES (deger1, deger2);"
cmd.CommandText = sqlStr
cmd.Execute

cnn.CommitTrans

Set cmd = Nothing
Set cnn = Nothing

[realperest]

saol,

deneyeceğim.

[realperest]

Merhaba,

uzun zamandır bilgisayarın başına oturamadım.

deneme amacıyla aşağıdaki kodu girdim, bakalım kaydedecekmi diye

Private Sub Komut6_Click()
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Dim sqlStr As String

Set cnn = New ADODB.Connection
Set cnn = CurrentProject.Connection

Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cnn_local

cnn.BeginTrans
'birinci kayıt için (çıkış kaydı)
sqlStr = "INSERT INTO HAREKET" & "(HESAP)" & "VALUES (forms!VIRMAN!alanhesap);"
cmd.CommandText = sqlStr
cmd.Execute

'ikinci kayıt için (diğer hesabın giriş kaydı)
sqlStr = "INSERT INTO HAREKET" & "(HESAP)" & "VALUES (forms!VIRMAN!verenhesap);"
cmd.CommandText = sqlStr
cmd.Execute

cnn.CommitTrans

Set cmd = Nothing
Set cnn = Nothing


End Sub


ama

Set cmd.ActiveConnection = cnn_local

satırında bir problem var gibi görünüyor. 424 object requary

diye bi hata mesajı çıkıyor.

neden acaba ?

[acemi]

Orasi

Set cmd.ActiveConnection = cnn

olmali. Yanlis yazmisim.

[realperest]

abicim kusura bakma ama nedense yine olmuyor.


bu seferde program kodu

cmd.Execute satırında takılıyor ve

Gerekli veya daha fazla parametre için girilen değer yok.

diye bi hata mesajı veriyor. Bu benim sadece kod kullanarak herangi bir tabloya kayıt girmekteki ilk deneyimim bunu öğrenmek istiyorum.


Kusura bakma ama bi usta gözüyle bi bakmanı rica edeceğim yine.

[acemi]

sqlStr = "INSERT INTO HAREKET" & "(HESAP)" & "VALUES (forms!VIRMAN!alanhesap);"

kismi

sqlStr = "INSERT INTO HAREKET (HESAP) " & _
"VALUES (" & forms!VIRMAN!alanhesap & ");"

olacak. Ikincisi de ayni sekilde degisecek.


Gerekli bosluklari verip vermedigine dikkat et. Ornegin (HESAP) kisminden sonra bir bosluk olmali. Kelimeleri ayrimak icin...

[realperest]

olmuyor yine abi yaa,

aynen senin gösterdiğin şekilde yaptım olmadı.


sorgu ifadesi içinde söz dizimi hatası (eksik işleç)


diye bi hata ile yine
cmd.execute satırında takılıyor.


Private Sub Komut6_Click()
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Dim sqlStr As String

Set cnn = New ADODB.Connection
Set cnn = CurrentProject.Connection

Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cnn

cnn.BeginTrans
'birinci kayıt için (çıkış kaydı)
sqlStr = "INSERT INTO HAREKET (HESAP) " & _
"VALUES (" & Forms!VIRMAN!alanhesap & " );"
cmd.CommandText = sqlStr
cmd.Execute

'ikinci kayıt için (diğer hesabın giriş kaydı)
sqlStr = "INSERT INTO HAREKET (HESAP) " & _
"VALUES (" & Forms!VIRMAN!verenhesap & ");"
cmd.CommandText = sqlStr
cmd.Execute

cnn.CommitTrans

Set cmd = Nothing
Set cnn = Nothing


End Sub


işte bütün kodum bu ve burada bir yanlışlık var ama nerede bilmiyorum.

vazgeçmek üzereyim.

[acemi]

* Veritabaninda HAREKET adli bir tablo var mi?
* Bu tabloda HESAP adli bir alan var mi?
* Bu alanin tipi ne?
* Bu islemi yaparken VIRMAN adli form acik mi?
* Formun adi Virman mi, VIRMAN mi?


Bir de su denemeyi yapsana:
* cmd.execute satirlarinin basina tek tirnak (') koyup calismasini engelle
* Formdan veriyi alip almadigini anlamak icin cmd.execute satirlarinin altina

msgbox(sqlStr)

yaz. Gordugun sonucu buraya kopyala. Bos gorunuyorsa, muhtemelen form adindan (VIRMAN) kaynaklanan bir sorun vardir. i/I olayi...

[realperest]

Selam,

HAREKET adli bir tablo var ve bu HAREKET tablosunun içinde HESAP diyede bir alan var. Bu alanın tipi Metin

Evet VIRMAN adındaki form açık zira olayı tetikleyen komut düğmesi bu formun üzerinde, ve bu formun adı VIRMAN

cmd.execute komut satırını olaydan çıkarmayı denemiştim.
bunun başına ' koyunca otomatik olarak bir sonraki satırları sarı boyuyor. ve altaki ikinci kayda kadar böyle gidiyor onuda ' işareti ile kaldırınca da komut düğmesi hiç bir reaksiyon vermiyor. Bakıyorum tabloya kayıt falan da girmemiş oluyor.

Mesajboxta açılan kutudan seçtiğim (alanhesap, verenhesap) değerleri var zaten VBA nın içinde de satırın üzerine fare ile gelince de görünüyor ama sadece şundan şüpheleniyorum

bütün komut satırı var yani bana sanki sadece denetimin içindeki değerin olması gerekiyormuş gibi geliyor
örneğin 110111 (Banka Hesabı)
gibi
ama
orada ;
INSERT INTO HAREKET (HESAP) VALUES (110111 (Banka Hesabı))

gibi var...

du bi dakka yaaa galiba hataya sebep olan şey benim hesap tanımlarını yaparken parantez kullanmam

Yani mesela alanhesap ve veren hesap alanlarındaki hesaplar
şu şekilde

111101 (Mevduat Hesabı)
111100 (Yatırım Hesabı)

gibi bundan olabilirmi sence