Not allowing Blank records 1

[bkrampe]

I have a form that adds records and a form that is supposed to delete records in the same table. But when i try and delete the record, it only deletes the information and leaves the blank record in the table. Any help on how i can get rid of the blank records? Thanks in advance.

 

[Ed2020]

It's difficult to answer without details of how you are deleting your records at the moment. What's your code? Bound or unbound form?

Ed Metcalfe.

Please do not feed the trolls.....

 

[genomon]

Are you looking at the table to see these "blank"records, or are you looking at the form, which will display a blank record as default?

"Before you criticize someone, you should walk a mile in their shoes.
That way, when you criticize them, you're a mile away and you have their shoes."

 

[bkrampe]

I have the normal add button code that access puts in for me when i create the button. And my delete button code is as follows:

Private Sub DeleteRecord_Click()
Dim rst As DAO.Recordset, Cri As String, SQL As String
Dim Msg As String, Style As Integer, Title As String

Cri = "[MaterialCode] = '" & Me!MaterialCode & "' AND " & _
"[Y-Dimension] = '" & Me![Y-Dimension] & "' AND " & _
"[X-Dimension] = '" & Me![X-Dimension] & "'"

Set rst = Me.RecordsetClone
rst.FindFirst Cri

If rst.NoMatch Then
Msg = "Combined BarCode Record Not Found or Doesn't Exist!"
Style = vbInformation + vbOKOnly
Title = "Can't Find Combined BarCode! . . ."
MsgBox Msg, Style, Title
Else
SQL = "DELETE FROM REF " & _
"WHERE " & Cri
DoCmd.RunSQL SQL
End If

Set rst = Nothing
End Sub

 

[TheAceMan1]

How are ya bkrampe . . .

[blue]I have a form that adds records and a form that is supposed to delete records in the same table. But when i try and delete the record, it only deletes the information and leaves the blank record in the table.[/blue]

Post the code for both! . . .

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[bkrampe]

Here is the code for the Add button.

Private Sub AddRecord_Click()
On Error GoTo Err_AddRecord_Click


DoCmd.GoToRecord , , acNewRec

Exit_AddRecord_Click:
Exit Sub

Err_AddRecord_Click:
MsgBox Err.Description
Resume Exit_AddRecord_Click

End Sub

 

[TheAceMan1]

bkrampe . . .

Try the following SQL instead:

[blue]
SQL = "DELETE  Ref.[purple][b][i]PrimaryKeyName[/i][/b][/purple] " & _
      "FROM REF " & _
      "WHERE " & Cri[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[bkrampe]

Hey that works great. But now we ran into another problem, that goes along with one of my other posts. Thanks a lot for all your help.