1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
| ' Lecture de l'enregistrement à partir de la combobox "Recherche"
RecordNumber = RecordNumber + 1
With rng
'lecture de la ligne , colonne 2 (Date de la rencontre:)
Me.txtdaterencontre = .Cells(RecordNumber, 2)
'lecture de la ligne , colonne 3 (Rencontre avec:)
Me.txtrencontreavec = .Cells(RecordNumber, 3)
'lecture de la ligne , colonne 4 (Nom:)
Me.txtName = .Cells(RecordNumber, 4)
'lecture de la ligne , colonne 5 (Prénom:)
Me.txtFirstName = .Cells(RecordNumber, 5)
'lecture de la ligne , colonne 6 ( M/F)
'Mise en commentaire car le Sexe n'est pas indispensable pour ces saisies
'If UCase(.Cells(RecordNumber, 6)) = "F" Then Me.optFemale.Value = True Else Me.optMale = True
'lecture de la ligne , colonne 7 (Venant de la paroisse)
Me.txtparoisse = .Cells(RecordNumber, 7)
'lecture de la ligne , colonne 8 (Adresse résidentielle)
Me.txtAddress = .Cells(RecordNumber, 8)
'lecture de la ligne , colonne 9
Me.txtville = .Cells(RecordNumber, 9)
'lecture de la ligne , colonne 10
Me.txtcp = .Cells(RecordNumber, 10)
'lecture de la ligne , colonne 11
Me.txttelfixe = .Cells(RecordNumber, 11)
'lecture de la ligne , colonne 12
Me.txtport1 = .Cells(RecordNumber, 12)
'lecture de la ligne , colonne 13
Me.txtport2 = .Cells(RecordNumber, 13)
'lecture de la ligne , colonne 14
Me.txtcourriel = .Cells(RecordNumber, 14)
'lecture de la ligne , colonne 15
Me.txtdatebapteme = .Cells(RecordNumber, 15)
'lecture de la ligne , colonne 16
Me.txteglisecelebration = .Cells(RecordNumber, 16)
'lecture de la ligne , colonne 17
Me.txtcelebrant = .Cells(RecordNumber, 17)
'lecture de la ligne , colonne 18
Me.txtdatepaiement = .Cells(RecordNumber, 18)
'lecture de la ligne , colonne 19
Me.txtNotes = .Cells(RecordNumber, 19)
'Affichage du N° de la fiche sur le cadre des saisies
Me.frmMember.Caption = "Fiche " & Format(RecordNumber, "00") '"R000"
End With
End Sub |
Partager