Arkadaslar iki sorum olacak:
1.) Asagidaki koda (kirmizi ile belirttim) 9 Tane daha TextBox eklemem lazim, 27. TextBox tan sonra TextBox ekleyemiyorum, nasil devam edebilirim.
2.) Kodlari yan yana siraladim cok uzun oldu. Kodun Herhangi bir yerinden ayirmak istiyorum nasil yapmam lazim. Örnegin TextBox5 ten sonrasini , TextBox15 ten sonrasini, TextBox25 ten…… sonrasini ayirmak istiyorum.
Slm
Kaleci
1.) Asagidaki koda (kirmizi ile belirttim) 9 Tane daha TextBox eklemem lazim, 27. TextBox tan sonra TextBox ekleyemiyorum, nasil devam edebilirim.
2.) Kodlari yan yana siraladim cok uzun oldu. Kodun Herhangi bir yerinden ayirmak istiyorum nasil yapmam lazim. Örnegin TextBox5 ten sonrasini , TextBox15 ten sonrasini, TextBox25 ten…… sonrasini ayirmak istiyorum.
Kod:
[FONT=Calibri][FONT=Calibri]Private Sub CommandButton2_Click()[/FONT]
[FONT=Calibri]Dim rs As New ADODB.Recordset[/FONT]
[FONT=Calibri]If ListBox1.ListIndex < 0 Then[/FONT]
[FONT=Calibri] MsgBox "Bir degisiklik yapabilmek için Listeden bir seçim yapmalisiniz.", vbCritical, "UYARI"[/FONT]
[FONT=Calibri] Exit Sub[/FONT]
[FONT=Calibri]End If[/FONT]
[FONT=Calibri]Set rs = New ADODB.Recordset[/FONT]
[FONT=Calibri][COLOR=red]Set rs = conn.Execute("UPDATE Tablo1 set Ad='" & TextBox1.Text & "', Sehir ='" & TextBox2.Text & "',PLZ ='" & TextBox3.Text & "',CTC ='" & TextBox4.Text & "',FT ='" & TextBox5.Text & "',KFZV1 ='" & TextBox6.Text & "',H1 ='" & TextBox7.Text & "',Firma ='" & TextBox8.Text & "',Adresse1 ='" & TextBox9.Text & "',Branche ='" & TextBox10.Text & "',NameVorname1 ='" & TextBox11.Text & "',Geburtsdatum1 ='" & TextBox12.Text & "',Nation1 ='" & TextBox13.Text & "',Adresse2 ='" & TextBox14.Text & "',Ausweisnr1 ='" & TextBox15.Text & "',NameVorname2 ='" & TextBox16.Text & "',Geburtsdatum2 ='" & TextBox17.Text & "',Nation2 ='" & TextBox18.Text & "',Adresse3 ='" & TextBox19.Text & "',Ausweisnr2 ='" & TextBox20.Text & "',NameVorname3 ='" & TextBox21.Text & "',Geburtsdatum3 ='" & TextBox22.Text & "',Nation3 ='" & TextBox23.Text & "',Adresse4 ='" & TextBox24.Text & "',Ausweisnr3 ='" & TextBox25.Text & "',NurZumBeUndEntladen ='" & TextBox26.Text & "',Versand='" & TextBox27.Text & "' Where ID = " & CDbl(ListBox1.Column(0)))[/COLOR][/FONT]
[FONT=Calibri]Call listele[/FONT]
[FONT=Calibri]MsgBox "Kayit Degistirildi.", vbOKOnly, "EVREN"[/FONT]
[FONT=Calibri]Set rs = Nothing[/FONT]
[FONT=Calibri]End Sub[/FONT]
[/FONT]Slm
Kaleci