اخي في الله انا اسمي احمد بارك الله فيك ولكن يظهر نفس الخطا تظهر رساله مكتوب فيها داله slecet , وما اريده هو عرض محتويات الجول في رساله
اخي في الله جعفر ممكن تكتب توضح لكل ما يخص كل سطر في الكود بارك الله فيك
Private Sub Command0_Click()
Dim Connection As New ADODB.Connection
Dim ResultSet As New ADODB.Recordset
Dim SelectStatement As String
Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\ rr.mdb"'
Connection.Open
Set ResultSet.ActiveConnection = Connection
SelectStatement = "SELECT emplyee .* " & _
"FROM emplyee " & _
"WHERE satff_name _as LIKE '"
MsgBox SelectStatement
End Sub
hh.zip
الي كل استاذ فاضل اريد تعلم لغه vba في الاكسس ومملت كثير من قراه الكتب النظريه
فمن عند الوت لتعلمي لو مقدار يومين في الاسبوع من اي دوله فهناك برامج لمشاركه الشاه عبر الانترنت ستسهل ععلي ان اتعلم صوت وصوره ايضا
وجزاكم الله خير الجزاء