logichwa.blogg.se

Me.TxtECRelation_PMR.Value = Me.LstDatabase_PMR.List(Me.LstDatabase_PMR.ListIndex, 17) Me.TxtERContName_PMR.Value = Me.LstDatabase_PMR.List(Me.LstDatabase_PMR.ListIndex, 16) Me.TxtEmail_PMR.Value = Me.LstDatabase_PMR.List(Me.LstDatabase_PMR.ListIndex, 15) Me.TxtMobilePh_PMR.Value = Me.LstDatabase_PMR.List(Me.LstDatabase_PMR.ListIndex, 14) Me.TxtWorkPh_PMR.Value = Me.LstDatabase_PMR.List(Me.LstDatabase_PMR.ListIndex, 13) Me.TxtPostalAdd_PMR.Value = Me.LstDatabase_PMR.List(Me.LstDatabase_PMR.ListIndex, 12) Me.TxtHomeAdd_PMR.Value = Me.LstDatabase_PMR.List(Me.LstDatabase_PMR.ListIndex, 11) Me.TxtCoB_PMR.Value = Me.LstDatabase_PMR.List(Me.LstDatabase_PMR.ListIndex, 10) Me.TxtOccupation_PMR.Value = Me.LstDatabase_PMR.List(Me.LstDatabase_PMR.ListIndex, 9) Me.CmbMaritalStatus_PMR.Value = Me.LstDatabase_PMR.List(Me.LstDatabase_PMR.ListIndex, 8) SGender = Me.LstDatabase_PMR.List(Me.LstDatabase_PMR.ListIndex, 7) Me.TxtDOB_PMR.Value = Me.LstDatabase_PMR.List(Me.LstDatabase_PMR.ListIndex, 6) Me.TxtSurname_PMR.Value = Me.LstDatabase_PMR.List(Me.LstDatabase_PMR.ListIndex, 5) Me.TxtMiddle_PMR.Value = Me.LstDatabase_PMR.List(Me.LstDatabase_PMR.ListIndex, 4) Me.TxtFirstName_PMR.Value = Me.LstDatabase_PMR.List(Me.LstDatabase_PMR.ListIndex, 3) Me.TxtTitle_PMR.Value = Me.LstDatabase_PMR.List(Me.LstDatabase_PMR.ListIndex, 2) Me.TxtDate_PMR.Value = Me.LstDatabase_PMR.List(Me.LstDatabase_PMR.ListIndex, 1) Me.TxtRowNumber_PMR.Value = Selected_List + 1 ‘Code to update the value to respective controls MsgBox “No Row is Selected.”, vbOKOnly + vbInformation, “Edit” When I inactivate the codes with the apostrophe, the code well but of-course with out the possibility of editing the sections I’d like to edit. I’m creating a data register and keep on getting ‘run-time error’ with the ‘edit’ button VBA code.īelow is the code. It has helped me do some things I never imagine I could do with excel. ShDatabase.Range(“C10:AA9999″ & iDatabaseRow).AutoFilter Field:=iColumn, Criteria1:=”*” & sValue & “*” ‘Change, if number of columns change ShDatabase.Range(“C10:AA9999” & iDatabaseRow).AutoFilter Field:=iColumn, Criteria1:=sValue ‘Change, if number of columns change IColumn = (sColumn, shDatabase.Range(“C10:AA”), 0) ‘Change, if number of columns change IDatabaseRow = ThisWorkbook.Sheets(“Database”).Range(“A” & ).End(xlUp).Row Set shSearchData = ThisWorkbook.Sheets(“SearchData”) Set shDatabase = ThisWorkbook.Sheets(“Database”) Dim shDatabase As Worksheet ‘ Database sheetĭim shSearchData As Worksheet ‘SearchData sheetĭim iColumn As Integer ‘hold selected column # in Database sheetĭim iDatabaseRow As Long ‘Store the last non-blank row # available in Database sheetĭim iSearchRow As Long ‘hold the last non-blank row # avaialbe in SearchData sheetĭim sColumn As String ‘store column selectionĭim sValue As String ‘hold search text value