Etiketler
|
|
|
Yazar: uno2255 - Cevaplar: 3 - İzleme: 1503
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: 1963
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
|
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: 2529
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 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
İyi çalışmalar.
[h
|
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
|
private sub ile başlayan kodlar
|
merhabalar,
SQL den alınan verileri günlük raporlamam gerekiyor. ve yapmam gereken yenile-filtrele-gönder
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.
|
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
|
İ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: 548
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
|