This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
using System; | |
using System.Collections.Generic; | |
namespace Pendu | |
{ | |
class Program | |
{ | |
private static string _player1, _player2, _word = ""; | |
private static List<char> _letters = new List<char>(); | |
private static int _tentatives = 1; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'Creating Function to do a query and then fill the list with the results | |
Private Function doQueryAndFill(query As String, listName As String) | |
Dim results As recordSet | |
'test if the id is not null // Replace id_Person | |
If Not IsNull(Me.id_Person.Value) Then | |
Set results = CurrentDb.OpenRecordset(query) | |
Me(listName).RowSourceType = "Value List" |