New record button

[smikkelsen]

I would like to add a button that when clicked will add a new record with specific text.

For example, when the button is clicked it will atomatically add the text "auto note" + whatever is in a field on the form.



Say I have a field named "note" and it is not stored in a table, it is just for inputting text. Then once the text is typed, you would click the add button and it would automatically add a new record with text: "<Auto Note>" & [note]

I hope this makes sense. I have tried a bunch of things, but I don't know what I'm doing to be honest. I have never tried this before.

[maximus]

Here is What I have done
I table: exp

ID = Auto Number PK
Type_text= Text

In the Form in the Text box type a Text the same is entered in the exp table with a autonote Maximus:
e.g. If you type Gorge, "Maximus George" will be entered in the table check it out.

Code on the Button:


Private Sub Command2_Click()
On Error GoTo Err_Command2_Click
Dim strConString As String
Dim strSQL As String

If isull(Me.Text0) Then
MsgBox "Please Type a Text", vbInformation, "No Text"
Else
strConString = "Maximus" & " " & Me.Text0 'Attaching Auto Text to the typed string
strSQL = "Insert Into exp(Type_text) Values(" & "'" & strConString & "');" 'Using SQL to enter data in the Table
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
DoCmd.Requery "List3" 'List Box Displaying The results
End If
Exit_Command2_Click:
Exit Sub

Err_Command2_Click:
MsgBox Err.Description
Resume Exit_Command2_Click

End Sub


if this solves your problem mark the thread solved.

[smikkelsen]

Thanks for the reply. I tried that, and I think it is what I am trying to do, but there is one problem. The field I am trying to put the text in, is a new record.

Let me explain. I have form [Main_tracking_notes] with continuous records. I have this text field (that I will type into) and the button in the header of the form. When clicked, I need it to add the auto note, and text to a new record. I'm sorry I didn't explain that before, I thought it would be the same process.

Thanks again for your help. If you know what I need to change to make that work, let me know.

Thanks!

[maximus]

This is what I have done:

1) Continous form.
2) Text Box and The Button at the Form Header
3) Type the Text and Click Button Text with the Auto Note entered in the form as Entry.

if this solves your problem mark this thread solved.

[maximus]

is you problem solved

[smikkelsen]

I'm sorry I hadn't had a chance to try it yet, I finally went to bed at 5 am.



Ok, after changing the few things that you sent, it works great! Thanks you!

I am sorry to ask, but I am trying now to add a second field in that vb code to update with the username, and would also like to add a third field as well. I'm a newbie at VB so I am doing something wrong, thanks for your patients.

Here is what I have:

 
Private Sub Command19_Click()
On Error GoTo Err_Command19_Click
Dim strConString As String
Dim strSQL As String
Dim strSQL2 As String
If IsNull(Me.Text0) Then
MsgBox "Enter Note First!", vbInformation, "No Text"
Else
strConString = "<Auto Note>  " & " " & Me.Text0
strConString2 = fOSUserName()
strSQL = "Insert Into Main_Tracking_Notes(comment) Values(" & "'" & strConString & "'); Insert Into Main_Tracking_Notes(user) Values(" & "'" & strConString2 & "');"
 
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
 
Me.Requery
End If
 
Exit_Command19_Click:
    Exit Sub
Err_Command19_Click:
    MsgBox Err.Description
    Resume Exit_Command19_Click
 
End Sub

So I tried to add another thing to the strSQL line, but I think that is wrong. I'm not sure where to put it.

[maximus]

Below is the code that you had modified:

strSQL = "Insert Into Main_Tracking_Notes(comment) Values(" & "'" & strConString & "'); Insert Into Main_Tracking_Notes(user) Values(" & "'" & strConString2 & "');"

This will be the correct Code:

strSQL = "Insert Into Main_Tracking_Notes(comment,user) Values(" & "'" & strConString & "'," & "'" & strConstring2 & "');"

Please follow this syntax while putting in more field names.


if this solves your problem mark the thread solved.

[smikkelsen]

Worked perfectly! Thanks so much for your help and time.

[maximus]

Glad to help.