سوال: ثبت خروج در برنامه ورود و خروج [بایگانی]

sandavood

چهارشنبه 01 مهر 1388, 05:46 صبح

sandavood

پنج شنبه 02 مهر 1388, 15:11 عصر

با سلام خدمت دوستان
من یک فرم طراحی کردم که بپیوست میباشد. در این فرم که یک برنامه برای ثبت ورود و خروج نیروهای یک شرکت میباشد، در این فرم کاربر هنگام ورود به محل کار با درج یک کد در قسمت فرم ، کد کاربر- تاریخ ورود- زمان ورود درج میشود. کاربر هنگام خروج نیز مجدد کد خود را وارد میکند، چه دستوراتی بنویسیم که وقتی کد خروج توسط کاربر وارد شد، که زمان خروج کاربرد در قسمت خروج ثبت شود. از راهنماییتون ممنونم.
- در ضمن الان برای برنامه فوق یک دستوراتی نوشتم ولی کار نمیکند. دستورات را در ذیل کپی میکنم. خواهش میکنم، تصحیح آن را برایم بنویسید. چون من با access زیاد کار نکردم ممنون میشم اگه راهنمایی کنید.
Option Compare Database
Option Explicit
Sub mySub()
Dim vorodkhorog As Database
Dim dbs As DAO.Database
Dim data1 As Hyperlink
Dim dataT As TableDefs
Dim dataD As TableDefs
Dim Str
Dim Cod As Form_Form1
Str = "select * from table2 where nowdate=dataD"
If data1.Recordset.FindFirst("data1='cod'") Then
data1.Recordset.moveEOF
Else
data1.Recordset.AddNew
End If
End Sub