AccessTr.neT

Tam Versiyon: Formdan Çıkıldığında Metin Kutularını Temizlenmesi Hk. Yardım
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4
sayın sadooo,

aşağıdaki açıklamaların yapılması uygun görülmüştür.

1)

konu başlığınızdaki talebinize yönelik olarak;
gerek bir fonksiyon içerisinde veya direkt olarak formun KAPATILDIĞINDA ya da KALDIRILDIĞINDA olay yordamı içerisine olmak sureti ile içeriğinin temizlenmesini istediğiniz her bir metin denetimi için tek tek

Me.metin_denetimi1=""
Me.metin_denetimi2=""

v.s.gibi kodlarını yazarak ve gerekse de çoklu metin denetimi üzerinden tüm metin denetimlerini temizleyebilirsiniz.site arama sayfasında "temizleme" ya da "textbox temizleme" benzeri ifadeleri aratmak sureti ile edineceğiniz çeşitli içeriklerdeki konuları ve örneklerini inceleyebilirsiniz.

2)

Alıntı:##silindi ## tarzı bi yazı geliyor text boxa

konunuzun 3.mesajında belirttiğiniz yukarıda yazılı ifadenize yönelik olarak;

bir kayıt silme işlemi uygulandığında form üzerindeki denetimlerde bu ifadenin yer almaması için,kayıt silme işleminden sonra formun GÜNCELLENMESİNİ (REQUERY) sağlayacak olan


Me.Requery

kod satırını da dahil etmelisiniz ki,kayıt silme işleminden sonra formu güncellemek sureti ile bu ifadenin çıkmaksızın formun güncel ve düzenli olmasını elde edebilesiniz.

3)

aslında,bir bakıma uygun olabilecek işlem olarak;

DoCmd.GoToRecord , , acNewRec

yukarıdaki kod satırını sayın biberli33'ün de belirttikleri gibi (bu arada,kendilerine konulara katılımlarından ve paylaşımlarından dolayı teşekkürler),

ilgili formun YÜKLENDİĞİNDE olay yordamı içerisine bu kod satırını yazmak sureti ile,denetim temizleme kodlarına gerek kalmaksızın da çözüm elde edebilirsiniz.bilginize...iyi çalışmalar,saygılar.
üstadlar yardımlarınız için çok teşekkür ediyorum. insert komutu ile formdan veri eklemeye karar verdim.  bu şekilde kullanıcılar bir birlerinin verilerini göremiyorlar. Ancak bu kezde başka bir duvara tosladım. sorun şöyle. insert kodu ile mektup birleştir kodunu birleştirdim Şöyle oldu;


Private Sub Komut4_Click()
CurrentDb.Execute "insert into Tablo2 (ad,soyad,tc)" _
 & " select  '" & Me.ad & "' , '" & Me.soyad & "','" & Me.tc & "'"
 Dim oApp As Object
Set oApp = CreateObject("Word.Application")


    Dim oMainDoc As Word.Document
    Dim oSel As Word.Selection
   
 Dim sDBPath As String

    Set oMainDoc = oApp.Documents.Open("C:\Users\savaş\Desktop\1.doc")
    oApp.Visible = True

    With oMainDoc.MailMerge

        .MainDocumentType = wdCatalog

        sDBPath = "C:\Users\savaş\Desktop\insert.accdb"
        .OpenDataSource Name:=sDBPath, _
           SQLStatement:="SELECT * FROM [Tablo2]"

    End With

    With oMainDoc
        .MailMerge.Destination = wdSendToNewDocument
        .MailMerge.Execute
    End With

    oApp.Activate
    oApp.Documents.Parent.Visible = True
    oApp.Application.WindowState = 1
    oApp.ActiveWindow.WindowState = 1
    oMainDoc.Close
  
Set oApp = Nothing

End Sub



buraya kadar normal evrak hazır oluyor. ancak başka kullanıcı da aynı işlemi uygulayınca tabloda ikinci bir satır oluşuyor. ikinci insert işlemi nedeniyle. üçüncü kullanıcıda aynı işlemi yapınca 3. satır oluşuyor. dolayısıyla 3 tane ayrı evrak oluşturuluyor.



 DoCmd.SetWarnings False
DoCmd.RunSQL "delete * from Tablo2"
DoCmd.SetWarnings True


Bu kodu ilk kodun sonuna yazınca da mektup birleştirme olmadan veriler siliniyor ek te ki resim gibi oluyor.

[Resim: dP9NZp.png]
[Resim: brPEMm.png]
[Resim: X0Z3q5.png]
üstadlar şimdi bir kaç şey geliyor aklıma 

1. İnsert komutunu tablonun sadece birinci satırına ekleme yapacak şekilde düzenleyebilir miyiz. silmeye gerek kalmaz böylece.
2. silme kodunu mektup birleştirme olayından sonraki bir sıraya ekleyebilirmiyiz.
Örnek uygulamanızın son halini ve word belgesini ekleyiniz.
herkeze yardımları için çok teşekkür ederim sorun çözüldü.. İnsert yoluyla
sayın sadooo,

konunuzun 14.mesajında yazılı olan kodlarınız üzerinden geçerli olmak sureti ile,sadece bilgilendirme olması amacı ile aşağıdaki açıklamaların yapılması uygun görülmüştür.

farklı kullanıcılardan bahsettiğinize göre,bu kullanıcıların her birinin verilerinin ilgili tabloda ayrı şekilde belirgin olması gerekmektedir.dolayısı ile de,tabloda bir kullanıcı alanı eklemelisiniz ki kim ne kayıt yapmış ve gerektiğinde hangi kullanıcının kayıtlarının silinmesi isteniyorsa bu işlemin sağlıklı şekilde gerçekleştirilmesi de sağlanabilsin.

bu nedenle,tablonuza bir de kullanıcı_adi benzeri bir ifade ile alan eklemelisiniz.bu kullanıcı adının bilgisini de ENVIRON kodunun kullanımı ile elde edebilirsiniz.site arama sayfasında bu koda dair konuları bu ifadeyi yazmak sureti ile araştırıp edinebilirsiniz.

kayıt silme işlemi için de,eğer yazdığınız kod gibi kullanacak olursanız tüm kayıtları silmiş olursunuz.dahil edeceğiniz kullanıcı adını kriter olarak kullanmak sureti ile daha kullanışlı olarak ilgili tablodan istenilen kayıtların silinmesini de sağlayabilirsiniz.

ÖRNEK KAYIT SİLME KOD KALIBI

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM tablo_adi WHERE kullanici_adi='" & kullanici_adinin_form_uzerinde_yeralacagi_denetimin_adi & "'"
DoCmd.SetWarnings True

yukarıda yazılı benzeri bir kod kalıbı ile bu kayıt silme işlemini gerçekleştirebilirsiniz.elbette tercih ve takdir sizindir.bilginize...iyi çalışmalar,saygılar.
Sayfalar: 1 2 3 4