Reply to thread

Message: <blockquote data-quote="opishan" data-source="post: 12972452" data-attributes="member: 48155">Syntax Error Mama Correct kara.... Private Sub cmdAdd_Click()Dim iRow As LongDim ws As WorksheetSet ws = Worksheets("Sheet1")'find first empty row in databaseiRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1'check for emp NameIf Trim(Me.txtname.Value) = "" ThenMe.txtname.SetFocusMsgBox "Please enter EMP Name"Exit SubEnd If'copy the data to the databasews.Cells(iRow, 1).Value = Me.txtname.Valuews.Cells(iRow, 2).Value = Me.txtid.Valuews.Cells(iRow, 3).Value = IIf(Val(Mid(Me.txtid.Value, 3, 3)) > 500, "Female", "Male")ws.Cells(iRow, 4).Value = Left(Me.txtid.Value, 2) + 1900ws.Cells(iRow, 5).Value = IIf(Val(Mid(Me.txtid.Value, 3, 3)) > 500, Val(Mid(Me.txtid.Value, 3, 3)) - 500, Val(Mid(Me.txtid.Value, 3, 3)))'clear the dataMe.txtname.Value = ""Me.txtid.Value = ""Me.txtname.SetFocusEnd SubPrivate Sub cmdExit_Click()x = MsgBox("Are you sure you want to exit", vbYesNo, "Sure")If x = vbYes ThenUnload MeEnd IfEnd Sub Any Way nice Code........Thanks......</blockquote>

Top Bottom