CDate not working in the correct format

[ncaravela]

Hi,

i have a workbook with 3 userforms (to insert data, search data, and add/change data).
Everything is working but i can't resolve a problem regarding the cdata format.

In the frmnewrecord, i have several txtboxes and cboboxes.
The txtbox "End Date" is not supposed to be filled (only after using the add/change data userform). My problem is that if i define the txt box as Cdate, i can't leave it blank. Otherwise the date is inserted in the format "mm-dd-yyy" and not "dd-mm-yyyy" as i need.

I've tryed changing the code in the search data, and add/change data userforms but it just doesn´t work.

Can anyone help me, so i can finalize this workbook?

I send the workbook as attachment

thanks in advance

[royUK]

Do you mean using CDate to enter to the sheet?
maybe

 If Not IsEmpty(Me.txtdataregularização) Then
        ActiveCell.Offset(0, 9) = CDate(txtdataregularização)
        End If

I wouldn't use the loop to find the next empty row either, this could prove slow in larger databases. Take a look at the database form

[ncaravela]

Thanks for the help, but it's not working.

I've tryed inserting the code you suggested but it doesn't work. Please, try running the userform to see the error.

I also think i wasn't clear in the first post. what i need is:
1) Insert data in the "New Record" userform, leaving the txtdataregularização blank.
2) some days later, i need to insert (using the frmedit) the correct date in the txtdataregularização.

My problem: I want to insert the date in the format "dd-mm-yyyy", but if i do that, in the sheet "Base Dados" the format will be "mm-dd-yyyy"

Sheet in attachment.
thanks once again