+- AccessTr.neT (https://accesstr.net)
+-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html)
+--- Forum: Çöp Kutusu (https://accesstr.net/forum-cop-kutusu.html)
+--- Konu Başlığı: Sub Form hakkında bir sorum olacaktı. (/konu-sub-form-hakkinda-bir-sorum-olacakti.html)
Sub Form hakkında bir sorum olacaktı. - Berkt - 11/09/2014
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.
Konuyu açtıktan sonra hallettim
) alanları dondur varmış yeni gördüm onu onu yapınca düzeldi. Silebilirsiniz konuyu. İyi çalışmalar
Cvp: Sub Form hakkında bir sorum olacaktı. - Berkt - 11/09/2014
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
Cvp: Sub Form hakkında bir sorum olacaktı. - ozanakkaya - 12/09/2014
Ö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.
Cvp: Sub Form hakkında bir sorum olacaktı. - ozanakkaya - 13/11/2014
Konu çöp kutusuna taşınmıştır.