473,388 Members | 1,526 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,388 software developers and data experts.

Compile Error: Expected 'END SUB' in 'End Sub'

I need help whit a problem when i try to test my program this message appears
C:\Users\Ivan\Desktop\empresa.bas(404) error 124: Expected 'END SUB' in 'End Sub'
Here you have that part of the code:

Sub IncrementarS()
Dim X as Double
CLS
Input "Dame la clave del empleado al cual se le va a incrementar el sueldo", Dato
BuscarNodo( L, Dato )
If ( NodoActual <> Null ) then
Input ("Dame el incremento del sueldo", x
tDato^.Sueldo <- tDato^.Sueldo + X
Else
Print ("El empleado no existe")
End If
Print "Pulsa cualquier tecla para regresar al menu principal"
sleep
End Sub
Mar 21 '17 #1
0 933

Sign in to post your reply or Sign up for a free account.

Similar topics

2
by: rocky102 | last post by:
I am a novice old timer who enjoys fooling around with excel, I copied this macro from and old computer and wanted to use it one a new one I got. Its supposed to draw a line across a row when...
11
by: DavidPT | last post by:
Hi, Im getting this error mesage, for the below code. I have tried to add END Sub at the end but still didnt work Any ideas? Private Sub Command45_Enter() Function updateList() 're-create...
1
by: Dorota Prywata | last post by:
Hi, I need help with VBA Macro for Auto-filter to high lite a header plp advice as per below course a I got Compile error: Expected End Sub ? Sub Macro1() Function FilterOn(myCell As Range)...
2
by: engrlorie | last post by:
I am a newbie in programing and is currently designing a program using VB6 with access 03 database. Unfortunately, I am stuck with the error. Please help me.. can't decipher the problem myself....
1
by: Tesplund | last post by:
I am using VB to create a code that will save a copy, send it via outlook then delete the copy it saved. I want this to be via command button but am not picky as long as it's as easy as the comman...
2
by: ANIL KUMAR N | last post by:
Sub LOCKED() Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range Set Rng = Range("$a$1:$b$1") If Not Application.Intersect(Target, Rng) Is Nothing Then Sheets("Sheet...
1
by: laurabbface | last post by:
I keep getting the following error: Compile error: Expected End Sub Can someone show me what I'm doing wrong & how to rewrite? Private Sub Exit_Click() DoCmd.GoToRecord , , acNewRec ...
2
by: shoaib behrooz | last post by:
microsoft visual basic for application : compile error Expected End Sub
5
by: lmpaskewitz | last post by:
Private Sub Yes_Click() Sub StandardSpecs() ' ' StandardSpecs Macro ' ' Range("D11:E11").Select ActiveCell.FormulaR1C1 = "5/12 (Std)" Range("D12:E12").Select
2
by: RobinMurphy3804 | last post by:
I keep getting an error message for my code. I would greatly appreciate any help I can get. When someone Selects cell K74 and types in anything (usually "X"), I need a dialog box to pop up with a...
0
by: taylorcarr | last post by:
A Canon printer is a smart device known for being advanced, efficient, and reliable. It is designed for home, office, and hybrid workspace use and can also be used for a variety of purposes. However,...
0
by: Charles Arthur | last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
0
by: ryjfgjl | last post by:
If we have dozens or hundreds of excel to import into the database, if we use the excel import function provided by database editors such as navicat, it will be extremely tedious and time-consuming...
0
by: ryjfgjl | last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
1
by: Sonnysonu | last post by:
This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...
0
by: Hystou | last post by:
There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
0
Oralloy
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...
0
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
0
by: Hystou | last post by:
Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.