Skip to main content

AccessTr.neT


Etiketler
Yazar: uno2255 - Cevaplar: 3 - İzleme: 1487
Sub_Form
Selamlar
Ekte gönderdiğim dosyada, avanslarla ilgili kayıt yaptığım zaman ilgili kişilere kayıt yapabiliyorum ancak nüfus bilgileri kısmını doldurduğum zaman tek kayıt olarak görüyor, nasıl yapabileceğim konusunda yardımcı olabilirmisiniz?
Teşekkürler
dosyayı 2003 olarak kaydettim.
Bir sorumda ilgili formda meslek kısmı liste olarak gözükmüyor (Ben liste olarak göstermeye çalışmıştım)
ikinci veya üçüncü kayıtta meslek kısmı kayboluyor

İlginize teşekkürler
Yazar: trusa - Cevaplar: 2 - İzleme: 1954
Sub form uzerinde arama yapilmasi
Merhaba değerli arkadaşlar,

Yaklaşık 2 gündür aramama rağmen istediğim sonuca bir türlü ulaşamadım.
Yapılan tüm kayıt aramaları Listbox üzerinden yapılıyor.
Form üzerinde bulunan Subform dan oluşan bir liste var. Bu liste üzerinden comboboxlar aracılığıyla arama yapmaya çalışıyorum fakat bir türlü başarılı olamadım.
Form üzerindeki comboboxtan sonuç olarak "Başarısız" seçildiğinde, 5 ayrı sonuçtan herhangi biri başarısız ise subform üzerinde o satır görünsün..
Diger parametrelerde yaptım
Yazar: abdulkadir1976 - Cevaplar: 3 - İzleme: 2118
main form sub form
S.a
Asset List adlı formu tek başına açtıgımda herşey tamam

Ama
Me!Sub.SourceObject = "Asset List" şeklinde
alt fom olarak kullandıgımda veri sayfa yok veya alt üst form bilgileri görünmüyor

Asset List formunu oldugu gibi nasıl gösterecem birçok ayarı denedim ama olmadı
bu örnek nasıl düzenlemeli yardılarınıza şimdiden teşekkürler

deneme ihale dosyası indir
Yazar: Berkt - Cevaplar: 3 - İzleme: 2516
Sub Form hakkında bir sorum olacaktı.
Merhaba arkadaşlar Access içinde çok çok çok yeniyim.Excelden sonra bu çok zor geldi alışamadım Vba, macrolar vs Img-grin Videolara baka baka bi form oluşturdum. Formdada bi sub form var alt raporlar çıkıyor. Sub formda hücrelerin genişlikleri çok fazla ve kaydırma çubuğu çıkıyor. Bu hücreleri nasıl sabitleyebilrim ? Düzeltiyorum sonrasına ise açıp kapadıktan sonra eski haline dönüyor ve kaydırma çubuğu çıkıyor. Bunu nasıl sabitleyebilrim ?

Cevaplarınız için teşekkür ederim Img-grin
İyi çalışmalar.
[h
Yazar: YuNuSEmReN - Cevaplar: 5 - İzleme: 2571
Private Sub Butonac() Me.TASI.SetFocus Sorunu
forumdan bulduğum bir uygulamayı düzenlemeye çalışıyorum ama aşağıda belirtilen hatayı aldım sabahtır cıkamadım işin içinden 

Private Sub Butonac()

Me.TASI.SetFocus

satırında uyarı alıyorum nasıl gecebilirim
Yazar: sozcan3403 - Cevaplar: 11 - İzleme: 3866
private sub ile başlayan kodlar
merhabalar,

SQL den alınan verileri günlük raporlamam gerekiyor. ve yapmam gereken yenile-filtrele-gönder Img-grin

bunlar için form sitelerinden yardım alarak kodlar düzenledim. yenile ve filtrele için "Sub auto_open()" kodu işe yarıyor.

ancak "Private Sub CommandButton1_Click()" ile başlayan kodlar için aynı şeyi yapamadım.

konu ile ilgili yardımınızı rica ediyorum.

teşekkürler.
Yazar: accessman - Cevaplar: 7 - İzleme: 1129
Komut Düğmesi İle Sınırsız Sub Menü
iyi günler siteden alıp eklediğim örnekte 3 level için yapılmış bir menü örneği var
bunu sınırsız sayıda dallanabilen menü haline nasıl getirebiliriz
[code]SELECT MenuItems.MnsId, MenuItems.MnsDesc, MenuItems.SortKey, MenuItems.ActionType, MenuItems.CodeToRun FROM MenuItems WHERE (((MenuItems.Level)=1)) UNION ALL SELECT MenuItems.MnsId, "    :.....  " & MenuItems.MnsDesc, MenuItems.SortKey, MenuItems.ActionType, MenuItems.CodeToRun FROM MenuItems WHERE (((MenuItems.Level)=2) AND ((MenuItems
Yazar: tarkanaykın - Cevaplar: 9 - İzleme: 1033
İnputbox İçin "sub Or Function Not Defined" Hatası
arkadaşlar, bu hatayı yaşayan yok mu, intin altını üstüne getrdim hiç bir şey bulamadım, yardımcı olur musunuz, inputbox işlevim hata veriyor, her şeyi doğru yazdığıma eminim

Private Sub Form_Current()
Dim a As String



a = İnputBox("lütfen kullanıcı kodunu giriniz")
Kntrlkul = Nz(DLookup("kullanici", "kullanicilar", "kullanici= '" & a & "'"))

If Kntrlkul <> "" Then

MsgBox "kullanıcı adı mevcut"

Me.kullanici = a
Else
DoCmd.RunSQL "INSERT INTO kullanicilar (kullanici) VALUES(
Yazar: HORZUM - Cevaplar: 10 - İzleme: 530
Birden Fazla Private Sub Worksheet_Selectionchange Kullanılması
İYİ GÜNLER ÜSTADLARIM. AŞAĞIDAKİ KODU ÇALIŞTIRAMADIM...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim bul As Range
    Dim trh As Date
    Dim CsutunTarih As Date 
 
  With ThisWorkbook.Sheets("T1")
If (Target.Column = 3 Or Target.Column = 5) And Target.Row >= 1 Then
        If IsDate(Cells(Target.Row, "c")) And Len(Cells(Target.Row, "E") & "") > 0 Then
            SonStn = .Cells(1, .Columns.Count).End(xlToLeft).Column
                    Set bul = .Range("B1:" & .Ce
Task