Recent content by free2000000

Private Sub ÃãÑ32_Click() Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("....") If rs.RecordCount > 0 Then rs.MoveFirst Do Until rs.EOF ' do stuff If MsgBox("åá ÊÑíÏ ÊÓÌíá Úãá äÞÇÈÉ" & vbCrLf & "", vbYesNo, "ÊÍÏíË") = vbYes Then Dim db As Database Dim rss As Recordset...

hello evry body how are you? I hope you ara fine and have a great time. I have this code in Button in a form based in runtime table access 2003 ---------------------------------------------------------- Dim khaher As Object Set khaher = CurrentDb.OpenRecordset("Employment") With khaher If...