• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Firma Kayıt hakkında..

Z

zafer007

Katılım
7 Eylül 2005
Mesajlar
112
Merhaba değerli arkadaşlar ,

Ben ekteki çalışmayı yaptım. Ancak bir nokta eksik kaldı bu konuda benimle bilgilerinizi paylaşırsanız sevinirim.

BS - ŞUBE ADI - FİRMA ADI - FS - GELİŞ TARİHİ - SEVK TARİHİ - CALISAN - KOD - İŞGÜNÜ (alanlar)

Yukarıdaki alanlar ekteki dosyada devam eden iş listesinde bulunmakta. Ben burda kayıtlı olan kayıtlı işleri, bitince seçip, komut tuşuna basarak biten işlerdeki bu alanlara otomatik olarak aktarmak istiyorum ve, AY (O ay örn: Ocak 07) - ÇIKIŞ TARİHİ alanınada o günün tarihi (27.11.2007 şeklinde)otomatik olarak eklemek istiyorum. Yanlız bu işlemi yaparken devam edenden silip (veya kesip) biten işlere eklemesi (yapıştırması) gerekiyor... Bu konuda yardımlarınızı bekliyorum
 
Son düzenleme:
Ama burası örnek ve bilgiler kısmı, sorular için yan taraf lütfen ;)
 
ADO ile yapabilirsin. Kendi çalışmamda kullandıım kodu aşağıya yazdım. incelersen kendi çalışmanda uygulayabilirsin.



Dim rs As New ADODB.Recordset
rs.Open "TAYİNOLANPERSONEL", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("PERSONELNO") = PERSONEL.Value
rs("ADI") = ADI.Value
rs("SOYADI") = SOYADI.Value
rs("SİCİLİ") = SİCİLİ.Value
rs("RÜTBESİ") = RÜTBESİ.Value
rs("BRANŞI") = BRANŞI.Value
rs("MESGİRTARİHİ") = MESGİRTARİHİ.Value
rs("GELDİĞİTARİH") = GELDİĞİTARİH.Value
rs("TAHSİLDURUMU") = TAHSİLDURUMU.Value
rs("MESLEKİTAHSİLİ") = MESLEKİTAHSİLİ.Value
rs("PERSONELİNRESMİ") = PERSONELİNRESMİ.Value
rs("MEMLEKETADRESİ") = MEMLEKETADRESİ.Value
rs("MEMLEKETTELEFONU") = MEMLEKETTELEFONU.Value
rs("CEPTELEFONU") = CEPTELEFONU.Value
rs("PERSONELİNDURUMU") = PERSONELİNDURUMU.Value
rs("ATANDIĞIİL") = ATANDIĞIİL.Value
rs("ATANMATARİHİ") = ATANMATARİHİ.Value

rs.Update
Set rs = Nothing
Set conn = Nothing



aktarma yapacağın butonun tıklama olayına yazacaksın kodu.
 
Merhabalar,

Yukarıdaki kodu denedim, ancak olmadı başka bilgisi olan varmıdır. Arkadaşlar,
 
ekle ve sil sorgularıyla yapabilirsiniz uygulamayı

kolay gelsin:)
 
---------------------------İLK KOD--------------------------------
Dim strSQLStart As String
Dim strSQLFrom As String
Dim strSQLWhere As String
Dim strSQLOrder As String
Dim strSQL as string
DoCmd.SetWarnings False' bu satır sanırım buraya yazılmalı.....
strSQLStart = "INSERT INTO BITEN_ISLER ( SNO"
strSQLStart = strSQLStart & " , [ŞUBE ADI]"
strSQLStart = strSQLStart & " , [FİRMA ADI]"
strSQLStart = strSQLStart & " , FS"
strSQLStart = strSQLStart & " , [GELİŞ TARİHİ]"
strSQLStart = strSQLStart & " , [SEVK TARİHİ]"
strSQLStart = strSQLStart & " , CALISAN"
strSQLStart = strSQLStart & " , KOD"
strSQLStart = strSQLStart & " , İŞGÜNÜ"
strSQLStart = strSQLStart & " , [NOT] )SELECT DEVAM_EDEN_ISLER.SNO"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.[ŞUBE ADI]"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.[FİRMA ADI]"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.FS"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.[GELİŞ TARİHİ]"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.[SEVK TARİHİ]"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.CALISAN"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.KOD"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.İŞGÜNÜ"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.[NOT]"
strSQLFrom = " From DEVAM_EDEN_ISLER"
strSQLWhere = " Where (((DEVAM_EDEN_ISLER.SNO)=[Formlar]![DEVAM_EDEN_ISLER]![SNO]));"
strSQL = strSQLStart & strSQLFrom & strSQLWhere & strSQLOrder

------------------------İKİNCİ KOD----------------------------------
Dim strSQLStart As String
Dim strSQLFrom As String
Dim strSQLWhere As String
Dim strSQLOrder As String
Dim strSQL as string
DoCmd.SetWarnings False' bu satır sanırım buraya yazılmalı.....
strSQLStart = "DELETE DEVAM_EDEN_ISLER.SNO"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.YNT"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.BS"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.[ŞUBE ADI]"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.[FİRMA ADI]"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.FS"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.[GELİŞ TARİHİ]"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.[SEVK TARİHİ]"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.CALISAN"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.KOD"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.İŞGÜNÜ"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.DURUM"
strSQLStart = strSQLStart & " , DEVAM_EDEN_ISLER.[NOT]"
strSQLFrom = " From DEVAM_EDEN_ISLER"
strSQLWhere = " Where (((DEVAM_EDEN_ISLER.SNO)=[Formlar]![DEVAM_EDEN_ISLER]![SNO]));"
strSQL = strSQLStart & strSQLFrom & strSQLWhere & strSQLOrder

*****************KODLAR BİTTİ***************************

bu kodları aynı butonun click olay yordamına kopyala...
kolay gelsin:)
 
Merhaba;
Ben size basitçe yol göstereyim öncelikle biten işler tablonuzu birebir aynı yapın sonuçta tüm alanları atacaksınız.Alttaki kodda ismi "bitenişler" olarak düşünülmüştür. Çıkış tarihi için ise devam eden işler tablonuza ekleyin ve varsayılan değerini =date() yapın bu alan diğer tabloda da olmalı ve formda isterseniz gizleyin ve düğmenin click koduna alttaki kodu yapıştırın.. Requery ile listenin ve formun yenilenmesini sağlayabilirsiniz form için bir önceki ya da sonraki kayıt kodunu da uygulayabilirsiniz.

Kod: 
DoCmd.RunSQL "insert into [COLOR="Red"]bitenişler[/COLOR] select * from DEVAM_EDEN_ISLER Where DEVAM_EDEN_ISLER.SNO=[Forms]![DEVAM_EDEN_ISLER]![SNO]"

DoCmd.RunSQL "delete  from DEVAM_EDEN_ISLER Where DEVAM_EDEN_ISLER.SNO=[Forms]![DEVAM_EDEN_ISLER]![SNO]"
Hepsi 2 satır ;) Eğer belli alanları alacaksanız insert into deyimini araştırınız..
 
Sayın Zafer07;

Günaydın, iyi pazarlar. Sorunuzun yanıtlarına göre, probleminizi çözmüşseniz. Dosyanın son halini yüklermisiniz?

Teşekkürler.
 
Merhaba Arkadaşlar,

Accessde kayıt üzerinde iken, bir değişlik yapılınca access kendisi otomatik olarak kaydetmekdedir. Bu durumu nasıl engelliyebilirim.
 
iki butonla kaydet ve gerial butonları ile ;)

formun kirlide olay yordamına şöyle yazın iki butonu kastederek yazın
me.kaydet.visible=true
me.iptal.visible=false

****kaydet butonu tıklamasına ise;
me.s_no.setfocus
me.kaydet.visible=false
me.iptal.visible=false
form.refresh
****iptal butonu tıklamasına ise;
me.s_no.setfocus
me.kaydet.visible=false
me.iptal.visible=false
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

biraz uğraşın olur çok basit...


kolay gelsin:)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst