Split Database Backend Table Deleted

[ChobeyGuddu]

HI
I have a database which is Split between front end and backend.

Because of some reason while accessing from front end forms- backend table gets deleted (all records deleted and table is blank now)

Any idea the reason for the same
Any fixing tips or anything that can help resolving it happening again ?



Please help
Guddu.

[orange]

Sounds like some deleted the records in the back end table.
Are the other BE tables OK?
May have to reload your data for the table from your most recent backup.
Review any/all forms that interact with the "table" and see if there is a bad command/event/code involved.

Test the form vigorously before moving on.

Good luck.

[ChobeyGuddu]

Sounds like some deleted the records in the back end table.
Are the other BE tables OK?
May have to reload your data for the table from your most recent backup.

Good luck.

Hi
Yes Other tables are ok - its just one table (actually its a Login details table) - not a datatable which has form based on.

So, something strange happened and Login table deleted ?

Thanks
Guddu

[orange]

Can you show some form event code that interacts with the "login" table?

[ChobeyGuddu]

Here you go :

This is for Main Database LOGIN :

Option Explicit
Option Compare Database
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim sql As String
Private Sub btnlogin_Click()
If cn.State = adStateOpen Then cn.CLOSE
Set cn = CurrentProject.AccessConnection
sql = "select * from tbUser Where Username= '" & txtUserName.Value & "' And Password= '" & txtPassword.Value & _
"' order by ID"
If rs.State = adStateOpen Then rs.CLOSE
With rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open sql, cn, , , adCmdText
End With
If Not rs.EOF Then
DoCmd.OpenForm "MainDashboard"
DoCmd.CLOSE acForm, Me.Name
Else
MsgBox "Please try again! or Fill in the Access request form and Send an email to Nisarg Shah (nisarg.shah@mbnl.co.uk) for access permission"
End If
End Sub
--------------------------------------------

This is for ADMIN LOGIN :

Option Explicit
Option Compare Database
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim sql As String
Private Sub btnlogin_Click()
If cn.State = adStateOpen Then cn.CLOSE
Set cn = CurrentProject.AccessConnection
sql = "select * from tbUser Where Username= '" & txtUserName.Value & "' And AdminPassword= '" & txtPassword.Value & _
"' order by ID"
If rs.State = adStateOpen Then rs.CLOSE
With rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open sql, cn, , , adCmdText
End With
If Not rs.EOF Then
DoCmd.OpenForm "ADMINPAGE"
DoCmd.CLOSE acForm, Me.Name
Else
MsgBox "Access Denied"
End If
End Sub


-----------------------------------------------

[ChobeyGuddu]

Hi all,
Does anyone know any particular reason for backend table deleted from accessing database from frontend?

Thanks,
Guddu