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