Recherche:

En ajoutant un bouton, ça le fait


void CMFCApplication21Dlg::OnBnClickedRecup()
{
UpdateData();
m_edit = m_listeCtrl.GetItemText(m_listeCtrl.GetSelItem());
UpdateData(FALSE);
}

Quand je lance le gestionnaire d'événements ou dans les propriétés, pas d'événements seulement les 4 boutons. Ce n'est pas une ListBox mais une MFC VSListeBox. Merci pour la réponse.
Apparemment...

Bonjour,
Avec VS2022, comment puis-je récupérer dans un CString l'item sélectionné dans un contrôle MFC VSListeBox, il n'y a pas d'événements pour ce contrôle ?

J'ai testé ceci


int...

Bonjour,
article: Comment charger une image sur une fenêtre dans un projet Visual C++ ?
Tous les liens sont morts sur...

Bonjour,
Il est possible de piloter excel de cette façon



Function export_table()
Dim xla As Object, xlw As Object, sh As Object

fichier = "c:\temp\export.xls"
Set xla =...

Bonjour,
Le nombre d'enregistrements est-il supérieur à la propriété "Lignes affichées" de la ZLD? L'ascenseur ne s'affiche que dans ce cas.

Bonjour,


INSERT INTO TA_FACTURE(fac_reference, fac_identification, fac_date, fac_ind_reference) VALUES (59,'32799',#2020-10-05#,4);

comme indiqué précédemment, ne pas indiquer fac_reference...

Bonjour, je suis fainéant aussi, c'est pourquoi je donne ce code
la table 'table1' contient 2 champs (le nom d'un objet, le nombre d'objet)
ça a le mérite de fonctionner même si c'est un peu lent....

Bonjour,
je propose ceci : exportation d'une requête dans excel
La table est évidemment à modifier


Sub ExportRequete()

Dim qdf As DAO.QueryDef, sql As String

sql = "SELECT...

Bonjour
Je propose avec le concours des éminents contributeurs de ce site



Option Compare Database

Enum BrowserNavConstants
navOpenInNewWindow = 1
navNoHistory = 2

Bonjour,
LedZeppII donne la réponse pour masquer ou démasquer une table



Function MasquerTables(NomTable As String, bMasquer As Boolean)
Dim db As DAO.Database, td As DAO.TableDef

Set db...

Bonjour,
C'est ça

Bonjour,
Utilisation d'un filtre pour lister les enregistrements valides



Sub OuvertureFormulaire()
Dim v As Variant, frm As Form
Do
v = Nz(InputBox("Entrer le nom ou une partie du...

Bonjour,
Imprecis :
Faut-il retrouver le même article sur Excel ou le copier?

Bonjour,
Etrange, en inversant peut-être les 2 commandes


Private Sub boutonModeCreation_Click()
DoCmd.RunCommand acCmdAppMaximize
DoCmd.Close acForm, "formulaireClients"

Bonjour,
idPlanning étant un numeroAuto, il ne sera pas possible de le copier sinon le reste peut se faire avec une requête Ajout

Bonjour,
utilisation d'une structure dans un module


Public Type Struct
a As String
b As String
End Type

Bonjour,
je propose


CurrentDb.Execute "UPDATE T_CdeMagDetail INNER JOIN T_Stock ON (T_CdeMagDetail.taille = T_Stock.taille) AND (T_CdeMagDetail.article = T_Stock.article) SET T_Stock.quantite =...

Bonjour,
le code pourrait ressembler à ça


Function validation()
Dim v As Variant, d As Date, s As String
'récupère la date d'échéance
d = CDate(DLookup("donnée", "DataDonnees",...

Bonjour,
Je verrai plutôt


Function si_vide()
With Worksheets("CN")
If .Cells(6, 2).Value = "" Then
.Range("C6:AM65").Cut
.Range("B6").Select
...

Bonjour Cesbidart,
remplacer xlOpenXMLWorkbook par xlnormal

Bonjour,
Ce code fonctionne parfaitement, à copier et tester


Function ColonneExiste(prmNomTable As String, prmNomColonne As String) As Boolean
ColonneExiste= False

Dim db As...

Bonjour,
Voir l'aide de la fonction TransferSpreadSheet qui est assez claire


DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "NomDeLaTable", "NomDuFichierExcel", False,...

Bonjour,
ajouter l'option dbFailOnError
et la gestion des erreurs (en rouge)


on error goto erreur
base.Execute requete, dbFailOnError
..... suite du code .....

exit sub

Bonjour,
i indique la ligne