Skip to main content

AccessTr.neT

Kayıt Ol

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

Alt formdaki kayıtları formda ilgili kayıtla etikette göstermek

danke
danke
Access Cevaplanmış Soruları
7
4284

Alt formdaki kayıtları formda ilgili kayıtla etikette göstermek

Çözüldü #4
Bilgisayarcı
Atçalı
Bilgisayarcı
Bul
Aktif Üye
Adı Soyadı:
Konum: Antalya
Ofis Versiyonu: Ofis 2003
Son Oturumu: 22/04/2019,15:45
Yorumları: 658
Konuları: 34
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 410
Kod:
Private Sub Kontrol()
Dim rs As Recordset
Dim s As String
On Error Resume Next

If Me.NewRecord Then
  Me.Etiket13.Caption = "Yeni Kayıt"
  Exit Sub
End If

Set rs = Me.Bilgisayarci.Form.RecordsetClone
rs.MoveFirst

If rs.RecordCount = 0 Then
  Me.Etiket13.Caption = "Kayit Yok"
Else
  While Not rs.EOF
    s = s & Nz(rs("sehiri"), "-") & ","
    rs.MoveNext
  Wend
  s = Left(s, Len(s) - 1)
  Me.Etiket13.Caption = "Kayitta " & s & " var..."
End If
Bunu da form_current de çağırmak yeterli olacaktır.
Örnek ekte. ( Sadece altform adını bilgisayarci yaptım )
Projeye devam etmeden önce Yapmamanız gereken ölümcül hataları okumalısınız.
Yaptıktan sonra aklıma geldi. Keşke Kontrol'u fonksiyon yapıp string değer geriye gönderseydim.
Böylece me.etiket13( ya da ne isiim verecekseniz).caption= kontrol olurdu....

Neyse Img-grin
.rar Alfotru üst forma yazdırmak.rar (Dosya Boyutu: 17,77 KB | İndirme Sayısı: 56)
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Son Düzenleme: 15/08/2009, 01:47, Düzenleyen: Bilgisayarcı.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Alt formdaki kayıtları formda ilgili kayıtla etikette göstermek - Yazar: Bilgisayarcı - 15/08/2009, 01:41
Task