error
 

Καλημέρα σε όλους
Στην παρακάτω Function μου εμφανίζει (Μη έγκυρη δήλωση SQL) όποια βοήθεια δεκτή γιατί έχω κόλληση.


[CODE'' -- Επιστρέφει τα χιλιοστά του διαμερίσματος που επιλέγεται αναλόγως της σχετικής δαπάνης

Function Calculate_exp_part(app_id As Integer, exp_type As Integer) As Double
Dim rs As New ADODB.Recordset
Dim cn As ADODB.Connection
Dim cm_mm As String, el_mm As String
Dim fx_mm As String, sp_mm As String, h_mm As String
Dim con_e As String
Dim node As Variant
Dim diam, i As Integer
diam = DLookup("arithmoos_diam", "tbl_heating_system")
node = DLookup("dapani_anel", "tbl_heating_system")
Set cn = CurrentProject.Connection
cm_mm = "SELECT tbl_appartments.common_mm FROM tbl_appartments where id=CInt('" & app_id & "');"
If node = "Εξ' ίσου" Then
el_mm = 1 / diam
Else
el_mm = "SELECT tbl_appartments.elevator_mm FROM tbl_appartments where id=CInt('" & app_id & "');"
End If
h_mm = "SELECT tbl_appartments.e FROM tbl_appartments where id=CInt('" & app_id & "');"
fx_mm = "SELECT tbl_appartments.fixed_mm FROM tbl_appartments where id=CInt('" & app_id & "');"
sp_mm = "SELECT tbl_appartments.special_mm FROM tbl_appartments where id=CInt('" & app_id & "');"
con_e = "SELECT tbl_appartments.con_e FROM tbl_appartments where id=CInt('" & app_id & "');"
If exp_type = 1 Then
rs.Open cm_mm, cn, adOpenKeyset, adLockOptimistic
ElseIf exp_type = 2 Then
rs.Open el_mm, cn, adOpenKeyset, adLockOptimistic
ElseIf exp_type = 3 Then
rs.Open h_mm, cn, adOpenKeyset, adLockOptimistic
ElseIf exp_type = 4 Then
rs.Open fx_mm, cn, adOpenKeyset, adLockOptimistic
ElseIf exp_type = 5 Then
rs.Open sp_mm, cn, adOpenKeyset, adLockOptimistic
ElseIf exp_type = 6 Then
rs.Open con_e, cn, adOpenKeyset, adLockOptimistic
ElseIf exp_type = 7 Then
rs.Open fx_mm, cn, adOpenKeyset, adLockOptimistic
End If

If rs.RecordCount = 0 Then
Calculate_exp_part = 0
Else
Calculate_exp_part = Round(Nz(rs.Fields(0)), 4)
End If

End Function][/CODE]

Καλησπέρα

Γιώργο, μάλλον πρέπει να αλλάξεις τις προτάσεις με μορφή:

cm_mm = "SELECT tbl_appartments.common_mm FROM tbl_appartments where id=CInt('" & app_id & "');"

με προτάσεις της μορφής:

cm_mm = "SELECT tbl_appartments.common_mm FROM tbl_appartments where id=" & app_id

Φιλικά/Γιώργος

Καλησπέρα Γιώργο
Έχω εντοπίσει το πρόβλημα στο ερώτημα:
Με αποτέλεσμα μα μην τρέχει η SQL
και δεν ξέρω πώς να το διορθώσω.

Γιώργο, δεν ξέρω τι ακριβώς κάνει ο κώδικας.

Αν το 1/diam είναι η τιμή της συνάρτησης, δοκίμασε:

If node = "Εξ' ίσου" Then
Calculate_exp_part= 1 / diam
Exit function
Else
el_mm = "SELECT tbl_appartments.elevator_mm FROM tbl_appartments where id=" & app_id
End If

Επίσης θα πρέπει να μη είναι μηδενική η μεταβλητή diam .

Γιώργο σε ευχάριστο πολύ λειτουργεί άψογα με την προσθήκη: