Probleme 1ere ligne dans une base de donnée

lanoe · 9 Avril 2014

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 · 9 Avril 2014

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 · 9 Avril 2014

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

Re,

Effectivement, simple...

Merci
Lanoe

Probleme 1ere ligne dans une base de donnée

lanoe

XLDnaute Occasionnel

Pièces jointes

gilbert_RGI

XLDnaute Barbatruc

lanoe

XLDnaute Occasionnel

Discussions similaires