Skip to main content

AccessTr.neT


İki farklı sayfaya kayıt yapmak

İki farklı sayfaya kayıt yapmak

Çözüldü #1
Merhaba arkadaşlar Ekli dosyamda; 

*Verileri TextBoxlara girip kaydet butonunu tıkladığım zaman veri sayfasına kayıt yapıyor aynı zamanda Fatura sayfasındaki Müşteri adı ve soyadı , adresi vergi dairesi ve nosun kısmına da aktarsın.

* UserFormdakı müşteri bul TextBox su ile ListBox tan bulup TextBoxlara aldığımız müşteriyi fatura butonuna tıkladığımız zaman faturadaki Müşteri adı ve soyadı , adresi vergi dairesi ve nosun kısmına aktarsın ve fatura sayfasına gitsin.

Yardımlarınızı bekliyorum teşekkürler.

.rar ÖRNEK.rar (Dosya Boyutu: 132,53 KB | İndirme Sayısı: 17)
Son Düzenleme: 12/04/2015, 17:04, Düzenleyen: kenan827.
Cevapla
#2
Arkadaşlar sorunumu çözdüm.
Cevapla
#3
sayın kenan827,

öncelikle,sorununuzu çözmeniz sizin adınıza iyi bir gelişmedir.

fakat eğer siz de takdir eder ya da tercih ederseniz,
elde ettiğiniz çözümünüzü konunuzda gerek bilgi ve gerekse de örneğinizin çözülmüş olarak son şeklini içeren halini ekleyerek paylaşmak sureti ile,benzer soruna dair araştırma yapacak üyelerin incelemelerine,bilgi edinmelerine ve çözüme yönelik örneği görmelerine de imkan sağlamış olursunuz.bilginize.

iyi çalışmalar,
saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#4
Hocam Fatura butonuna aşağıdaki kodları ekleyerek sorunumu hal ettim. İlk etapta oldu sonradan aktarılacak hücreleri değiştirdiğim zaman hata vermeye başladı şu anda aktarma yapmıyor. Hata veriyor. Aktarma hatasının düzeltilmesi için sizlerden yardım bekliyorum.

.rar Örnek.rar (Dosya Boyutu: 138,78 KB | İndirme Sayısı: 8)


Hata Veren Kodlar

Private Sub CommandButton33_Click()

Sheets("Fatura").Range("h4").Value = ComboBox1.Value
Sheets("Fatura").Range("h5").Value = TextBox3.Value
Sheets("Fatura").Range("h6").Value = TextBox4.Value
Range("N5").NumberFormat = "dd.mm.yyyy"
Range("N6").NumberFormat = "hh:mm:ss"
Sheets("Fatura").Range("n5").Value = CDate(TextBox8.Value) 'Tarih
Sheets("Fatura").Range("n6").Value = TextBox9.Value 'Saat

If ComboBox1.Value = "" Then
MsgBox ("Adı Soyadını Boş Geçemessiniz")
Exit Sub
End If
If TextBox3.Value = "" Then
MsgBox ("Adresi Boş Geçemessiniz")
Exit Sub
End If
If TextBox4.Value = "" Then
MsgBox ("Vergi Dairesi ve Nosunu Boş Geçemessiniz")
Exit Sub
End If
If TextBox8.Value = "" Then
MsgBox ("Tarihi Boş Geçemessiniz")
Exit Sub
End If

If TextBox9.Value = "" Then
MsgBox ("Saatı Boş Geçemessiniz")
Exit Sub
End If

TextBox8.Value = Format(Now(), "dd.mm.yyyy")
TextBox9.Value = Format(Now(), "hh:mm;@")


ComboBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
UserForm_Initialize

UserForm1.Hide
Sheets("Fatura").Select

End Sub
Cevapla
#5
sayın kenan827,


bahsettiğiniz talebinize yönelik olarak,çözüme dair aşağıdaki bilgilerin yeterli olduğu görülmüştür.

eklediğiniz hali ile kodlarınız dahil edildiğinde edinilen ilk incelemede elde edilen hata,
Userform üzerinde Tarih ve Saat bilgileri için kullanılmak istenen Textbox 8 ve Textbox 9 denetimlerinin olmadığı için,
denetim bulunamadığı uyarısı söz konusudur.

yapılması gereken iki işlem var.ya Userform üzerine bu adlarda iki denetim eklemelisiniz.ki,öncelikle bu hatayı vermesin diye.
ya da ekte yer alan kod ifadelerini mevcut olan ile değiştirerek kullanmalısınız.ki,bu hata verme sorun giderilebilsin.

Kod:
Private Sub CommandButton33_Click()
Sheets("Fatura").Range("h4").Value = ComboBox1.Value
Sheets("Fatura").Range("h5").Value = TextBox3.Value
Sheets("Fatura").Range("I6").Value = TextBox4.Value
Range("N5").NumberFormat = "dd.mm.yyyy"
Range("N6").NumberFormat = "hh:mm:ss"
'Sheets("Fatura").Range("n5").Value = CDate(TextBox8.Value) 'Tarih
'Sheets("Fatura").Range("n6").Value = TextBox9.Value 'Saat
Sheets("Fatura").Range("n5").Value = Format(Date, "dd.mm.yyyy")
Sheets("Fatura").Range("n6").Value = Format(Now, "hh:mm:ss")

If ComboBox1.Value = "" Then
MsgBox ("Adı Soyadını Boş Geçemessiniz")
Exit Sub
End If
If TextBox3.Value = "" Then
MsgBox ("Adresi Boş Geçemessiniz")
Exit Sub
End If
If TextBox4.Value = "" Then
MsgBox ("Vergi Dairesi ve Nosunu Boş Geçemessiniz")
Exit Sub
End If
'If TextBox8.Value = "" Then
'MsgBox ("Tarihi Boş Geçemessiniz")
'Exit Sub
'End If
'
'If TextBox9.Value = "" Then
'MsgBox ("Saatı Boş Geçemessiniz")
'Exit Sub
'End If
'
'TextBox8.Value = Format(Now(), "dd.mm.yyyy")
'TextBox9.Value = Format(Now(), "hh:mm;@")


ComboBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
UserForm_Initialize

UserForm1.Hide
Sheets("Fatura").Select
End Sub

yapılan paylaşım,sadece,bu bulduğunuz çözüm üzerinden bahsi geçilerek sunulmuştur.zaman ve imkan olmadığından dolayı ilk etapta yapılan incelemelerde görülen hususlar bunlardır.bilginize.

iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#6
(14/04/2015, 11:26)atoz112 yazdı: hata,
Userform üzerinde Tarih ve Saat bilgileri için kullanılmak istenen Textbox 8 ve Textbox 9 denetimlerinin olmadığı için,denetim bulunamadığı uyarısı söz konusudur.

ya Userform üzerine bu adlarda iki denetim eklemelisiniz.ki,öncelikle bu hatayı vermesin diye.ya da ekte yer alan kod ifadelerini mevcut olan ile değiştirerek kullanmalısınız.ki,bu hata verme sorun giderilebilsin.
...

Hocam kodları sizin eklediğiniz kodlarla değiştirdim. Ekteki resimdeki hatayı veriyor. Tarih ve saat kodlarını tamamen sildim. Yine aynı hatayı veriyor.

[Resim: do.php?img=4808]
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task