Bilgi Aktarma

rustutiryaki · 25 Haziran 2007

Tablo1 deki kadroyu boşalt tuşuna basınca Kadro Durumu Değerini Boş yapacak ve Adı soyadı Kurum Sicil No Öğrenim Durumu ve Cinsiyeti Değerlerini Boşaltarak tablo2 ye aktaracak. Yine Tablo 2 de bulunan Aktarılacak Kadro değerine yazacağım kadro numarasına görede kadroyu aktar tuşuna basınca tekrar tablo1 de bulunan kadro durumu dolu ve yine numarasına göre değerleri yazacak bir formül arıyorum. Bir türlü beceremedim yardımcı olurmusunuz.

ozanakkaya · 25 Haziran 2007

aynı sorunu bende yaşadım ve gülsüm1'in yardımlarıyla sorunu çözdüm
aşağıdaki örneği inceleyebilirsin.

http://www.excel.web.tr/showthread.php?t=33466

rustutiryaki · 25 Haziran 2007

ozan akkaya arkadaşım eline emeğine sağlık çok güzel bir program yapmışsın okadar güzelki içinde gerçekten çok kod var yararlanacağım ancak arkadaşım ben tayin olanlar kısmına gerekli kodu alıp kendime uyarlamaya çalıştım ancak okadar karışık kod varki ben anlayamadım. daha doğrusu benim kapastem anlamaya yetmiyor

benim eklediğim forma basit bir şekilde uygularsanız memnun olurum.

bu arada yaptığınız programda tayin olanlara atmayı halletmişsiniz ama biliyorsunuz bendeki daha farklı kadro numarasına aktarma

malesef tek taraflı olarak oluyor ama gerisin geriye başka kadroya atama olmuyor. bendeki olay kadroyu boşaltınca kişiyi askıya alma sonra başka kadroya gönderme olmalı

gulsum1 · 26 Haziran 2007

bu programın asıl hali değil asıl halini koy yani yaptığın çalışmanın tamamını bundan sonra böyle bir karar aldım kişi yaptığı çalışmayı paylaşmazsa sorusunu yanıtlamıyorum şu an koyduğun örnek saedece senin sorunu cevaplamaya yetecek kadar olan kusura bakma bu senin için aldığım bir karar değil burası paylaşım platformu ama kişiler başkalarının emeği ile para kazanıyorlar ve ben bunu sevmiyorum burda sadece çalışmasının sorunlu kısmını örnek olarak ekliyor ve sonrada bunu çözün çünkü ben bunu satıp 100$ yada 200 1000$ alacam demiyor ama bunu formda ben buna benzer bir sürü program yaptım sattım diyor ama burdaki acemilere yardıma gelince tık yok o nedenden dolayı yaptığı çalışmanın tamamını eklemeyenin sorusuna yanıt vermiyorum senin sorunu yaptım çalışmanın tamamını ekle cevabı ona uyarlayıp tekrar ekleyeyim

rustutiryaki · 26 Haziran 2007

Gülsüm Hanım dediğinizde haklısınız. anlıyorum sizi. konuyu daha basit anlatan bir örnek koymuştum yoksa konunun özü dağılıyordu. dosyam ektedir.
ilginize teşekkür ederim.

gulsum1 · 26 Haziran 2007

senin sorunu yarın cevaplanmış olarak alabilirsin

gulsum1 · 27 Haziran 2007

öncelikle o örneği kaldırıp içindeki kişilerin gerçek bilgilerini sil öyle tekrar ekle

gulsum1 · 27 Haziran 2007

cevap

öncelikle aktardığın tablo alanları ile aktarma yapacağın tablo alanları aynı olmalı ve alanlardan biri bile boş olsa arıza verir çünkü kayıtları dolanarak aktarma yaptığından birini alırken burda veri yok derse arıza verir
şimdi kodlara geçelim
önce aktarma kodu
Private Sub Komut18_Click()
'burda rs diye bir kayıt açıyorum
Dim rs As New ADODB.Recordset
'burda rs1 diye bir kayıt açıyorum
Dim rs1 As New ADODB.Recordset
'açtığım rs adlı kayda Tablo1 atıyorum
rs.Open "Tablo1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'açtığım rs1 adlı kayda Tablo2 atıyorum
rs1.Open "Tablo2", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
burda rs adlı kaydın yani Tablo1 de veri varmı yokmu onu kontrol ediyorum
If rs.EOF <> True Then
Do
burda rs adlı kayıtta kadro durumunu sorguluyorum
Select Case rs("KadroDurumu")
burda rs adlı kayıtta kadro durumununda boş olanları ayırıyorum
Case "BOŞ"
burda rs1 yani tablo2 açarak
With rs1
Tablo1 deki boş olan kayıtları Tablo2 e yeni kayıt olarak ekliyorum
.AddNew
.Fields("TCNo") = rs("TCNo")
.Fields("AdıSoyadı") = rs("AdıSoyadı")
.Fields("KurumSicilNo") = rs("KurumSicilNo")
.Fields("OgrenimDurumu") = rs("OgrenimDurumu")
.Fields("Cinsiyeti") = rs("Cinsiyeti")
olaki aynı kayıt varsa onu ekleme değil güncelliyorum
.Update
End With

End Select
burda tablo1 deki kayıtlar bitene kadar bu işlemleri döndürüyorum
rs.MoveNext
Loop Until rs.EOF
End If
aktarma işlemleri bitince her iki kaydı rs ve rs1 yani tablo1 tablo2 kapatıyorum
Set rs = Nothing
Set rs1 = Nothing
Set conn = Nothing
burda aktarılmış olan kayıtları silen fonksiyonu çağırıyorum
Call sil
burda formu yeniliyorumki tablodan silinen veriler formda görünmesin
DoCmd.Requery
End Sub

yukarda anlattığım gibi tablo açma recordset yapma yani rs.open yapma aynı burdaki tek fark tablo2 aktardığımız kayıtlara bakarak tablo1 den o kayıtları silmek ne yaptık önce kadro durumu boş olanları tablo1 den tablo2 ye aktardık sonrada o tablo2 ye aktardığımız kayıtlara bakarak tablo1deki önce aktardığımız kayıtları sildik bunu TcNo alanlarını karşılaştırarak yaptık
Function sil()
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
rs.Open "Tablo1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs1.Open "Tablo2", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rs.EOF <> True Then
Do
If rs("TCNo") = rs1("TCNo") Then
rs.Delete
End If
rs.MoveNext
Loop Until rs.EOF
End If
Set rs = Nothing
Set rs1 = Nothing
Set conn = Nothing
End Function

diğer işlem yani tablo2 den tekrar tablo1 aktarma ise bunun tersi
Private Sub Komut13_Click()
On Error GoTo Err_Komut13_Click

Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
rs.Open "Tablo1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs1.Open "Tablo2", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rs1.EOF <> True Then
Do
With rs
.AddNew
.Fields("TCNo") = rs1("TCNo")
.Fields("AdıSoyadı") = rs1("AdıSoyadı")
.Fields("KurumSicilNo") = rs1("KurumSicilNo")
.Fields("OgrenimDurumu") = rs1("OgrenimDurumu")
.Fields("Cinsiyeti") = rs1("Cinsiyeti")
.Fields("KadroDurumu") = "DOLU"
.Fields("Kadrono") = rs1("Kadrono")
.Update
End With

rs1.MoveNext
Loop Until rs1.EOF
End If
Set rs = Nothing
Set rs1 = Nothing
Set conn = Nothing
Call sil1
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Komut13_Click:
Exit Sub

Err_Komut13_Click:
MsgBox "KAYITLAR AKTARILDI VE ESKİLER SİLDİM GİTTİ ATTAAAA GİTTİİİİİ"
Resume Exit_Komut13_Click
End Sub
Function sil1()
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
rs.Open "Tablo1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs1.Open "Tablo2", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rs.EOF <> True Then
Do
If rs1("TCNo") = rs("TCNo") Then
rs1.Delete
End If
rs.MoveNext
Loop Until rs.EOF
End If
Set rs = Nothing
Set rs1 = Nothing
Set conn = Nothing
End Function

rustutiryaki · 27 Haziran 2007

Gülsüm Hanım dediğim nispeten olmuş ancak biraz eksik.

Şöyleki.

Tablo1 de;

Öncelikle kadro durumu dolu ise aktarım yapacak yoksa yapmayacak. memuru aktar dediğimizde kaydın

Kadrono alanı (aynen duracak)
kadro durumu alanı (Doluydu Boş olacak)
Ünvanı alanı (aynen duracak )
Kadro derecesi (aynen duracak)

aktarılacak olan bilgiler

tc no
adı soyadı
kurum sicil no
öğrenim durumu
cinsiyeti

bu alanlar aktarılacak

aktarımı yapılan kişi formunda ise Tablo2

aktarımı yapılacak kadroyu yazınca tablo 1 deki kadro durumu boş ise akatarım yapacak yoksa işlem iptal oalacak

kadro dolu olduğundan aktaramazsınız diyebilir.

Tablo 1 de bulunan kadro numarası na memur bilgileri eklenecek boş yazan kadro durumuda doluya dönecek

buradaki amaç kadro numarasına memuru atamak.

yani kısaca şöyle diyeyim sabitlerimiz kadro bilgileri değişkenlerimiz memur özlük bilgileri.

sabit bilgilerde bir değişiklik olmayacak.
ilgili kadro değişmez ama kadrodaki memur değişebilir.

Tablo 1 de ve tablo 2 de alanlar boş olsa dahi aktarımı yapmalı bazen memurun bilgisi ilgili alanda olmaya biliyor.

gulsum1 · 27 Haziran 2007

ben ne yapmak istediğini anlamadım o nedenden dolayı anladığım şeyi yaptım eğer uzun uzadıya bir açıklama yaparsan dediklerini yapmak kolay aslında sen de yaparsın ben sil ile sildirdim sen sildirmeyi kaldırıp sadece alanları boşaltabilirsin

rustutiryaki · 27 Haziran 2007

Daha detaylı şöyle anlatayım

bir dairede çalışanın kadro bilgileri ve özlük bilgileri vardır.

bir devlet memurunun çalışa bilmesi veya atana bilmesi için o kadronun oraya tahsisi vede boş olması gerekmektedir.

yani öncelikle memur olmaya bilir ama kadro bilgileri daima vardır.

bunlarda şunlardır

kadro no
kadro ünvanı
kadro derecesi
kadro durumu
gibi

bunun yanında özlük bilgileri vardır
bu kadroya kim atanacak
adı nedir
doğum yeri tarihi nedir
erkek midir bayanmıdır
gibi

bir kadroya gelen memurun özlük bilgilerini yazarsak dolu hale gelir ve buraya başkası yazılamaz her kadro tektir başka yoktur.

bizim amacımız bazen memurun 330001 nolu kadrodan 330065 nolu kadroya atamamız gerekiyor.
o yüzden yer değişikliği yapmamız gerekiyor.

gulsum1 · 27 Haziran 2007

tamam sen yinede benim yaptığımı istiyorsun ama bir kadro diye bir tablo yaparsın ve o tabloya sizin kuruma o kadrodan ne kadar tahsis edildiği ve ne kadarının kullanıldığı olur kişiler tablosunda kadro numarası olur ve biz o numaraları saydırarak tahsis edilen kadrodan düşeriz ve kullanabileceğin kadro miktarını veririz kişiler tablosundan iki tane olur biri boş kadroların tutulduğu tablo diğeride dolu kadroların tutulduğu tablo ve yine benim verdiğim kodlarla kişileri doludan boşa çevirisin ve aktar dediğin zaman boşlar tablosuna aktarır ve dolu tablosundan o kişileri siler boşlar tablosundan kişilere hangi kadroya aktaracaksan o kadroları yazarsın sen her kişye kadro yazdıkça dolu tablosundaki o kadroları sayar ve senin yazdıklarınıda üstüne ekler kadro tablosundaki tahsis edilmiş kadro ile karşılaştırı ve senin o kadroya fazla kadro yazmanı engeller ama bütün bunlar benim verdiğim kod ile yapılır birde şunu söyle 330001 nolu kadro tek kişilikmidir yani bu kadroya başka kişi eklenebilirmi

rustutiryaki · 27 Haziran 2007

evet her kadro tek kişiliktir. başkası yazılamaz.

kadroya memuru atayınca başka bir memur atanamaz.

atana bilmesi için o memuru başka bir yere atamak o dolu kadroyu boşalttınca anca başka kişiyi atayabilirsin.

rustutiryaki · 27 Haziran 2007

gulsum1' Alıntı:
tamam sen yinede benim yaptığımı istiyorsun ama bir kadro diye bir tablo yaparsın ve o tabloya sizin kuruma o kadrodan ne kadar tahsis edildiği ve ne kadarının kullanıldığı olur kişiler tablosunda kadro numarası olur ve biz o numaraları saydırarak tahsis edilen kadrodan düşeriz ve kullanabileceğin kadro miktarını veririz kişiler tablosundan iki tane olur biri boş kadroların tutulduğu tablo diğeride dolu kadroların tutulduğu tablo ve yine benim verdiğim kodlarla kişileri doludan boşa çevirisin ve aktar dediğin zaman boşlar tablosuna aktarır ve dolu tablosundan o kişileri siler boşlar tablosundan kişilere hangi kadroya aktaracaksan o kadroları yazarsın sen her kişye kadro yazdıkça dolu tablosundaki o kadroları sayar ve senin yazdıklarınıda üstüne ekler kadro tablosundaki tahsis edilmiş kadro ile karşılaştırı ve senin o kadroya fazla kadro yazmanı engeller ama bütün bunlar benim verdiğim kod ile yapılır birde şunu söyle 330001 nolu kadro tek kişilikmidir yani bu kadroya başka kişi eklenebilirmi

Dediğinizi yapmaya çalıştım ama bu şekilde olmuyor gülsüm hanım ozaman raporlamalarda kopukluk olup hesaplatamıyorum.

tablo 1 de aktif bilgilerde kadro bilgilerine dokunmadan memur bilgilerini Tablo 2 ye aktarmak daha sonrada aktardığımız Tablo 2 den kadro numarasını yazdığımız değer göre sorgulayıp eğer kadro boşsa tablo 1 e atmalı

rustutiryaki · 28 Haziran 2007

Bilgi Aktarmada Değerli Üstadımız Gülsüm1 e yardımların dan dolayı çok teşekkür ediyorum. Bilgi aktarmanın son hali ektedir.