Skip to main content

AccessTr.neT


modülde kaydı seçtirmek

modülde kaydı seçtirmek

Çözüldü #1
cümleten iyi akşamlar arkadaşlar.
bir modülüm var ve içinde ilgili kodları yazdıktan sonra sıra ilgili formu açtırıp kritere uygun kaydı bulup o kaydı işaretlemeye gelince;

DoCmd.OpenForm "frm1" 'ilgili formu açıyor
rs.FindFirst criteria 'kriteri uyguluyor
Me.Bookmark = rs.Bookmark 'kritere uyan kaydı işaretliyor

Me üzerinde Compile error Invalid use of Me keyword şeklinde hata veriyor.burda kaydı işaretlemesi için hangi kelimeyi kullanmalıyız?

çalışmamda modül, birden fazla sorgu,tablo ve formla birlikte çalışıp çok karmaşık olduğundan sadece ilgili kısmı ekledim.
Cevapla
Çözüldü #2
belki krıteri bulamıyordur kriter uymuyordur,yani tarih alanı,metin alanı gibi alanları kontrol etmelisin,,istersen tamamını ekle bakılsın,bu şekilde birşeyler söylemekte zor
Cevapla
Çözüldü #3
(17/03/2010, 21:13)fox35 yazdı: DoCmd.OpenForm "frm1" 'ilgili formu açıyor
rs.FindFirst criteria 'kriteri uyguluyor
Me.Bookmark = rs.Bookmark 'kritere uyan kaydı işaretliyor
Kod:
Private Sub Komut1_Click()
On Error GoTo Err_Komut1_Click
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm1"
    stLinkCriteria = "[SNO]=" & "'" & Me![SNO] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Komut1_Click:
    Exit Sub
Err_Komut1_Click:
    MsgBox Err.Description
    Resume Exit_Komut1_Click
End Sub

Buradaki SNO alanları kriter olarak belirleyeceğiniz verileriniz olmalıdır. Siz bu hususu gözden kaçırmışsınız sanırım.
Cevapla
Çözüldü #4
sayın C*E*L*O*Y*C*E ilginize teşekkür ederim.bahsettiğim modülü daha önce eklemiştim mükerrer kaydı engellemek için alternatif olarak.tekrar ekliyorum çalışmayı.gerçekleştirmeye çalıştığım olay;
bu örnekte ürün kodunu güncelleyince daha önce aynı üründen varsa modül sayesinde bulup frm1 formunu açıp o form üzerinde önceki kaydı işaretlemesi.aslında işin büyük kısmı oluyor daha önce aynı üründen varsa kaç numara ile kaydedildiğini msgbox ile bildirip ardından frm1 ide açıyor ancak frm1 de o kaydı göstermiyor sadece frm1 i açtığıyla kalıyor.diyeceksinizki modülede gerek yok mükerrer kayıt yapıldığında anaformda bulup gösterir.evet forma yazılacak kodla mükerrer kayıt engellendiği gibi önceki kaydıda aynı form üzerinde gösterebiliriz ancak ben bu modülü mükerrer kayıt için kullanmıyorum bu sadece bir örnek benim gerçek çalışmamda modül kullanıp ayrı bir formu(bu örnekteki frm1 gibi) açtırıp orda önceki kaydı göstermeliyim.buda modüle yazılacak ekleme ile olabilir.umarım açıklayabilmişimdir.
ek burda
.zip fox_35.zip (Dosya Boyutu: 36,44 KB | İndirme Sayısı: 13)
Son Düzenleme: 18/03/2010, 00:59, Düzenleyen: fox35.
Cevapla
Çözüldü #5
tam anlayamadım ne yapmak istediğini,buna benzer kod bulursam tekrar buraya eklerim........
Dim rs As Object
DoCmd.OpenForm "MÜŞTERİLİSTESİ"
Set rs = Forms!MÜŞTERİLİSTESİ.recordset.Clone
rs.FindFirst "[ADISOYADI]=" & "'" & Me![ADISOYADI] & "'"
If Not rs.EOF Then Forms!MÜŞTERİLİSTESİ.Bookmark = rs.Bookmark
DoCmd.Close acForm, Me.Name

bunları bir dene........
Cevapla
Çözüldü #6
Sayın CELOYCE; biraz uzun anlattım kısacası gönderdiğim ekteki uygulamadaki modüle yapılacak ilave ile açılıştaki formda, ürün kodunu girince daha önce aynı ürün koduyla kayıt yapılmışsa frm1 i açıp o kaydı frm1 de göstermesi.
zaten uygulamada aynı ürün koduyla önceden kayıt varsa hem uyarıyor hemde frm1 i açıyor ancak frm1 de önceki kaydı göstermiyor.Img-cray
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da