iDevlop blog

Function RelinkTables() Dim td As TableDef, db As Database Dim strFolder As String , arTmp As Variant , strBe As String Set db = CurrentDb strFolder = Left(db.Name, InStrRev(db.Name, "\" , , vbTextCompare)) For Each td In db.TableDefs If Left(td.Connect, 9) = ";DATABASE" Then 'linked ? If Not fValidTable(td.Name) Then 'bad ? arTmp = Split(td.Connect, "\" ) td.Connect = ";DATABASE=" & strFolder & arTmp(UBound(arTmp)) td.RefreshLink End If End If Next td End Function Function fValidTable(TableName As String ) As Boolean Dim lCount As Long On Error Resume Next lCount = DFirst( "1" , TableName) fValidTable = (Err.Number = 0) End Function

En matière de virtualisation, les disques différentiels sont une solution très pratique, mais je n'ai découvert que récemment que cette solution était aussi disponible dans Virtualbox. Pour ceux qui ne connaissent pas le principe des disques différentiels, prenons l'exemple suivant: un formateur a besoin pour ses formations de Windows 7 avec différentes versions d'Office (2003, 2007, 2010) et ceci en différentes langues. Soit il crée 6 machines virtuelles (mv) de 10 GB chacune, ce qui occuperait 60 GB sur son laptop tout en ne lui laissant que d'assez petits disques virtuels (dv), soit il utilisera des disques différentiels: un disque de base avec Windows 7 (disque dit "immuable") une machine virtuelle par version/langue. Chaque VM utilisera le disque de base, et Virtualbox créera automatiquement un disque "différentiel" où il n'enregistrera que les différences avec le disque de base (soit la taille de l'installation d'Office). Dans

Après avoir créé un disque Virtualbox et y avoir installé Windows 7 pour une présentation, je me suis rendu compte que l'espace disponible était insuffisant pour installer les autres programmes dont j'avais besoin. Après pas mal de recherches et des essais de diverses solutions plus ou moins efficaces et compliquées, j'ai fini par trouver la solution ici . Pour résumer: arrêtez la machine virtuelle (VM) et libérez le disque dur trop petit (oldhd.vdi) créez un nouveau disque virtuel via le gestionnaire de médias (appelons le newhd.vdi) copiez le contenu du disque trop petit (oldhd.vdi) dans le nouveau disque ainsi créé: VBoxManage clonehd --existing oldhd.vdi newhd.vdi Cette opération peut être assez longue. montez le nouveau disque newhd.vdi comme disque de la machine virtuelle enfin modifiez la taille de la partition pour qu'elle occupe tout son nouvel espace disponible. Pour W7, il suffit de démarrer la VM, et d'utiliser le gestionnaire de disque de Window