Skip to main content

AccessTr.neT


Sub Form hakkında bir sorum olacaktı.

Berkt
Berkt
3
2356

Sub Form hakkında bir sorum olacaktı.

#1
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.

Konuyu açtıktan sonra hallettim Img-grin) alanları dondur varmış yeni gördüm onu onu yapınca düzeldi. Silebilirsiniz konuyu.

İyi çalışmalar
Son Düzenleme: 11/09/2014, 06:59, Düzenleyen: Berkt.
Cevapla
#2
Visual Basic Code
Option Compare Database

Private Sub KatDuzenle_Click()

    If Not (Me.SubKategori.Form.Recordset.EOF And Me.SubKategori.Form.Recordset.BOF) Then
        With Me.SubKategori.Form.Recordset
        Me.IDKategorif = .Fields("IDKategori")
        Me.Kategorif = .Fields("Kategori")
        Me.Kesintif = .Fields("Kesinti")
        Me.IDKategorif.Tag = .Fields("IDKategori")
        Me.KatEkle.Caption = "Güncelle"
        Me.KatDuzenle.Enabled = False
        End With
    End If
End Sub

Private Sub KatEkle_Click()
    If Me.IDKategorif.Tag & "" = "" Then
    
    CurrentDb.Execute "INSERT INTO Kategori(IDKategori, Kategori, Kesinti) " & _
            " VALUES(" & Me.IDKategorif & ",'" & Me.Kategorif & "','" & Me.Kesintif & "')"
    Else
    CurrentDb.Execute "UPDATE Kategori " & _
        "Set IDKategori=" & Me.IDKategorif & _
        ", Kategori='" & Me.Kategorif & "'" & _
        ", Kesinti='" & Me.Kesintif & "'" & _
        " Where IDKategori='" & Me.IDKategorif.Tag & "'"
    End If
    Me.SubKategori.Form.Requery
    KatTemizle_Click
        
End Sub

Private Sub katkapat_Click()
    DoCmd.Close
End Sub

Private Sub KatSil_Click()
       If Not (Me.SubKategori.Form.Recordset.EOF And Me.SubKategori.Form.Recordset.BOF) Then
        If MsgBox("Bu Kategoriyi Silmek istiyormusun?", vbYesNo) = vbYes Then
            CurrentDb.Execute "DELETE From Kategori " & _
                " WHERE IDKategori='" & Me.SubKategori.Form.Recordset.Fields("IDKategori") & "'"
                Me.SubKategori.Form.Requery
        End If
       End If

End Sub

Private Sub KatTemizle_Click()
    Me.IDKategorif = ""
    Me.Kategorif = ""
    Me.Kesintif = ""
    Me.IDKategorif.SetFocus
    Me.KatDuzenle.Enabled = True
    Me.KatEkle.Caption = "Ekle   "
    Me.IDKategorif.Tag = ""
    
End Sub

Birde şu kodlar ile düzenle, yeni kayıt temizle kapat komutlarını kullandım ancak ekle dedikten sonra veriyi giriyor ve sonrasına boş bir tane daha veri giriyor. Sıkıntı nerede bakabilir misiniz ?

Ve her yeni kayıt yaptığımda ID Numarayı formda nasıl otomatik yaparım ?

Teşekkür ederim
İyi çalışmalar
Son Düzenleme: 11/09/2014, 07:09, Düzenleyen: Berkt.
Cevapla
#3
Örnek uygulamanızı ekleyiniz. Konularınızı Site Kurallarına uygun olarak açınız. İyi çalışmalar.

Site Kuralları
1c) Birden fazla soruyu aynı konuda sormayınız. Her soru için farklı başlıklı yeni konu açınız.
6-) Açacağınız konunun başlığına "Şunu Yapamıyorum", "Şurasını Yapamadım", "bu mümkün müdür?", "acil yardım", lütfen yardım", "bana yol gösterin", "bir bakar mısınız" vb. şeklinde yazılmamalı, soru/konunuzu kısaca özetleyecek şekilde olmalıdır.
Konu başlığınız "Stok Takip" yerine "Açılan Kutu Sorunu" şeklinde olmalıdır. Bu kurala uymayan konular çöp kutusuna taşınır.
Cevapla
#4
Konu çöp kutusuna taşınmıştır.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da