Recent content by mm0000

Click on your account tab (upper right side of page) select 'Preferences' deselect email options.

One advantage of creating an idx vs cdx index is that the table does not have to be used exclusively for creating an idx index. So if a table is being shared and you need to create a temporary index for a report or any other reason you could create a idx index and continue. Creating an idx index...

You get the error because you have now created a character field 'I' and also have a variable I. So the program is now checking whether the field I is equal to a numeric value which will give an error because it is a character field. Change the variable name from i to m.i or to something else so...

replace (SGG_Final.cProdFty)= 'SFC/VTM/SGL' with allt(prodfty) $ 'SFC/VTM/SGL' as shown in my example. Notice that i used $ and not = .

mcrc = SYS(2007,"A0000101") && returns CRC16 mcrc = SYS(2007,"A0000101",1) && returns CRC32 Though VFP documents it a checksum but it returns either CRC16/CRC32 . Refer to VFP Help file.

locate scan if allt(prodfty) $ 'SFC/VTM/SGL' replace fcty with 'SGL' else replace fcty with prodfty endif endscan If you want to update values from the fcty table, you will need to add the prodfty field to the second table to be able to link and update the fcty field in the first...

Something like: oExcel = Createobject([Excel.Application]) .... oExcel.activesheet.pagesetup.zoom = 80

Modified code which i think eliminates the bug.... USE termine replace ALL note WITH "" && initialize note field LOCATE DO WHILE NOT EOF() STORE RECNO() to m.rec STORE von TO m.von STORE bis TO m.bis STORE location TO m.location STORE event TO m.event IF NOT...

USE termine replace ALL note WITH "" && initialize note field LOCATE DO WHILE NOT EOF() STORE RECNO() to m.rec STORE von TO m.von STORE bis TO m.bis STORE location TO m.location STORE event TO m.event IF NOT EOF() skip ELSE EXIT endif DO...

In VFP from the Tools drop down menu select Intellisense Manager and deselect the 'Enable Intellisense' checkbox. However enabling Intellisense can speed up typing commands. Eg: for 'modify command' just enter mc and space key and 'modify file' mf + space key etc. Plus you can make your own...

I have checked that what I have said works. I just appended 10000 records to a dbf on Onedrive and VFP did so with out any problems. Would I recommend it for a stable solution for an application? No. The OP asked whether she could use Onedrive for accessing DBF's - Yes you can.

Map a drive letter to the Microsoft Onedrive folder. For help on mapping map a drive letter to Onedrive refer to https://www.techrepublic.com/article/how-to-assign-a-drive-letter-to-microsoft-onedrive-in-windows-10/ . Once done you can use the mapped drive letter to open dbf files in VFP.

select tablename scan tempid = userid COUNT TO tjz FOR tempid $ tablename if tjz > 1 locate for userid = tempid replace userid with fixid(userid) else locate for userid = tempid endif endscan

REPLACE ALL zip WITH CHRTRAN(zip,'ABCDEFGHIJKLMNOPQRSTUVWXYZ','!!!!!!!!!!!!!!!!!!!!!!!!!!') for len(alltrim(zip)) < 6 **you can replace '!' with any character that will never be in a zip. replace all zip with "" for '!' $ zip

change the statement thisform.grid1.RecordSource = "select * from verwandte where nachname = mnachname" to thisform.grid1.RecordSource = "select * from verwandte where nachname = mnachname into cursor cursorname"