Probleme 1ere ligne dans une base de donnée

[lanoe]

Bonjour,

Malgré mes recherches je n'arrive pas à régler un problème qui pourtant doit être simple. J'ai un user qui alimente une base de donnée. Lorsque, j'ai au moins une ligne de compléter pas de problème tout fonctionne. Par contre lorsque le tableau est vierge, le bouton "ajouter" ne fonctionne pas??? Les infos n'apparaissent pas dans la base.

Merci pour votre expertise
lanoe

 

[gilbert_RGI]

Re : Probleme 1ere ligne dans une base de donnée

bonjour
ajoutez cette ligne

If £ligne2 < 10 Then £ligne2 = 10

Private Sub enregistrer(£feuille1 As String, £ligne2 As Long)
For i = 1 To 84
If £ligne2 < 10 Then £ligne2 = 10
If IsNumeric(Me.Controls("T" & i)) Then
Sheets(£feuille1).Cells(£ligne2, i) = CDbl(Me.Controls("T" & i))
Else
Sheets(£feuille1).Cells(£ligne2, i) = Me.Controls("T" & i)
End If
Next i

End Sub

 

[lanoe]

Re : Probleme 1ere ligne dans une base de donnée

Re,

Effectivement, simple...

Merci
Lanoe