شباب انا زعلان

السلام عليكم

الله يبعد الزعل

وش موضوغك ؟

و قبل كل هذا ارجو ان تجد العزر للاخرين

:)

مشكور ياخوي

لكن اعمل بحث باسمي homicro

رايح تلاقي الموضوع لاني ما حطيت الا هذا الموضوع بس

Private Sub C1_Click()

DataReport2.Caption = "f1"

Dim strUserName As String

strUserName = cboName.Text

Dim SQL As String

Dim RS As New ADODB.Recordset

SQL = "SELECT * FROM الجدول WHERE F1 = '" & strUserName & "' "

Set RS = Cn.Execute(SQL)

DataReport2.Caption = RS("f1")

Set DataReport2.DataSource = RS

DataReport2.Sections("section4").Controls("Label1").Caption = RS("f1")

DataReport2.Sections("section4").Controls("Label2").Caption = RS("f2")

DataReport2.Sections("section4").Controls("Label3").Caption = RS("f3")

DataReport2.Sections("section4").Controls("Label4").Caption = RS("f4")

DataReport2.Sections("section4").Controls("Label5").Caption = RS("f5")

DataReport2.Sections("section4").Controls("Label6").Caption = RS("f6")

DataReport2.Sections("section4").Controls("Label7").Caption = RS("f7")

DataReport2.Sections("section4").Controls("Label8").Caption = RS("f8")

DataReport2.Sections("section4").Controls("Label9").Caption = RS("f9")

DataReport2.Sections("section4").Controls("Label10").Caption = RS("f10")

DataReport2.Sections("section4").Controls("Label11").Caption = RS("f11")

DataReport2.Sections("section4").Controls("Label12").Caption = RS("f12")

DataReport2.Sections("section4").Controls("Label13").Caption = RS("f13")

DataReport2.Sections("section4").Controls("Label14").Caption = RS("f14")

DataReport2.Sections("section4").Controls("Label15").Caption = RS("f15")

DataReport2.Sections("section4").Controls("Label16").Caption = Format(RS("f16"), "yyyy/mm/dd")

DataReport2.Sections("section4").Controls("Label17").Caption = RS("f17")

DataReport2.Sections("section4").Controls("Label18").Caption = RS("f18")

DataReport2.Sections("section4").Controls("Label19").Caption = RS("f19")

DataReport2.Sections("section4").Controls("Label20").Caption = RS("f20")

DataReport2.Sections("section4").Controls("Label21").Caption = RS("f21")

DataReport2.Sections("section4").Controls("Label43").Caption = RS("f22")

DataReport2.Sections("section4").Controls("Label44").Caption = RS("f23")

DataReport2.Show 1

End Sub

الحقول f1......