Userform Edit Record and GoTo record Command Buttons

**139runner** · 06-05-2014, 01:10 PM

I have created a Userform in Excel and have never used Visual Basic before but through the help of these forums, not doing too bad.
Issue 1) When writing the data to my worksheet for CheckBox info it is stored in the worksheet as true or false. I would prefer it to store as the checkbox title. My checkboxes are for weather and I would rather fog, snow, rain, etc be stored as opposed to true or false.
Issue 2) I have code for making sure a value is numeric to store phone numbers but you have to enter 1112222 without a hyphen is there a better way to do this or should I remove the numeric requirement.
Issue 3) Now I need some code for a Goto Record and and Edit record Command Button.
Any help would be appreciated. I will upload exisiting code.
Issue 4) Any formatting suggestions for 24 hour clock time format, I took out what I had as it stalled every time I ran it.

**Tinbendr** · 06-05-2014, 01:38 PM

I'm not sure what you uploaded, but it wasn't a worksheet.

**139runner** · 06-05-2014, 02:19 PM

Well that didn't work very well. Here is the code

Dim currentrow As Long

Private Sub ComboBoxAge_Change()

End Sub

Private Sub ComboBoxcomplainttype_Change()

End Sub

Private Sub ComboBoxDistrict_Change()

End Sub

Private Sub CommandButton1_Click()
frmComplaint.PrintForm
End Sub

Private Sub CommandButton2_Click()

End Sub

Private Sub CommandButton3_Click()

End Sub

Private Sub CommandButtonClose_Click()
Unload Me
End Sub

Private Sub CommandButtonEditadd_Click()
Dim emptyRow As Long

If UserForm1.TextBox1.Value <> "" Then
flag = False
i = 0
ID = UserForm1.TextBox1.Value
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

Do While Cells(i + 1, 1).Value <> ""

If Cells(i + 1, 1).Value = ID Then
flag = True
For j = 2 To 3
Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value
Next j
End If

i = i + 1

Loop

If flag = False Then
For j = 1 To 3
Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value
Next j
End If

End If

End Sub

Private Sub CommandButtonNew_Click()
Call Userform_Initialize
End Sub
Private Sub CommandButtonSave_Click()
Dim RowCount As Long
Dim ctl As Control
'Check user input
If Me.ComboBoxDistrict.Value = "" Then
MsgBox "Please choose a District Number!", vbExclamation, "Complaint Data"
Me.ComboBoxDistrict.SetFocus
Exit Sub
End If
If Me.txtcallerName.Value = "" Then
MsgBox "Please enter a Name for the Complaint or Anonymous!", vbExclamation, "Complaint Data"
Me.txtcallerName.SetFocus
Exit Sub
End If
If Me.txtreferenceNo.Value = "" Then
MsgBox "Please enter a reference number!", vbExclamation, "Complaint Data"
Me.txtreferenceNo.SetFocus
Exit Sub
End If
If Me.txtCallerPhoneNo.Value = "" Then
MsgBox "Please enter a Caller's phone number as xxx-xxxx!", vbExclamation, "Complaint Data"
Me.txtCallerPhoneNo.SetFocus
Exit Sub
End If
If Not IsNumeric(Me.txtCallerPhoneNo.Value) Then
MsgBox "This field must contain a number entered as 111-1111!", vbExclamation, "Complaint Data"
Me.txtCallerPhoneNo.SetFocus
Exit Sub
End If
If Me.txtCallerAddress.Value = "" Then
MsgBox "Please enter a Caller address or NA!", vbExclamation, "Complaint Data"
Me.txtCallerAddress.SetFocus
Exit Sub
End If
If Me.txtdate.Value = "" Then
MsgBox "Please enter a date as MM/DD/YYyY!", vbExclamation, "Complaint Data"
Me.txtdate.SetFocus
Exit Sub
End If
If Not IsDate(Me.txtdate.Value) Then
MsgBox "The date box must contain a date", vbExclamation, "Complaint Data"
Me.txtdate.SetFocus
Exit Sub
End If
If Me.txtTime.Value = "" Then
MsgBox "Please enter a time in 24 hour format xx:xx!", vbExclamation, "Complaint Data"
Me.txtTime.SetFocus
Exit Sub
End If
If Me.ComboBoxCompalintTakenBy.Value = "" Then
MsgBox "Please select who took the complaint!", vbExclamation, "Complaint Data"
Me.ComboBoxCompalintTakenBy.SetFocus
Exit Sub
End If
If Me.ComboBoxComplaintAssignedTo.Value = "" Then
MsgBox "Please select who was assigned the complaint!", vbExclamation, "Complaint Data"
Me.ComboBoxComplaintAssignedTo.SetFocus
Exit Sub
End If
If Me.ComboBoxRisk.Value = "" Then
MsgBox "Please select level of risk!", vbExclamation, "Complaint Data"
Me.ComboBoxRisk.SetFocus
Exit Sub
End If
If Me.txtComplaintDetails.Value = "" Then
MsgBox "Please enter complaint details!", vbExclamation, "Complaint Data"
Me.txtComplaintDetails.SetFocus
Exit Sub
End If
If Me.txtActionTaken.Value = "" Then
MsgBox "Please enter action taken!", vbExclamation, "Complaint Data"
Me.txtActionTaken.SetFocus
Exit Sub
End If
If Not IsDate(Me.txtActionDate.Value) Then
MsgBox "The Date box must contain a date as MM/DD/YYYY!", vbExclamation, "Complaint Data"
Me.txtActionDate.SetFocus
Exit Sub
End If
'Write data to worksheet
RowCount = Worksheets("Complaint Data").Range("A1").CurrentRegion.Rows.Count
With Worksheets("Complaint Data").Range("A1")
.Offset(RowCount, 0).Value = Me.ComboBoxDistrict.Value
.Offset(RowCount, 1).Value = Me.txtreferenceNo.Value
.Offset(RowCount, 2).Value = Me.txtcallerName.Value
.Offset(RowCount, 3).Value = Me.txtCallerPhoneNo.Value
.Offset(RowCount, 4).Value = Me.txtCallerAddress.Value
.Offset(RowCount, 5).Value = DateValue(Me.txtdate.Value)
.Offset(RowCount, 6).Value = Me.txtTime.Value
.Offset(RowCount, 7).Value = Me.ComboBoxCompalintTakenBy.Value
.Offset(RowCount, 8).Value = Me.ComboBoxComplaintAssignedTo.Value
.Offset(RowCount, 9).Value = Me.ComboBoxcomplainttype.Value
.Offset(RowCount, 10).Value = Me.ComboBoxRisk.Value
.Offset(RowCount, 11).Value = Me.CheckBoxSun.Value
.Offset(RowCount, 12).Value = Me.CheckBoxFog.Value
.Offset(RowCount, 13).Value = Me.CheckBoxRain.Value
.Offset(RowCount, 14).Value = Me.CheckBoxSnow.Value
.Offset(RowCount, 15).Value = Me.CheckBoxSleet.Value
.Offset(RowCount, 16).Value = Me.txtComplaintDetails.Value
.Offset(RowCount, 17).Value = Me.ComboBoxSpecies.Value
.Offset(RowCount, 18).Value = Me.ComboBoxSex.Value
.Offset(RowCount, 19).Value = Me.ComboBoxAge.Value
.Offset(RowCount, 20).Value = Me.ComboBoxCondition.Value
.Offset(RowCount, 21).Value = Me.ComboBoxPolice.Value
.Offset(RowCount, 22).Value = Me.txtActionTaken.Value
.Offset(RowCount, 23).Value = DateValue(Me.txtActionDate.Value)
.Offset(RowCount, 24).Value = Me.txtActionTime.Value
.Offset(RowCount, 25).Value = Me.Txtgps.Value
.Offset(RowCount, 26).Value = Format(Now, "mm/dd/yyyy hh:nn")
End With
'Clear the form
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Or TypeName(ctl) = "CheckBox" Then
ctl.Value = ""
ElseIf TypeName(ctl) = "Checkbox" Then
ctl.Value = False
End If
Next ctl
End Sub

**Tinbendr** · 06-05-2014, 02:44 PM

Question #1 You can handle that like this.

Please Login or Register  to view this content.

Question#2

Please Login or Register  to view this content.

This strips the dashes to do the test.

Question#3
What I do is to store the row number in Column 2 of the combobox when I pull the record from the sheet. Then, no matter where the item ends up in the combobox list, I can just get the value from Column 2 and write back to the same row I got it from. I notice in your code, there is none for loading the combobox, which means you probably use rowsource. We'll have to rewrite that to accomplish what I'm talking about.

If you care to upload a sample worksheet with a userform, I can demonstrate.

Question 4
This is a pretty good site for that.

**139runner** · 06-05-2014, 04:08 PM

Thanks so much Issue 1 and 2 resolved. Will work on number 3 and 4. Love this site!
S

**139runner** · 06-09-2014, 07:37 AM

I can't seem to find where to upload a file anymore.

**139runner** · 06-09-2014, 07:45 AM

Okay I have uploaded the files you requested. it has incorporate the fixes you suggested for issue 1 and 2. I'd have to say I'm flummoxed on item #3. I did add some test code for Search Command but it doesn't work it just gives me adecimal #. Ultimately I want to SEARCH for a record by record number that will be assigned sequentially. SHOW the record data in the userform. Add to or EDIT existing record and overwrite the previous record. I have a bunch of command buttoms on my userform; only the ones colored gray work. Not sure I will keep the previous and next buttons if I can Search and go to a specific record.
Thanks.

**Tinbendr** · 06-09-2014, 09:21 AM

Is 'Record Number' and Sheet Complaint Data, Column B the same?

The action buttons are all over the place. Do you mid if I change those around a bit?

Is the Reference number unique across all districts?

How you generate this ref#?

I would change Ref# to a Combobox. Place Ref# at the top. Then you can just pick the ref# from th e list (or start typing and autocomplete.)

**139runner** · 06-09-2014, 11:01 AM

Originally Posted by Tinbendr

Is 'Record Number' and Sheet Complaint Data, Column B the same? No that is a reference # that the end user will create and it is really bizarre (made up of district and region # as well as date and time) they'll never use it but I put it in because they asked. It is possible that the number could end up giving duplicate results. I think for the purposes of identifying specific records I should create a unique, sequential number that is auto-generated, no more complex then 1,2,3... Just haven't figured it out yet. I've made a place for it in column AB but nothing coded yet. This number should be displayed only not editable. [/COLOR]

The action buttons are all over the place. Do you mid if I change those around a bit? Not at all I have been just throwing them in as commands to try. The gray color ones have been coded successfully.

Is the Reference number unique across all districts? if a complaint comes in at the same date and time it is possible to get duplication.With 24 districts this is possible.

How you generate this ref#? user generated

I would change Ref# to a Combobox. Place Ref# at the top. Then you can just pick the ref# from th e list (or start typing and autocomplete.)

Not possible the Ref #, the end user intends to create it.

**139runner** · 06-11-2014, 01:17 PM

Did my responses make any sense?

**Tinbendr** · 06-11-2014, 01:36 PM

3) Now I need some code for a Goto Record and and Edit record Command Button.

OK explain how you would like to edit a record? Fill the userform with the current row? Pick from a list? Scroll one by one from the top with command buttons?

**139runner** · 06-11-2014, 03:47 PM

The users will enter preliminary data and will then need to go back to finish the rest . This userform will be used to log complaints received, then another person will assign the complaint for action, and the person assigned the complaint must call up the complaint # and record what action was taken.

**Tinbendr** · 06-12-2014, 08:46 AM

So, for your search command button.

Please Login or Register  to view this content.

**139runner** · 06-12-2014, 02:09 PM

Wow that was a lot of work for you. You did a searchable database with all parameters . Again Wow. More then I needed but my endusers will love it. Worked pretty good after a few modifications. Only problem is date shows up in data as a decimal # in both date instances. I have started a new database and userform that is much cleaner and stripped out a lot of code I was testing that didn't work. Also got rid of the reference # field entirely. Made the user interface much tidier with frames. So now that I have you code working in the old database got to try and make it work in the new one. Is it possible now that I am calling up a record to overwrite or add to the existing data and resave? Thanks so so much. Awesome! Susan

**Tinbendr** · 06-12-2014, 02:29 PM

We just have to store the row number where we found the search. I like to store temporary things in the workbooks properties fields.

So, at the end of the search, just before the exit sub.

Please Login or Register  to view this content.

Then, in the Save event,

Please Login or Register  to view this content.

**139runner** · 06-13-2014, 07:12 AM

I still can't edit existing data. Did I place the code correctly? Also still getting date as a decimal when search results are returned.

CODE
Private Sub CommandButtonSave_Click()
Dim RowCount As Long
Dim ctl As Control
'Check user input
If Me.ComboBoxDistrict.Value = "" Then
MsgBox "Please choose a District Number!", vbExclamation, "Complaint Data"
Me.ComboBoxDistrict.SetFocus
Exit Sub
End If
If Me.txtcallerName.Value = "" Then
MsgBox "Please enter a Name for the Complaint or Anonymous!", vbExclamation, "Complaint Data"
Me.txtcallerName.SetFocus
Exit Sub
End If
If Me.txtreferenceNo.Value = "" Then
MsgBox "Please enter a reference number!", vbExclamation, "Complaint Data"
Me.txtreferenceNo.SetFocus
Exit Sub
End If
If Me.txtCallerPhoneNo.Value = "" Then
MsgBox "Please enter a Caller's phone number using a hyphen!", vbExclamation, "Complaint Data"
Me.txtCallerPhoneNo.SetFocus
Exit Sub
End If
If Not IsNumeric(Replace(Me.txtCallerPhoneNo.Value, "-", "")) Then
MsgBox "This field must contain a number entered as 111-1111!", vbExclamation, "Complaint Data"
Me.txtCallerPhoneNo.SetFocus
Exit Sub
End If
If Me.txtCallerAddress.Value = "" Then
MsgBox "Please enter a Caller address or NA!", vbExclamation, "Complaint Data"
Me.txtCallerAddress.SetFocus
Exit Sub
End If
If Me.txtdate.Value = "" Then
MsgBox "Please enter a date as MM/DD/YYyY!", vbExclamation, "Complaint Data"
Me.txtdate.SetFocus
Exit Sub
End If
If Not IsDate(Me.txtdate.Value) Then
MsgBox "The date box must contain a date", vbExclamation, "Complaint Data"
Me.txtdate.SetFocus
Exit Sub
End If
If Me.txtTime.Value = "" Then
MsgBox "Please enter a time in 24 hour format xx:xx!", vbExclamation, "Complaint Data"
Me.txtTime.SetFocus
Exit Sub
End If
If Me.ComboBoxCompalintTakenBy.Value = "" Then
MsgBox "Please select who took the complaint!", vbExclamation, "Complaint Data"
Me.ComboBoxCompalintTakenBy.SetFocus
Exit Sub
End If
If Me.ComboBoxComplaintAssignedTo.Value = "" Then
MsgBox "Please select who was assigned the complaint!", vbExclamation, "Complaint Data"
Me.ComboBoxComplaintAssignedTo.SetFocus
Exit Sub
End If
If Me.ComboBoxRisk.Value = "" Then
MsgBox "Please select level of risk!", vbExclamation, "Complaint Data"
Me.ComboBoxRisk.SetFocus
Exit Sub
End If
If Me.txtComplaintDetails.Value = "" Then
MsgBox "Please enter complaint details!", vbExclamation, "Complaint Data"
Me.txtComplaintDetails.SetFocus
Exit Sub
End If
If Not IsDate(Me.txtActionDate.Value) Then
MsgBox "The Date box must contain a date as MM/DD/YYYY!", vbExclamation, "Complaint Data"
Me.txtActionDate.SetFocus
Exit Sub
End If
'Write data to worksheet
RowCount = Worksheets("Complaint Data").Range("A1").CurrentRegion.Rows.Count
With Worksheets("Complaint Data").Range("A1")
.Offset(RowCount, 0).Value = Me.ComboBoxDistrict.Value
.Offset(RowCount, 1).Value = Me.txtreferenceNo.Value
.Offset(RowCount, 2).Value = Me.txtcallerName.Value
.Offset(RowCount, 3).Value = Me.txtCallerPhoneNo.Value
.Offset(RowCount, 4).Value = Me.txtCallerAddress.Value
.Offset(RowCount, 5).Value = DateValue(Me.txtdate.Value)
.Offset(RowCount, 6).Value = Me.txtTime.Value
.Offset(RowCount, 7).Value = Me.ComboBoxCompalintTakenBy.Value
.Offset(RowCount, 8).Value = Me.ComboBoxComplaintAssignedTo.Value
.Offset(RowCount, 9).Value = Me.ComboBoxcomplainttype.Value
.Offset(RowCount, 10).Value = Me.ComboBoxRisk.Value
.Offset(RowCount, 11).Value = IIf(Me.CheckBoxSun.Value, "Sun", "")
.Offset(RowCount, 12).Value = IIf(Me.CheckBoxFog.Value, "Fog", "")
.Offset(RowCount, 13).Value = IIf(Me.CheckBoxRain.Value, "Rain", "")
.Offset(RowCount, 14).Value = IIf(Me.CheckBoxSnow.Value, "Snow", "")
.Offset(RowCount, 15).Value = IIf(Me.CheckBoxSleet.Value, "Sleet", "")
.Offset(RowCount, 16).Value = Me.txtComplaintDetails.Value
.Offset(RowCount, 17).Value = Me.ComboBoxSpecies.Value
.Offset(RowCount, 18).Value = Me.ComboBoxSex.Value
.Offset(RowCount, 19).Value = Me.ComboBoxAge.Value
.Offset(RowCount, 20).Value = Me.ComboBoxCondition.Value
.Offset(RowCount, 21).Value = Me.ComboBoxPolice.Value
.Offset(RowCount, 22).Value = Me.txtActionTaken.Value
.Offset(RowCount, 23).Value = DateValue(Me.txtActionDate.Value)
.Offset(RowCount, 24).Value = Me.txtActionTime.Value
.Offset(RowCount, 25).Value = Me.Txtgps.Value
.Offset(RowCount, 26).Value = Format(Now, "mm/dd/yyyy hh:nn")
End With
'Write data to worksheet after editing
RowCount = Worksheets("Complaint Data").Range("A1").CurrentRegion.Rows.Count
If Val(ActiveWorkbook.BuiltinDocumentProperties("Author")) <> 0 Then
RowCount = Val(ActiveWorkbook.BuiltinDocumentProperties("Author"))
ActiveWorkbook.BuiltinDocumentProperties("Author") = ""
End If
'Complaint AutoNumber TEST CODE
'Clear the form
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Or TypeName(ctl) = "CheckBox" Then
ctl.Value = ""
ElseIf TypeName(ctl) = "Checkbox" Then
ctl.Value = False
End If
Next ctl
End Sub

'Search function
Private Sub CommandButtonSEARCH_Click()
Dim sFindIt As String
Dim C As Range
sFindIt = Application.InputBox(prompt:="Please enter search criteria:")
If sFindIt = "False" Or sFindIt = vbNullString Then Exit Sub

With Sheet1
On Error Resume Next
Set C = .Cells.Find(What:=sFindIt, After:=Cells(1, 1), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=False)

If Not C Is Nothing Then
'Me.TextBoxSearchAnswer = .Cells(lRowFnd, 7)
'Load record
Me.ComboBoxDistrict.Value = .Range("A" & C.Row)
Me.txtreferenceNo.Value = .Range("B" & C.Row)
Me.txtcallerName.Value = .Range("C" & C.Row)
Me.txtCallerPhoneNo.Value = .Range("D" & C.Row)
Me.txtCallerAddress.Value = .Range("E" & C.Row)
Me.txtdate.Value = .Range("F" & C.Row)
Me.txtTime.Value = .Range("G" & C.Row)
Me.ComboBoxCompalintTakenBy.Value = .Range("H" & C.Row)
Me.ComboBoxComplaintAssignedTo.Value = .Range("I" & C.Row)
'AND SO ON.
Me.ComboBoxcomplainttype.Value = .Range("J" & C.Row)
Me.ComboBoxRisk.Value = .Range("K" & C.Row)
Me.CheckBoxSun.Value = .Range("L" & C.Row)
Me.CheckBoxFog.Value = .Range("M" & C.Row)
Me.CheckBoxRain.Value = .Range("N" & C.Row)
Me.CheckBoxSnow.Value = .Range("O" & C.Row)
Me.CheckBoxSleet.Value = .Range("P" & C.Row)
Me.txtComplaintDetails.Value = .Range("Q" & C.Row)
Me.ComboBoxSpecies.Value = .Range("R" & C.Row)
Me.ComboBoxSex.Value = .Range("S" & C.Row)
Me.ComboBoxAge.Value = .Range("T" & C.Row)
Me.ComboBoxCondition.Value = .Range("U" & C.Row)
Me.ComboBoxPolice.Value = .Range("V" & C.Row)
Me.txtActionTaken.Value = .Range("W" & C.Row)
Me.txtActionDate.Value = .Range("X" & C.Row)
Me.txtActionTime.Value = .Range("Y" & C.Row)
Me.Txtgps.Value = .Range("Z" & C.Row)
Me.TextBoxSearchAnswer = "Record # " & C.Row - 1
Else
MsgBox "Not Found"
End If
End With
ActiveWorkbook.BuiltinDocumentProperties("Author") = C.Row
End Sub
CODE

**Tinbendr** · 06-13-2014, 08:05 AM

Here is a link on how to post code.

I don't know why your code doesn't work., But it works on my copy.

**139runner** · 06-16-2014, 10:30 AM

I started with a fresh database and userform so I could strip out any code that didn't work to make it cleaner. I removed the field for reference # but have a field for Record No. It looks like a record number is signed when searching but I would like to save this information in a column of the spreadsheet.

I can now search and load a previous record and resave it. However it saves a duplicate record with my new info. How do I get it to overwrite the existing record?

Also it is mandatory to enter Action Date. I want criteria for how the date looks but don't want it to be a required field because this is always data that is entered after the original record is saved.

Time is sporadic. It enters correctly but when I call it up in a search it seems to change it to a decimal.

I updated my excel from 2003 to 2010 don't know if this will impact anything?

New files added with code and database Now called Forestry Complaints
Thanks again I think I will have to take a course but I'm enjoying the learning experience.
Susan

**patiinh** · 04-29-2020, 03:30 AM

Hello
I couldn't open file Forestry Complaints, is show's massage
File format or file extension is not valid
Need your support
BR Nandulal

**FDibbins** · 04-30-2020, 12:22 AM

I have opened bot files with no problems?

**patiinh** · 04-30-2020, 12:54 AM

Attachment 675258
Hello Ford,
Thanks for quick reply
Still unable to open this file, Please find attached error image
I am using office365, version excel 2016
Regards
Nandulal

Userform Edit Record and GoTo record Command Buttons

LinkBack

Thread Tools

Rate This Thread

Display

Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Re: Userform Edit Record and GoTo record Command Buttons

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] VBA Userform Edit/Update record help

Need First Record, Previous Record, Next Record and Last Record command buttons, Help!

Command Buttons for Viewing Record, Next Record and Previous Record

Goto Record when Duplicate Record Exists

Create Next /Previous command buttons also Modify existing record in a Userform

Bookmarks

Bookmarks

Posting Permissions