code builder

[nikolleee]

Próbuję przygotować własną aplikację bazy danych, ale wystąpił błąd. Podczas tworzenia formularza, podczas konstruowania zdarzenia za pomocą konstruktora kodu, wpisuje kody:


Dim strSQL As String
Dim checkScript As Boolean

Const MsgError = "Wypełnij wszystkie wymagane wartości"
Const finScript = "Zapisz"
Const scriptError = "Błąd. Brak danych ratować."
Const tbl = "tblEmployeeInfo"
Const col = "Nazwa_pracownika*, Dział*, Lider_zespołu*, Numer_PMS, Agencja, Data_rozpoczęcia*, EPT, Staplaar, Reachtruck, Hefttruck"

On Error GoTo Errorzone

checkScript = False

If IsNull([Forms]![frmAddEmployee ]![Employee_Name*]) = True Then
MsgBox (MsgError)
Exit Sub
End If

If IsNull([Forms]![frmAddEmployee]![Department*]) = True Then
MsgBox (MsgError)
Exit Sub
End If

If IsNull([Forms]![frmAddEmployee]![Team_Leader*]) = True Then
MsgBox (MsgError)
Exit Sub
End If

If IsNull([Forms]![frmAddEmployee]![Start_Date*]) = True Then
MsgBox (MsgError)
Exit Sub
End If

strSQL = "Insert Into" & tbl & "(" & col & ") Wartości ( """ _
& [Formularze]![frmAddPracownik]![Nazwa_pracownika*] & """, """ & [Formularze]![frmAddPracownik]![Dział*] _ & """, """ & [
Formularze ]![frmAddEmployee]![Team_Leader*] & """, " & [Formularze]![frmAddEmployee]![pms_number] _
If checkScript = Fasle Then MsgBox (scriptError) End If End Sub

Ale ciągle pojawia się błąd podczas zapisywania — plik nie zostanie zapisany w tabeli. Proszę pomóż. Straciłem 2 dni i nie chcę się zniechęcać.


https://www.goldenline.pl/grupy/Komp...-kodu,3933668/ - Polish question

[nikolleee]

I'm trying to prepare my own data base app but I got an error. When creating the form, at the time of constructing the event through the code constructor, enter the following codes:

Dim strSQL As String
Dim checkScript As Boolean

Const MsgError = "Fill in all required values"
Const finScript = "Save"
Const scriptError = "Error. Data not save."
Const tbl = "tblEmployeeInfo"
Const col = "Employee_Name*, Department*, Team_Leader*, PMS_number, Agency, Start_Date*, EPT, Staplaar, Reachtruck, Heftruck"

On Error GoTo Errorzone

checkScript = False

If IsNull([Forms]![frmAddEmployee]![Employee_Name*]) = True Then
MsgBox (MsgError)
Exit Sub
End If

If IsNull([Forms]![frmAddEmployee]![Department*]) = True Then
MsgBox (MsgError)
Exit Sub
End If

If IsNull([Forms]![frmAddEmployee]![Team_Leader*]) = True Then
MsgBox (MsgError)
Exit Sub
End If

If IsNull([Forms]![frmAddEmployee]![Start_Date*]) = True Then
MsgBox (MsgError)
Exit Sub
End If

strSQL = "Insert Into" & tbl & " (" & col & ") Values (""" _
& [Forms]![frmAddEmployee]![Employee_Name*] & """, """ & [Forms]![frmAddEmployee]![Department*] _
& """, """ & [Forms]![frmAddEmployee]![Team_Leader*] & """, " & [Forms]![frmAddEmployee]![pms_number] _
& ", """ & [Forms]![frmAddEmployee]![Agency] & """, " & [Forms]![frmAddEmployee]![Start_Date*] & ", " & [Forms]![frmAddEmployee]![ept] _
& ", " & [Forms]![frmAddEmployee]![staplaar] & ", " & [Forms]![frmAddEmployee]![reachtruck] & ", " & [Forms]![frmAddEmployee]![heftruck] & ")"
MsgBox (strSQL)
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True

checkScript = True

MsgBox (finScript)

DoCmd.Close acForm, "frmAddEmployee"

Errorzone:
If checkScript = Fasle Then
MsgBox (scriptError)
End If

End Sub

but I keep getting an error when saving - the file does not want to be saved to the table. Please help. I lost 2 days and I don't want to get discouraged.

[June7]

Please post code between CODE tags - use # icon on post editor toolbar.

Have you step debugged? Have you Debug Compiled?

You could provide db for analysis - follow instructions at bottom of my post.

[isladogs]

Do you really have many field names ending in *?
If so, I strongly recommend you rename all of them removing the *
That is a wildcard in Access and could have unexpected outcomes.

[Micron]

but I keep getting an error when saving

That is of zero help to anyone who would try to help you. Always post the error number and message (don't expect everyone to lookup up the meaning of an error number for you). You need to learn how to troubleshoot as advised. Also can use debug.print lines to see your variables (e.g. value of sql statements you assign to a variable) in the immediate window:

start of code here
strSQL = "Insert Into" & tbl & " (" & col & ") Values (""" _ ...etc.
Debug.Print strSQL
rest of code

I figure that is where at least one problem lies due to lack of delimiting (using quotes around string portions or octothorpes around date portions as required) or a missing space. It may not be the issue you're having right now, but then again, you provided no info about that.
Ditto on the code tags.

[Welshgasman]

Fasle?
Obviously not tried to compile?

It is called a language for a reason. You have to obey by it's syntax.

[nikolleee]

I'm so sorry, but I'm still fighting...

[pbaldy]

Post 6 was moderated, I'm posting to trigger email notifications.

Note regarding attachments:

https://www.accessforums.net/showthread.php?t=70301

[Welshgasman]

I'm so sorry, but I'm still fighting...

No point fighting it, you just have to work with it.

[nikolleee]

This is still my error message. :/

[Welshgasman]

As mentioned.
Get rid of the * in the field names. Use ' for your strings, and # for your dates. Dates also need to be in mm/dd/yyyy format or yyyy-mm-dd format.

[isladogs]

The message also shows you need a space between Into and tblEmployeeInfo