Reserved error 2950

[gurdiga]

I get Reserved error 2950 on this command:

button.SetFocus

what the heck can it be?

 

[Rich]

What is button, are you using the name of the button or "button"?

 

[gurdiga]

a simple button control.

 

[Rich]

Post the code

 

[gurdiga]

this is a part of the code:


...
...

Produse_selectate.Caption = IIf(ps.ListCount = 0, 0, ps.ListCount - 1)
Produse_ramase.Caption = IIf(pt.ListCount = 0, 0, pt.ListCount - 1)


'here I get the error

ps.SetFocus



pbin.Enabled = pt.ListCount > 1 And Not Regim = Vizualizare
gett.Enabled = pbin.Enabled

....
....

 

[Fizzio]

What have you defined ps as? Also is the control it refers to enabled = True?

 

[gurdiga]

it is enableb. in case it is not enabler occurs an other error. ps is a button control.

 

[Fizzio]

Post the whole code rather than the snippet.

 

[gurdiga]

Private Sub Form_Open(Cancel As Integer)
'On Error GoTo 1
DoCmd.Maximize
Form_CereCerere.Visible = False

If UBound(Certificat.Produs) = 0 Then
MsgBox "Nu s-a acumulat informatia pe produsele din cerere", vbCritical, " "
DoCmd.CancelEvent
Exit Sub
End If

DeshideForma:
OnFormOpen = True
If Certificat.STAT_SERVI = "I" Then
Regim = Modificare
CommandBars("Administrare").Controls("Hotararea").Enabled = False
CommandBars("Administrare").Controls("Hotararea").Enabled = True
CommandBars("Administrare").Controls("Certificatul").Enabled = True
ElseIf Certificat.NR_CERTIF = 0 Then
Regim = Introducere
Certificat.DT_DECIZ = DataSistemului
Certificat.DT_INTROD = DataSistemului
Certificat.DT_CERTIF = DataSistemului
CommandBars("Administrare").Controls("Inscrie").Enabled = False
CommandBars("Administrare").Controls("Hotararea").Enabled = False
CommandBars("Administrare").Controls("Certificatul").Enabled = False
Else
Regim = Vizualizare
CommandBars("Administrare").Controls("Inscrie").Enabled = False
CommandBars("Administrare").Controls("Hotararea").Enabled = True
CommandBars("Administrare").Controls("Certificatul").Enabled = True
End If

Certificat0 = Certificat

Caption = Choose(Regim, "Introducere", "Modificare", "Vizualizare")
CurrentDb.Properties("AppTitle") = "INSM : " & Utilizator.Nume & " - Hotararea pentru eliberarea CC "
Application.RefreshTitleBar

With Certificat

If Regim = Vizualizare Then
SECTIE_.Locked = True
SECTOR_.Locked = True
EXPERT_.Locked = True
DT_DECIZ_.Locked = True
COD_CERTIF_.Locked = True
DT_CERTIF_.Locked = True
DT_VALABIL_.Locked = True
COD_PERIOD_.Locked = True
If NR_ACORD_.Enabled Then
NR_ACORD_.Locked = True
DT_ACORD_.Locked = True
End If
NR_CONTRAC_.Locked = True
DT_CONTRAC_.Locked = True
COD_INSPEC_.Locked = True
COD_OC_.Locked = True
COD_INF_SU_.Locked = True
KDOC.Enabled = False
SERDOC.Enabled = False
NRDOC.Enabled = False
DATDA.Enabled = False
DATDV.Enabled = False
COD_TARII.Enabled = False
FEL_ORGAN.Enabled = False
COD_FISCAL.Enabled = False
bDAdd.Enabled = False
bDEx.Enabled = False
SuntFacturiSecundare.Enabled = False
SumaFacturaPrimara.Locked = True
Else
SysCmd acSysCmdSetStatus, "Formeaza listele..."
COD_OC_.RowSource = "SELECT COD_OC_LAB,'" & .CodOCLung & " ' & DENUML & ADRESA & IIf(Tel=Null,'','; tel.: ' & Tel) & IIf(Tel2=Null,'',', ' & Tel2) & IIf(FAX=Null,'','; fax: ' & FAX),'" & .CodOCLung & " ' & iif(DENUMLr=Null,DENUML,DENUMLr) & iif(ADRESAr=Null,ADRESA,ADRESAr) & IIf(Tel=Null,'','; tel.: ' & Tel) & IIf(Tel2=Null,'',', ' & Tel2) & IIf(FAX=Null, '', '; fax: ' & FAX) FROM ocla WHERE COD_CENTR='16' AND FEL_INSCR='" & .COD_DOMEN & "'"
COD_CERTIF_.RowSource = "SELECT COD_CERTIF, DENUMIREA FROM NOM_COD WHERE FEL_INSCR='2' AND COD_DOMEN='" & UCase(.COD_DOMEN) & "'"
SysCmd acSysCmdSetStatus, "Determina limitele de lungime..."
Set r1 = CurrentDb.OpenRecordset("certd")
NRDOCMaxLen = r1!NRDOC.Size
SERDOCMaxLen = r1!SERDOC.Size
Set r1 = Nothing
Set r1 = CurrentDb.OpenRecordset("cert")
NR_CONTRACMaxLen = r1!NR_CONTRAC.Size
NR_ACORDMaxLen = r1!NR_ACORD.Size
Set r1 = Nothing
SysCmd acSysCmdClearStatus
End If

If Regim = Introducere Then
NR_CERTIF_.Caption = "****"
.COD_CENTR = CodCentru

With Utilizator
SECTIE_ = .CodSectie
SECTOR_.Requery
SECTOR_ = .CodSector
EXPERT_.Requery
EXPERT_ = IIf(.EsteExpert, .Nume, Null)
End With

If COD_OC_.ListCount = 1 Then COD_OC_.Value = COD_OC_.ItemData(0)
If COD_INSPEC_.ListCount = 1 Then COD_INSPEC_.Value = COD_INSPEC_.ItemData(0)
Certificat.Produs(1).Selectat = UBound(Certificat.Produs) = 1
If .NR_CONTRACT <> "" Then NR_CONTRAC_ = .NR_CONTRACT
If .DT_CONTRACT <> DataNula Then DT_CONTRAC_ = .DT_CONTRACT
DT_DECIZ_ = DataSistemului
DT_CERTIF_ = DT_DECIZ_
If Trim(.NR_FACTURI) <> "" And (NR_CONTRAC_ = "" Or IsNull(NR_CONTRAC_)) Then
NR_CONTRAC_ = "C" & String(6 - Len(Trim(.NR_FACTURI)), "0") & Trim(.NR_FACTURI)
.NR_CONTRACT = NR_CONTRAC_
If .DT_FACTURI <> DataNula Then
DT_CONTRAC_ = .DT_FACTURI
.DT_CONTRACT = DT_CONTRAC_
End If
End If

Else 'Regim = Introducere
NR_CERTIF_.Caption = .NR_CERTIF
SECTIE_ = .COD_SECTIE
SECTOR_.Requery
SECTOR_ = .COD_SECTOR
EXPERT_.Requery
EXPERT_ = .COD_EXPERT
COD_CERTIF_ = .COD_CERTIF
DT_DECIZ_ = .DT_DECIZ
DT_CERTIF_ = .DT_CERTIF
If .DT_VALABIL <> DataNula Then DT_VALABIL_ = .DT_VALABIL

If .NR_ACORD <> "" Then
NR_ACORD_ = .NR_ACORD
DT_ACORD_ = .DT_ACORD
End If

If .NR_CONTRACT <> "" Then
NR_CONTRAC_ = .NR_CONTRACT
DT_CONTRAC_ = .DT_CONTRACT
End If

If Certificat.PR_PSC = "L" Or Certificat.PR_PSC = "E" Then
COD_INSPEC_.Enabled = False
COD_PERIOD_.Enabled = False
Else
If Not COD_PERIOD_.Enabled Then COD_PERIOD_.Enabled = True
COD_PERIOD_ = .COD_PERIOD
If Not COD_INSPEC_.Enabled Then COD_INSPEC_.Enabled = True
COD_INSPEC_ = .COD_INSPEC
End If

COD_OC_ = .COD_OC
COD_INF_SU_ = IIf(.InformatieSuplimentara = "", "", .InformatieSuplimentara)
If .COD_LIMBII = 2 Then COD_INF_SU_R = IIf(.InformatieSuplimentaraR = "", "", .InformatieSuplimentaraR) Else COD_INF_SU_R.Enabled = False
End If 'Regim = Introducere

If Regim = Introducere Then DT_DECIZ_ = DataSistemului Else DT_DECIZ_ = .DT_DECIZ

FacturaPrimara.Caption = "Factura primara: " & Certificat.NR_FACTURI & " din " & Certificat.DT_FACTURI
SuntFacturiSecundare = .SuntFacturiSecundare
NrFacturaSecundara.Enabled = .SuntFacturiSecundare
DataFacturaSecundara.Enabled = .SuntFacturiSecundare
SumaFacturaSecundara.Enabled = .SuntFacturiSecundare
ListaFacturiSecundare.Enabled = .SuntFacturiSecundare
bAddFacturaSecundara.Enabled = .SuntFacturiSecundare And Regim <> Vizualizare
SumaFacturaPrimara = .SUMA_CERT

RefreshFLista
ArataProduseSelectate
ActualizeazaListaIndicativelor
ActualizeazaListaDocumentelor
ActualizeazaListaDocumentelorBaza 2

End With 'Certificat

If Regim = Introducere Or Regim = Modificare Then home.SetFocus 'Regim = Vizualizare Or
Modificat = False
OnFormOpen = False
SysCmd acSysCmdClearStatus
Exit Sub
1
MsgBox ErrMsg & "Form_Open@" & Err.Description & "@", vbCritical, " "
LogX "Eroare:frm" & Name & ".Form_Open:" & Err.Description
End Sub 'Form_Open