stoga ekleme

[akd]

Merhaba arkadaşlar,
Ben bu DAO konusunda pek bilgim yok, ihtiyaç olunca araştırıyor insan,
ekteki kitapta, kayıt yaparken aynı zamanda stok taki ismin karşısındaki
adetede eklemesini istedim,
Yani kitap kaydı yaparken aynı zamnda stoktaki kitabı bulup karşısındaki adet kısmına ekleyecek, orada 10 adetse yeni eklenen 5 adet se stokta ki 15 adet olacak.
İnşallah anlatabilmişimdir.
İyi çaşılmalar

 

[gulsum1]

Private Sub Komut8_Click()
On Error GoTo Err_Komut8_Click

Dim i As Integer
Dim rs As New ADODB.Recordset
rs.Open "giris", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rs.EOF <> True Then
Do
If rs("isim") = Me.txtisim And rs("Cinsi") = Me.txtCinsi Then
rs("isim") = Me.txtisim
rs("Cinsi") = Me.txtCinsi
rs("Adet") = rs("Adet") + Me.txtAdet
rs.Update
End If

rs.MoveNext
Loop Until rs.EOF
End If
Set rs = Nothing
Set conn = Nothing
MsgBox "Kay&#305;t Tamam... ", vbCritical, "AKD.YAZILIM..."
Me.Liste11.Requery
Me.txtisim = ""
Me.txtCinsi = ""
Me.txtAdet = ""
Exit_Komut8_Click:
Exit Sub

Err_Komut8_Click:
MsgBox Err.Description
Resume Exit_Komut8_Click

End Sub

sat&#305;&#351;dada + olan yeri - yapars&#305;n bu &#246;zellikle daha sonra yapca&#287;&#305;n stok programlar&#305;nda i&#351;e yarar birde bu kod yapt&#305;&#287;&#305;n program&#305;n i&#231;inde &#231;al&#305;&#351;&#305;r e&#287;er a&#287;da yada ba&#351;ka bir yerdeki program&#305;n tablosuna i&#351;lem yapacaksan
kod bu
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim klasor


klasor = CurrentProject.Path & "\evrak.mdb"

With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open klasor
End With

With rst
.ActiveConnection = conn
.Open "2007", LockType:=adLockOptimistic
rst.MoveLast

veri.Value = .Fields("no") + 1

End With

With rst
.AddNew
.Fields("konu").Value = A&#231;&#305;lan_Kutu23.Column(1)
.Fields("t&#252;r&#252;").Value = "SEVK"
.Fields("desno").Value = "243"
.Update
End With
rst.Close

conn.Close

bu ara nas&#305;l ekleme yap&#305;laca&#287;&#305;n&#305;da g&#246;stermi&#351; oldum .AddNew ile ama sen rs.AddNew diye kullanacan ahmet defter ald&#305;&#287;&#305;nda

 

[gulsum1]

bu kod sadece e&#287;er kay&#305;tlarda ahmet kalem alm&#305;&#351;sa tekrar kalem ald&#305;&#287;&#305;nda kalemin miktar&#305;n&#305;n &#252;zerine ekler e&#287;er ahmet defter al&#305;rsaki o k&#305;sm&#305;n&#305;da sen yada ustalar ekler diye d&#252;&#351;&#252;nd&#252;m

 

[akd]

yanlış anlamışsınız

Merhaba sayın gulsum1,
Sorumu yanlış anlamışsınız, benim burada sorunum,stoğa ekleme ile,
girişe veriyi ekliyorum,
aynı zamnada adeti stok sayfasındaki kaydelen cinsin karşısındaki edete eklemsidir.
stokdaki Kalem 10 adetse, yeni kayıt girildiginde,
kalem 7 adet giriliyorsa satoktaki kalem adedini 17 olasıdır sorunum.
İyi çalışmalar...

 

[gulsum1]

ozaman kolay

Private Sub Komut8_Click()
On Error GoTo Err_Komut8_Click

Dim i As Integer
Dim rs As New ADODB.Recordset
rs.Open "stok", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rs.EOF <> True Then
Do
If rs("Cinsi") = Me.txtCinsi Then
rs("Adet") = rs("Adet") + Me.txtAdet
rs.Update
End If
rs.MoveNext
Loop Until rs.EOF
End If
Set rs = Nothing
Set conn = Nothing
MsgBox "Kay&#305;t Tamam... ", vbCritical, "AKD.YAZILIM..."
Me.Liste11.Requery
Me.txtisim = ""
Me.txtCinsi = ""
Me.txtAdet = ""
Exit_Komut8_Click:
Exit Sub

Err_Komut8_Click:
MsgBox Err.Description
Resume Exit_Komut8_Click

End Sub

 

[mithrill74]

say&#305;n g&#252;ls&#252;m1.
bu kodlar sadece sto&#287;a ekliyor. ayn&#305; zamanda giri&#351; tablosunada eklemesi laz&#305;m de&#287;il mi? iki tabloya da birden nas&#305;l kay&#305;t yap&#305;labilir?

 

[akd]

işlem tamam

Merhaba arkadaşlar,
Kodu tamamladım,
Sağolsun gulsum1 kardeşimin kodunuda benimkine bağlayarak işlemi
tamamladım.
Teşekkürler sayın gulsum1.
İyi geceler...

 

[gulsum1]

program&#305;n son halini koy bak seninle ayn&#305; problemi ya&#351;ayan arkada&#351;lar varm&#305;&#351; tamam hallettim diyip gitme soru senin ama problem bir &#231;ok ki&#351;inin g&#246;rd&#252;&#287;&#252;n gibi soruyu merak edip girenler tamam hallolmu&#351; ama nas&#305;l demesinler a&#231;&#305;klamas&#305;n&#305;da ekle emin ol bir &#231;ok te&#351;ekk&#252;r al&#305;rs&#305;n

 

[akd]

örnek uygulama

Buyrun arkadaşlar, ihtiyacı olanlar kullansın, bilgi paylaştıkça çoğalır...
İyi çalışmalar...

 

[mithrill74]

say&#305;n gulsum1 ve akd...
gercekten guzel bir &#231;al&#305;&#351;ma. te&#351;ekk&#252;r ederim. iyi &#231;al&#305;&#351;malar... .))

 

[akd]

toplam almak

Merhaba arkadaşlar,
Ben bir metin kutusu ekleyerek listedeki Adet sutununun toplamını almak istedim malesef yapamadım.
Listedeki Adet sutununun toplamını almak istiyorum
bir metin kutusuna.
İyi çalışmalar...

 

[gulsum1]

cevap

hadi oda benden olsun yaln&#305;z ilk liste kutusunun toplam&#305; formu yeniledi&#287;inde geliyor di&#287;eri kay&#305;t ekledi&#287;inde oluyor ama fazla u&#287;ra&#351;amad&#305;m zaman yeterli de&#287;ildi ha bu arada bu kod access kod deposunda vard&#305; asl&#305;nda bir &#231;ok kod access kod deposunda var ben burda yapt&#305;&#287;&#305;m &#246;rneklerin hepsini access kod deposundan al&#305;yorum arkada&#351;lara tavsiyem soru sormadan &#246;nce mutlaka access kod deposuna baks&#305;nlar

unutmadan bu i&#351;lem dolookup ilede yap&#305;l&#305;rd&#305; &#231;&#252;nk&#252; tabloda olan b&#252;t&#252;n kay&#305;tlar&#305;n toplam&#305; al&#305;n&#305;yor yada dsum ilede yap&#305;l&#305;rd&#305; ama bu &#351;ekli &#246;zellikle s&#252;zd&#252;rmeli liste kutular&#305;nda i&#351;e yarar