Recordset ( 3001) error

Question

Bonjour, 
il y'a deux que j’essaye de contourner ce problème, voici mon code;
Option Compare DatabasePrivate Sub Commande4_Click()DoCmd.RunSQL "drop table dbo.TabIntervalEnqRegl"sqlIntEch = "select dbo.TabEnquetregl.N_PERMIS, dbo.TabEnquetregl.Date_Reception, dbo.TabEnquetregl.date_report into dbo.TabIntervalEnqRegl" & _" from dbo.TabEnquetregl"DoCmd.RunSQL sqlIntEch'sqlechh = " insert into dbo.TabIntervalEnqRegl" & _'" Select dbo.TabEnquetregl.N_PERMIS, dbo.TabEnquetregl.Date_Reception, dbo.TabEnquetregl.date_report from dbo.TabEnquetregl"'DoCmd.RunSQL sqlechh'sqlIntEch2 = "alter table dbo.TabIntervalEnqRegl" & _" add rappel_reception datetime, rappel_report datetime"DoCmd.RunSQL sqlIntEch2'DoCmd.RunSQL "drop table tabRegTm"DoCmd.RunSQL "create table tabRegTm(N_Permis nvarchar(30),rappel_reception datetime, rappel_report datetime)"''Dim rsreg As ADODB.RecordsetDim rsintregreg As ADODB.RecordsetSet rsreg = New ADODB.RecordsetSet rsintreg = New ADODB.Recordset''rsreg.Open "[TabEnquetregl]", con, 1, 3rsintreg.Open "[tabRegTm]", con, 1, 3'Do While rsreg.EOF = FalseN_Permis = rsreg("n_permis")date_recp = rsreg("Date_Reception")date_repo = rsreg("date_report")date_real = rsreg("date_realisation")If date_repo = "" And date_real = "" Thendate_recp = DateAdd("d", 10, [date_recp])Else    If date_repo <> "" And date_real = "" Then    date_repo = DateAdd("d", 10, [date_repo])    End IfEnd Ifrecherche:rsreg.MoveNextLoopGoTo MAJ'suite:rsintreg.AddNewrsintreg("n_permis") = N_Permisrsintreg("rappel_reception") = date_receprsintreg("rappel_report") = date_reporsintreg.UpdateDebug.Print N_Permis, "_", date_recep, "_", date_repoGoTo recherche'mise à jour table InterEchMAJ:sqlIntFinal = "update dbo.TabIntervalEnqRegl" & _" set" & _" dbo.TabIntervalEnqRegl.rappel_reception=dbo.tabRegTm.rappel_reception" & _" dbo.TabIntervalEnqRegl.rappel_report=dbo.tabRegTm.rappel_report" & _" from dbo.tabRegTm" & _" where" & _" dbo.tabRegTm.n_permis=dbo.TabIntervalEnqRegl.n_permis"DoCmd.RunSQL sqlIntFinalcon.CloseSet con = NothingSet rsreg = NothingSet rsintreg = NothingEnd Sub 


Mais le code bloque dans la ligne souligner, et m'affiche l'erreur num 3001.
j'ai vérifier et voici la liste des ref cocher:

visual basic for application
Micro access 14.0 object library
ole automation
micro activeX data object 6.1 library

et puisuqe le "Micro access 14.0 object library" est cocher pas besoin d'ajouter 
le "DAO 3.6 library".

Si vous avez une idée????

vb95 · Answer

bonjour 
tu n'as pas précisé le sous-forum : je pense que c'est VBA 
Et en enlevant les crochets [ ] ça donne quoi

Recordset ( 3001) error

1 réponse

Discussions similaires