AccessTr.neT

AccessTr.neT > Microsoft Access > Access Cevaplanmış Soruları > İsimleri Ayırma
Tam Versiyon: İsimleri Ayırma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4

zaferlacin

09/10/2019, 23:18
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

berduş

09/10/2019, 23:31
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?

zaferlacin

09/10/2019, 23:34
(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

berduş

09/10/2019, 23:38
excele nasıl gönderiyorsunuz?
aslında çalışmanızı ekleseniz daha kolay olur, sadece çalışan ilgili formu eklemeniz yeterli.

zaferlacin

09/10/2019, 23:49
(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.

berduş

10/10/2019, 00:34
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
Sayfalar: 1 2 3 4
AccessTr.neT > Microsoft Access > Access Cevaplanmış Soruları > İsimleri Ayırma