Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

modülde kaydı seçtirmek

fox35
fox35
Access Cevaplanmış Soruları
11
4080

modülde kaydı seçtirmek

Çözüldü #1
fox35
Hesap Aktif Değil
fox35
Bul
Aktivasyon Bekleyen
Adı Soyadı:
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 26/07/2015,23:08
Yorumları: 120
Konuları: 25
Kayıt Tarihi: 30/04/2009
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
C*e*l*o*y*c*e
Uzman
C*e*l*o*y*c*e
Bul
Uzman
Adı Soyadı: Ce.... Ya....
Konum: Ankara
Ofis Versiyonu: Ofis 2010 32 Bit
Yorumları: 3.591
Konuları: 78
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.047
Mesleğiniz: Yazılım
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
ercansahin
BlackEagle
ercansahin
Bul
Uzman
Adı Soyadı: Er.... ŞA....
Yaşı: 50
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 01/11/2024,00:00
Yorumları: 3.764
Konuları: 69
Kayıt Tarihi: 14/11/2008
Teşekkür Puanı: 1.089
(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
fox35
Hesap Aktif Değil
fox35
Bul
Aktivasyon Bekleyen
Adı Soyadı:
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 26/07/2015,23:08
Yorumları: 120
Konuları: 25
Kayıt Tarihi: 30/04/2009
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
C*e*l*o*y*c*e
Uzman
C*e*l*o*y*c*e
Bul
Uzman
Adı Soyadı: Ce.... Ya....
Konum: Ankara
Ofis Versiyonu: Ofis 2010 32 Bit
Yorumları: 3.591
Konuları: 78
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.047
Mesleğiniz: Yazılım
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
fox35
Hesap Aktif Değil
fox35
Bul
Aktivasyon Bekleyen
Adı Soyadı:
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 26/07/2015,23:08
Yorumları: 120
Konuları: 25
Kayıt Tarihi: 30/04/2009
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
Task