Je dois trouver un moyen de rendre la grille dans MS Access & insérer de nouvelles lignes à par le code VBA ne exactement comment Excel se tenir.comment insérer une nouvelle ligne comme des fonctions Excel dans MS ACCESS
0
A
Répondre
2
Avez-vous regardé des formulaires et des fiches techniques en continu?
Il est très rarement une bonne idée de reproduire le comportement de feuille de calcul dans une base de données
0
code InsertRows: Insérer une ligne entre la remorque rangée
d'abord créer un temporarilytable Et puis faire face à cette table comme la table principale
et le code est le travail avec moi et voici le code:
Sub InsertRows()
On Error GoTo ErrorNu
Dim SQLP As String
Dim Con As New ADODB.Connection
Dim Conx As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim Rs As New ADODB.Recordset
Dim Rsx As New ADODB.Recordset
Dim Rn As New ADODB.Recordset
Dim Rd As New ADODB.Recordset
Dim Num As Long
Dim intRows
Dim arrEmployees As Variant
Dim x As Integer, Y As Integer
Set Con = CurrentProject.Connection
Con.BeginTrans
sqlo = " select max(AutoRec)as maxa from Note_Custom "
Set Rn = Con.Execute(sqlo)
SQLP = " SELECT AutoRec, TextCOspoId, OuerM,Note"
SQLP = SQLP & " , TextBillId,NuCOspoId,dateTybe FROM Note_Custom ORDER BY AutoRec"
Rs.Open SQLP, Con, adUseClient, adOpenStatic, adCmdText
sqlo = " UPDATE Note_Custom SET TextBillId = ''"
sqlo = sqlo & " WHERE AutoRec > " & 0
Con.Execute (sqlo)
intRows = Val(Rn!maxa)
Num = 1
arrEmployees = Rs.GetRows(intRows)
Y = 0
For x = 0 To intRows - 1
If x = Val(SelTop - 1) Then
Y = 1
Rs.AddNew
Rs![AutoRec] = arrEmployees(0, x)
Rs![TextBillId] = 1
Rs.Update
End If
Rs.AddNew
Rs![AutoRec] = arrEmployees(0, x) + Y
Rs![TextCOspoId] = arrEmployees(1, x)
Rs![OuerM] = arrEmployees(2, x)
Rs![Note] = arrEmployees(3, x)
Rs![NuCOspoId] = arrEmployees(5, x)
Rs![dateTybe] = arrEmployees(6, x)
Rs![TextBillId] = 1
Rs.Update
Next x
sqlo = "DELETE * FROM Note_Custom where TextBillId = """""
Con.Execute (sqlo)
Con.CommitTrans
SelFiled = Me.SelTop
Me.Requery
sqlo = "SELECT Last(AutoRec) AS LastAuto,First(AutoRec) AS FirstAuto,Count(AutoRec) AS CountAuto FROM Note_Custom"
Set Rd = Con.Execute(sqlo)
If Me.SelTop <> AutoRec Or Rd!LastAuto <> Rd!CountAuto Then
Refix
End If
DoCmd.GoToRecord , , acGoTo, SelFiled
'Me.SelTop = SelFiled
If RecType = False Then
Forms![Ncustom]!Edite.Enabled = True
Forms![Ncustom]!Viewer1.Enabled = False
Forms![Ncustom]!DELETE.Enabled = False
End If
arrEmployees = Empty
Rs.Close
Con.Close
Set Rs = Nothing
Set Con = Nothing
Exit Sub
ErrorNu:
SelFiled = Me.SelTop
Me.Requery
Me.SelTop = SelFiled
End Sub
Questions connexes
- 1. Comment insérer une nouvelle ligne dans UltraGrid
- 2. Insérer une ligne dans Excel (liaison tardive)
- 3. MS Access - Existe-t-il une limite aux fonctions publiques/routines dans MS Access? RTE # 7?
- 4. Lier MS Excel aux requêtes MS Access
- 5. Comment afficher le code des fonctions intégrées dans MS Access?
- 6. MS-Excel insérer une image par macro
- 7. Comment insérer par programmation une nouvelle ligne dans une cellule Excel en C#?
- 8. Fusionner comme dates dans MS Access
- 9. Insérer une commande SQL avec Datetime dans MS-Access
- 10. Utilisation des fonctions mathématiques dans Sql avec MS Access
- 11. Insérer une ligne dans l'excel
- 12. comment insérer une nouvelle ligne dans bash shell pour variable?
- 13. jqGrid Insérer une nouvelle ligne personnalisée
- 14. Pourquoi "insérer (...) valeurs (...)" n'a pas pu insérer une nouvelle ligne?
- 15. Avons-nous des transactions dans MS-Access?
- 16. ms-access: comment insérer un PDF dans un rapport?
- 17. Une requête dans Ms-access
- 18. Insérer une requête dans Access
- 19. fusionner des cellules dans ms-access
- 20. Insérer une nouvelle ligne avant la première ligne
- 21. Mise à jour des zones MS-Access via des cellules MS-Excel
- 22. Comment insérer une nouvelle ligne dans la div, qui affiche des changements dans texterea avec jQuery
- 23. Liste des sous-ensembles de tables MS Access dans MS Excel avec VBA
- 24. Comment créer un formulaire dans MS Access et l'utiliser pour insérer un enregistrement dans une table?
- 25. MS Access & Excel: Transformer une requête avec des paramètres dynamiques en quelque chose d'utile
- 26. Est-il possible d'insérer un jeu de données dans une nouvelle table MS Access?
- 27. Filtrage des formulaires dans MS Access
- 28. Interroger une table de consultation dans Excel ou Access
- 29. MS Access convertir des informations de ligne à la colonne
- 30. Comment insérer une nouvelle ligne dans une cellule de tableau dans Word?
Si vous chacune de ces courant phrases en réponse séparée, j'aurais voté les deux! –