Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Hatami Bana soylermisin?

Hatami Bana soylermisin?
MuazTurkyilmaz
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 17.09.2010
Toplam 56 konu açtı.
Toplam 430 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 EN, Office 2016 EN,
Beğeniler: 0 / 0
#1
01-10-2010, 12:31
Asagidaki code da hata nedir? atama islemini yapmiyor
mesajda calismiyor

Public Function BelgeCHAtama(frm As Form)
Dim FormAdi As String
FormAdi = frm.Name
If MsgBox("Cari Hesap Kartlari Ayni degil, Eger Dedisiklikleri kaydetmek Istemiyorsaniz Iptal tusuna Basiniz", vbYesNo) = vbYes Then

FormAdi.[CariHesapNoAra] = FormAdi.[BelgeNoListe].[Column](8)
FormAdi.[CariHesapNoListe] = FormAdi.[BelgeNoListe].[Column](9)
FormAdi.[CariHesapNo] = FormAdi.[BelgeNoListe].[Column](0)
FormAdi.[KHesapNo] = FormAdi.[BelgeNoListe].[Column](4)
FormAdi.[KAHesapNo] = FormAdi.[BelgeNoListe].[Column](5)
FormAdi.[KDHesapNo] = FormAdi.[BelgeNoListe].[Column](6)
FormAdi.[CariHesapNoListe2] = FormAdi.[BelgeNoListe].[Column](9)
FormAdi.[CariHesapNo2] = FormAdi.[BelgeNoListe].[Column](0)
FormAdi.[CariHesapNo2] = FormAdi.[BelgeNoListe].[Column](0)

End Function



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
Taruz
Forum Yöneticisi

*
Kayıt Tarihi: 04.03.2008
Toplam 371 konu açtı.
Toplam 7.540 yorum yaptı.
Toplam 236 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 55 / 56
#2
01-10-2010, 13:14
Merhaba..

Teknik olarak bu şekilde olmalı..:

Visual Basic
  1. Public Function BelgeCHAtama(frm As Form)
  2. Dim FormAdi As String
  3. FormAdi = frm.Name
  4. If MsgBox("Cari Hesap Kartlari Ayni degil," _
  5. & " Eger Dedisiklikleri kaydetmek Istemiyorsaniz Iptal tusuna Basiniz", vbYesNo) = vbYes Then
  6.  
  7.  
  8. Forms(FormAdi).CariHesapNoAra = Forms(FormAdi).BelgeNoListe.Column(8)
  9. Forms(FormAdi).CariHesapNoAra = Forms(FormAdi).BelgeNoListe.Column(8)
  10. Forms(FormAdi).CariHesapNoListe = Forms(FormAdi).BelgeNoListe.Column(9)
  11. Forms(FormAdi).CariHesapNo = Forms(FormAdi).BelgeNoListe.Column(0)
  12. Forms(FormAdi).KHesapNo = Forms(FormAdi).BelgeNoListe.Column(4)
  13. Forms(FormAdi).KAHesapNo = Forms(FormAdi).BelgeNoListe.Column(5)
  14. Forms(FormAdi).KDHesapNo = Forms(FormAdi).BelgeNoListe.Column(6)
  15. Forms(FormAdi).CariHesapNoListe2 = Forms(FormAdi).BelgeNoListe.Column(9)
  16. Forms(FormAdi).CariHesapNo2 = Forms(FormAdi).BelgeNoListe.Column(0)
  17. Forms(FormAdi).CariHesapNo2 = Forms(FormAdi).BelgeNoListe.Column(0)
  18. End If
  19. End Function



Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
Kaptan Hector Barbossa


SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular

Sorulara nasıl doğru düzgün cevap verilir



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
MuazTurkyilmaz
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 17.09.2010
Toplam 56 konu açtı.
Toplam 430 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 EN, Office 2016 EN,
Beğeniler: 0 / 0
#3
01-10-2010, 15:05
Bu codlama altformda olursa degisirmi



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
Taruz
Forum Yöneticisi

*
Kayıt Tarihi: 04.03.2008
Toplam 371 konu açtı.
Toplam 7.540 yorum yaptı.
Toplam 236 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 55 / 56
#4
01-10-2010, 15:18
Evet değişecektir..
Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
Kaptan Hector Barbossa


SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular

Sorulara nasıl doğru düzgün cevap verilir



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
MuazTurkyilmaz
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 17.09.2010
Toplam 56 konu açtı.
Toplam 430 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 EN, Office 2016 EN,
Beğeniler: 0 / 0
#5
01-10-2010, 15:38
bu konu diger konuyla birlesiyor artik burdada alt form kolonu olursa nasil olur
Asagidaki sekli ile dogru olurmu


Forms![Acc01Hareket01]![Detaylar].SourceObject = "01FisEdit0001"
Forms![Acc01Hareket01]![Tarih] = Forms![SysFilitre]![Tariho]
Forms![Acc01Hareket01]![Detaylar].[Form].[Kimlik].ColumnHidden = True
Forms![Acc01Hareket01]![Detaylar].[Form].[FisNo].ColumnHidden = False
Forms![Acc01Hareket01]![Detaylar].[Form].[BelgeNo].ColumnHidden = False
Forms![Acc01Hareket01]![Detaylar].[Form].[Attachment].ColumnHidden = False
Forms![Acc01Hareket01]![Detaylar].[Form].[MMK].ColumnHidden = False
Forms![Acc01Hareket01]![Detaylar].[Form].[TakipNo].ColumnHidden = False
Forms![Acc01Hareket01]![Detaylar].[Form].[EkleTarih].ColumnHidden = False
Forms![Acc01Hareket01]![Detaylar].[Form].[KayitTarih].ColumnHidden = False
Forms![Acc01Hareket01]![Detaylar].[Form].[DegTarih].ColumnHidden = False
Forms![Acc01Hareket01]![Detaylar].[Form].[KontrolTarih].ColumnHidden = False
Forms![Acc01Hareket01]![Detaylar].[Form].[OnayTarih].ColumnHidden = False
Forms![Acc01Hareket01]![Detaylar].[Form].[IslemTarih].ColumnHidden = True



  Website   Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] MERHABA ARKADAŞLAR BEN YENİYİM ACSQL TABLO KONUSUNDA . BANA YARDIMCI OLABİLİRMİSİNİZ. aslanmax 1 1.664 01-03-2016, 13:56
Son Mesaj: devilspath
  ilişkeldirme ve formlar hakkında bana yardımcı olabilirmisinizz???? umitcekirdek 1 1.232 14-03-2015, 02:42
Son Mesaj: dsezgin
  [TABLO] merhaba bana basit bi program lazım cigdem karar 1 1.100 18-09-2014, 16:13
Son Mesaj: mesut58580
  market programı yapmam gerekiyor bunun için bana yardımcı olabilir misiniz Umutsuz 11 8.460 19-12-2013, 16:49
Son Mesaj: krallar350350
  [TABLO] Ustalarım Bana yardım Lütfen edremitlierkan 11 3.370 01-08-2013, 13:59
Son Mesaj: edremitlierkan
  [TABLO] Bana yardım edebilecek biri var mı emre1659 1 1.546 08-06-2013, 13:38
Son Mesaj: onur_can
access-sql-9 bana yardım edin lütfen fikribüyük 2 1.178 15-03-2013, 14:42
Son Mesaj: efeksk
  arkadaslar acil bana cevap verebilecek var mı ? büsrayargıcı 8 2.893 25-12-2012, 23:52
Son Mesaj: büsrayargıcı

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):