Comments by muneermohd9690

muneermohd9690 1-Dec-20 5:53am View

thanks for the reply.i have found the solution.anyway i will share the code below.

muneermohd9690 12-Oct-20 13:44pm View

thanks for the vote CHill60.if anyone needs more explanation for the solution,i would like to help.

muneermohd9690 12-Oct-20 11:18am View

i have sumbitted the solution

muneermohd9690 1-Oct-20 13:46pm View

Option Compare Database
Option Explicit
Private msaved As Boolean

Private Sub btnsearch_Click()

End Sub

Private Sub Command198_Click()
msaved = True
MsgBox "new record added"
Me.Requery
End Sub

Private Sub Command199_Click()
Me.Undo
DoCmd.BrowseTo acBrowseToForm, "empdetailsform", , , acFormAdd
End Sub

Private Sub browse_Click()
Dim diag As Office.FileDialog
Dim item As Variant
Set diag = Application.FileDialog(msoFileDialogFilePicker)
diag.AllowMultiSelect = False
diag.Title = "Please select an excel sheet"
diag.Filters.Clear
diag.Filters.Add "excel spreadsheet", "*.xls,*.xlsx"
If diag.Show Then
For Each item In diag.SelectedItems
Me.filename = item
Next
End If
End Sub

Private Sub Form_BeforeUpdate(cancel As Integer)
If msaved = False Then
cancel = True
Me.Undo
cancel = False
End If

End Sub

Private Sub Form_Current()
msaved = False

End Sub

Private Sub import_Click()
Dim FSO As New FileSystemObject
If Nz(Me.filename, "") = "" Then
MsgBox "Please select a file."
Exit Sub
End If

If FSO.FileExists(Nz(Me.filename, "")) Then
importexcelsheet.importexcelspreadsheet Me.filename, "empdetails"
Else
MsgBox "File not found."
End If
filename.Value = ""
End Sub

muneermohd9690 1-Oct-20 11:14am View

how can that be done?if required i can share the access database with you.can you guide me please.

muneermohd9690 30-Sep-20 13:55pm View

https://www.dropbox.com/s/kaw7j17bheurs2x/empsystem_backup_270920201111111.accdb?dl=0

you can access the database using the above link.this was created on access 2019.i am calling the function from the subform where i need to do the auditing.yes i do have a save and delete button on the form.i need to audit any changes when save or delete pressed,which works actually when the form is opened as a a standalone form.but once i publish it to users they will only be able to access it using navigation forms which will contain the form as a sub form.adding a new record is on another form.later on i need to call the same function on this adding new record form as well.you can start from loginscreen form once you download the database.the username would be khalifa and password 1234.

muneermohd9690 30-Sep-20 13:54pm View

there is none.this is an access database, with some small vba codes to meet the functionality of a small office employee record management.

muneermohd9690 30-Sep-20 6:51am View

actually i am new to vb.this is a small project i am working on after watching so many youtube videos.so i don't know, is it possible to call the function from subform which i am trying to audit.if needed i can share the databse.

Comments by muneermohd9690 (Top 8 by date)