Utiliser une formule provenant d'une base de donnéesRésolu

Question

Bonjour !



Je travailles sur une application pour la mise en production d'armoires....



Je me demandais comment faire pour utiliser une formule qui est
enregistrer dans une base de donn&#233;es. Dans l'image ci-dessous on voit
la base de donn&#233;e.







Par exemple, les valeurs de Text1 et Text2 sont &#233;gales &#224; 10



Selon le code ci-dessous, la valeur de txtside.text = (Text1.text * Text2.text)



Ce que je veux, c'est que txtside.text = 100

Private Sub Command1_Click()
 'Side
    Data1.Recordset.MoveFirst
    txtside.Text = Data1.Recordset.Fields("Side").Value
End Sub


Merci &#224; l'avance !

PCPT · Accepted Answer

bon, je t'ai fait la partie la plus chi***te... nouveau projet, pose 4 txtbox par défaut, et un bouton. [VB6] le résultat est la chaîne calculable, remplacée par les valeurs voulues. il te reste à interpréter les opérateurs, mais çà il y a déjà des sources existantes sur VbFrance Option Explicit ' Const sSIDE As String = "(Text1.Text * Text2.Text)" Const sBOTTOM As String = "(Text3.Text - Text4.Text) * 2)" Const sDOOR As String = "(Text1.Text / 2) - 0.125)" ' ' Private Sub Form_Load() Text1.Text = "10" Text2.Text = "10" Text3.Text = "40" Text4.Text = "27,4" End Sub ' ' Private Sub Command1_Click() MsgBox sSIDE & vbCrLf & GetResultString(sSIDE) MsgBox sBOTTOM & vbCrLf & GetResultString(sBOTTOM) MsgBox sDOOR & vbCrLf & GetResultString(sDOOR) End Sub ' ' Private Function GetResultString(ByVal sChaine As String) As String sChaine = Replace (sChaine, "(Text", "( Text") ' on commence par remplacer les libellés "NOM.text" par leur contenu réel Dim Ctrl As Object, i As Integer, iPos1 As Integer, iPos2 As Integer Dim sObjName As String, sObjValue As String, bFound As Boolean iPos1 = InStr(1, sChaine, " Text") While iPos1 > 0 iPos1 = iPos1 + 1 'ici la position du début iPos2 = InStr (iPos1, sChaine, ".Text") sObjName = Mid$(sChaine, iPos1, iPos2 - iPos1) bFound = False For Each Ctrl In Me If TypeOf Ctrl Is TextBox Then If Ctrl.Name = sObjName Then bFound = True sObjValue = Ctrl.Text Exit For End If End If Next If Not bFound Then 'au cas où Err.Raise vbObject, , "La zone texte de la formule n'existe pas!!!!!!" Else sChaine = Replace (sChaine, sObjName & ".Text", sObjValue) iPos1 = InStr(1, sChaine, " Text") End If Wend sChaine = Replace (sChaine, " ", vbNullString) ' retour GetResultString = Replace(sChaine, ",", ".") End Function Coloration syntaxique automatique [AFCK] ++ PCPT [AFCK]

PCPT · Answer

salut,

les objets seront forc&#233;ment des txtbox? (dans la base)

DubweiserTM · Answer

Je n'arrive pas &#224; comprendre ta question ?



Dans le programme, les objets sont bel et bien des Textbox, sauf que dans la base de donn&#233;es se sont des champs textes.

PCPT · Answer

je demande si dans la base, mis &#224; par des valeurs et des op&#233;rateurs, les seuls noms d'objets seront forc&#233;ment des txtbox.

DubweiserTM · Answer

Ahhh Okay !



La majorit&#233; seront des variables et des Textbox...



Les m&#234;mes variables seront utilis&#233; pour plusieurs meubles.



Voici quelques exemples:



LargCot&#233;, ProfCot&#233;, LargPorte, HautPorte etc...



Merci !

DubweiserTM · Answer

Je vais programmer autour de &#231;a ! Merci !

Utiliser une formule provenant d'une base de données

6 réponses

Discussions similaires