Hatam Nerede? Artık bunalım geçiriyorum!
Tarih
30/12/2008 11:43
Konu Sahibi
assenucler
Yorumlar
5
Okunma
1905
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



assenucler

Kullanici Avatari
Onursal
A.... S.... Ş....
2.052
31/10/2008
63
İstanbul
-
29/11/2016,00:04
Çözüldü 
Dostlar, herkese günaydın.

Sayın Ayhan2122'nin eklediği aşağıdaki dosyadaki "Form1"'e 2 adet tarih metin kutusu ekledim.

Şablon tabloları seçeneklerini kullanarak "YonetimGelirleri" tablosuna kayıt ekleyemiyorum.

6 saattir, aynı konuda onu yap, bunu boz, kafam karıştı...

Sizden yardım istiyorum.

Teşekkürler.


Ek Dosyalar
.rar   Sor_KayıtEkle1.rar (Dosya Boyutu: 28,29 KB / İndirme Sayısı: 25)
Cevapla


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
YonetimGelirleri_YoneticiSablon_1 tablosundaki son tarihlere uygun tarih aralığını girdiğinde ekleme yapıyor
Cevapla


assenucler

Kullanici Avatari
Onursal
A.... S.... Ş....
2.052
31/10/2008
63
İstanbul
-
29/11/2016,00:04
Çözüldü 
Sayın accesman;

Hatanın etiket kutusu genişliğinin, "ekle" komut kutusunu kaplaması dolayısıyla oluştuğunu farkettim.

İlginiz için teşekkürler.
Cevapla


esrefigit

Kullanici Avatari
Onursal
598
30/10/2008
356
Konya
Ofis 2003
06/11/2015,13:38
Çözüldü 
böyle bir şey için bu kadar sorguya gerek yok sanırım
öncelikle oturanlar tablosunda kişinin dairemi küçük dükkanmı büyük dükkanmı olduğunu belirten bir alan ekleyeceksin

sonra forma bir adet son ödeme tarihi bir adet işlem türünü seçeğin bir açılan kutu birde daire küçük dükkan büyük dükkan seçimi yapacağın açılan kutu birde ödeme miktarı

şimdi önce son ödeme tarihini girdin=15.02.2008 sonra işlem türünü seçtin=Aidat sonra tipi seçtin =küçük dükkan sonra ödeme miktarıonı yazdın=15,62 ve düğmeye tıkladın kutuları kontrol etti boş olan varsa uyardı yoksa

ado kodu
önce oturanlar tablosundan küçük dükkanları ayıracak
sonra bu ayırdığı kayıtları tek tek dolanmaya başlayacak her kayıtta YonetimGelirleri tablosuna oturan adı olarak oturanlar tablsoundaki geldiği kayıttaki id yi sonodemetarihi alanına formdaki yazdığın son ödeme miktarını odeyecegi alnına forma yazdığın ödeme miktarını
IslemTurü alanıaa formdan seçtiğin işlem türünü
Odemetarihi alanını bo ş bırakacak
odedigi alanını boş bırakacak
neyse diğer alanlar boş kalacak
rs1=oturanlar tablsosu
rs=yönetim gelirleri tablosu
ado olarak
rs.addnew
rs("oturanadı")=rs1("oturanid")
rs("işlemtürü)=formdaki işlem türü alanı
bu şekilde oturanlar tablosundan süzülmüş küçük dükakan kayıtlarını dolanarak her kayıtta yönetim gelirleri tablosuna bir kayıt ekler

sanırım anladın

bunun benzeri örnekler kod deposunda var
tık tıkla her şeyi hallet
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla


assenucler

Kullanici Avatari
Onursal
A.... S.... Ş....
2.052
31/10/2008
63
İstanbul
-
29/11/2016,00:04
Çözüldü 
Sayın esrefigit hocam;

Verdiğiniz bilgiler için çok teşekkürler.

Bir etiket genişliğinin komut düğmesine kadar taşması dolayısıyla, 6 saat uğraştım ve çaresiz kaldım ve sitemize yazdım.

İnşaallah şu denetim işlerini bitirdikten sonra, zaman ayırıp ortaya bir şeyler çıkarmaya çalışırım.

Bu arada, yeni yılınızı kutlar; sağlıklı, huzurlu, mutlu, başarılı ve bol kazançlı bir yeni yıl dilerim.

Sevgi ve saygılar.
Cevapla


esrefigit

Kullanici Avatari
Onursal
598
30/10/2008
356
Konya
Ofis 2003
06/11/2015,13:38
Çözüldü 
sanırım sen çözmüşsün lakin ben yinede konuyu açıp cevap vereyim dedim
bu senin sorunun tam çözümü

Private Sub Komut1_Click()
On Error GoTo Err_Komut1_Click
Dim kontrol As Integer
Dim kontrol1 As Integer
kontrol1 = 1
For kontrol = 1 To 4
If IsNull(Me("I" & kontrol).Value) Then
MsgBox Me("I" & kontrol) & "şimdi gideceğiniz alanı boş geçemezseniz", , "UYARI"
Me("I" & kontrol).SetFocus
Exit Sub
End If
Next kontrol
ekle
Exit_Komut1_Click:
Exit Sub

Err_Komut1_Click:
MsgBox Err.Description
Resume Exit_Komut1_Click
End Sub

Function ekle()
Dim msg, Style, Title, Help, Ctxt, Response, MyString
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "UYARI"
Help = "DEMO.HLP"
Ctxt = 1000
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim strsql As String
strsql = "SELECT * From Oturanlar "
strsql = strsql & "WHERE tür Like '" & Me.I1.Column(0) & "' "
rs.Open strsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs1.Open "YonetimGelirleri", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.EOF = True Then
MsgBox "seçtiğiniz türe ait oturanlar tablsounda kayıt yok başka bir tür seçin."
Else
msg = "Seçtiğiniz" & vbCrLf & Me.I1.Column(0) & " Adlı Türden" & vbCrLf & rs.Recor DCount & " " & "Kişiye ekleme yapacaksınız kabul ediyormusunuz"
Response = MsgBox(msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
If rs.EOF <> True Then
Do
rs1.AddNew
rs1("kapino") = rs("OKNo")
rs1("sonodemetarihi") = Me.I3
rs1("odeyecegi") = Me.I2
rs1("IslemTur") = Me.I4.Column(0)
rs1.Update
rs.MoveNext
Loop Until rs.EOF
End If
Set rs1 = Nothing
Set rs = Nothing
Set conn = Nothing
End If
End If
If Response = vbNo Then '
Exit Function
End If
End Function

bu işlemi tersine çevirirsen yönetimgelirleri tablosundaki verileri başka bir tabloya aktararak bu tabloyu siler amma neden böyle bir şeye ihtiyaç duyuyorsun anlamadım bu gelirler yıllık toplanmıyormu zaten bu tabloya son ödeme tarihi diye bir alnda yokmu o alan sana gerekli tüm süzmeleri sağlar yani bunu sil onu al oraya götür gerek yok zaten kişilerin borçlarınıda id sine göre alıyorsun buna birde year(sonödemetarihi) diye bir alan eklersin
oda sana yıllarına göre kayıtları ayırmana yarar
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Formda Ayrı Ayrı veri çağırma nerede hata yapıyorum.... ankaram 2 429 17/11/2015, 19:10 ankaram
Çözüldü modül de nerede hata yapıyorum? afatsum75 1 1.150 07/04/2013, 17:42 afatsum75
Çözüldü İlişki artık rüyama giriyor... mersav 5 1.235 02/01/2013, 21:56 ozguryasin
Çözüldü İNNER JOİN-HATA NEREDE? askubom 3 894 13/12/2012, 03:38 ozanakkaya
Çözüldü Açılan Kutuyu alt forma bağlayamadım. Hatam nerede? assenucler 19 3.860 25/06/2010, 15:50 derer


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya