Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

İsimleri Ayırma

zaferlacin
zaferlacin
Access Cevaplanmış Soruları
20
2955

İsimleri Ayırma

#13
zaferlacin
Aktif Üye
zaferlacin
Bul
Aktif Üye
Adı Soyadı: Za.... La....
Yaşı: 56
Konum: Balıkesir
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 28/11/2022,23:34
Yorumları: 182
Konuları: 46
Kayıt Tarihi: 11/08/2013
Teşekkür Puanı: 0
Mesleğiniz: Emekli
Metin kutusu fazla koyamıyorum 
hem bilgi verenlerin hemde bilgi alanların
isim - tc- tel nolar var 
3 bilgi veren 3 bilgi alan olsa 18  adet  gizad diye metin kutusu koymam gerekiyor
ikinci form aslında bir Excel çıktısı
excel de bir hücreye yazdıracağım
o yüzden metin kutusu kullanmadan yapmaya çalışıyorum
Cevapla
#14
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,01:02
Yorumları: 8.478
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
doğru anlamış mıyım:
herhangi bir metin kutusuna girdiğimiz değeri "-" tire işaretine göre parçalara aktarıp excele mi yollamak istiyorsunuz?
Cevapla
#15
zaferlacin
Aktif Üye
zaferlacin
Bul
Aktif Üye
Adı Soyadı: Za.... La....
Yaşı: 56
Konum: Balıkesir
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 28/11/2022,23:34
Yorumları: 182
Konuları: 46
Kayıt Tarihi: 11/08/2013
Teşekkür Puanı: 0
Mesleğiniz: Emekli
(09/10/2019, 23:31)berduş yazdı: doğru anlamış mıyım:
herhangi bir metin kutusuna girdiğimiz değeri "-" tire işaretine göre parçalara aktarıp excele mi yollamak istiyorsunuz?
evet ama bunun yanında excele gönderdiğim aynı formda diğer metin kutuları da var
isimler
tc ler
tel nolar
adresler
vs
gibi 40 küsur metin kutusu
yani raporlamayı Excel ile yapmaya çalışıyorum
Cevapla
#16
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,01:02
Yorumları: 8.478
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
excele nasıl gönderiyorsunuz?
aslında çalışmanızı ekleseniz daha kolay olur, sadece çalışan ilgili formu eklemeniz yeterli.
Cevapla
#17
zaferlacin
Aktif Üye
zaferlacin
Bul
Aktif Üye
Adı Soyadı: Za.... La....
Yaşı: 56
Konum: Balıkesir
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 28/11/2022,23:34
Yorumları: 182
Konuları: 46
Kayıt Tarihi: 11/08/2013
Teşekkür Puanı: 0
Mesleğiniz: Emekli
(09/10/2019, 23:38)berduş yazdı: excele nasıl gönderiyorsunuz?
aslında çalışmanızı ekleseniz daha kolay olur, sadece çalışan ilgili formu eklemeniz yeterli.
.rar deneme.rar (Dosya Boyutu: 73,69 KB | İndirme Sayısı: 3)
Cevapla
#18
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,01:02
Yorumları: 8.478
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
Kod:
Private Sub Komut75_Click()
Dim MetBol() As String
DoCmd.OpenForm "form2"
Form_Form2.Metin1 = ""
Form_Form2.Metin2 = ""
Form_Form2.Metin3 = ""

Form_Form2.Metin92 = ""
Form_Form2.Metin93 = ""
Form_Form2.Metin94 = ""

Form_Form2.Metin95 = ""
Form_Form2.Metin96 = ""
Form_Form2.Metin97 = ""

ReDim MetBol(2)
MetBol = Split(Me.Metin1, "-")
For x = LBound(MetBol) To UBound(MetBol)

If x = 0 Then Form_Form2.Metin1 = MetBol(x)
If x = 1 Then Form_Form2.Metin92 = MetBol(x)
If x = 2 Then Form_Form2.Metin95 = MetBol(x)
Next x

ReDim MetBol(2)
MetBol = Split(Me.Metin2, "-")

For x = LBound(MetBol) To UBound(MetBol)

If x = 0 Then Form_Form2.Metin2 = MetBol(x)
If x = 1 Then Form_Form2.Metin93 = MetBol(x)
If x = 2 Then Form_Form2.Metin96 = MetBol(x)

Next x

ReDim MetBol(2)
MetBol = Split(Me.Metin3, "-")
For x = LBound(MetBol) To UBound(MetBol)

If x = 0 Then Form_Form2.Metin3 = MetBol(x)
If x = 1 Then Form_Form2.Metin94 = MetBol(x)
If x = 2 Then Form_Form2.Metin97 = MetBol(x)
Next x

End Sub
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task